Xojo – iOSImageの表示

任意の画像をiOSImageに表示するには:

Dim f As xojo.IO.FolderItem.IO.FolderItem
Dim st As xojo.IO.BinaryStream
Dim m As MemoryBlock

f = SpecialFolder.Documents.Child(“test.png”)

st = BinaryStream.Open(f, xojo.IO.BinaryStream.LockMode.Read)

m = st.Read(f.Length)

declare function NSClassFromString lib “Foundation” (aClassName as CFStringRef) as Ptr
Declare Function dataWithBytes lib “Foundation” selector “dataWithBytes:length:” (c as Ptr,d as Ptr,s as UInteger) as Ptr
dim data as Ptr=dataWithBytes(NSClassFromString(“NSData”),m.Data,m.Size)
declare Function imageWithData lib “UIKit” selector “imageWithData:” (c as Ptr,d as Ptr) as Ptr
dim im as Ptr=imageWithData(NSClassFromString(“UIImage”),data)
dim img as iOSImage=iOSImage.FromHandle(Ptr(im))

ImageView1.Image = img

 

尚,Declareで使用するFrame Workの名称に.Frameworkを入れておくと,実機用ビルドでLink errorが発生するので,要注意!

This entry was posted in iOS, Xojo, メモ. Bookmark the permalink.

Comments are closed.