Xojo iOS にてQRコード生成をShift JIS形式で生成するモジュール

Function generateQR(qrString As Text, width As Single, height As Single) As iOSImage
 Declare Function NSClassFromString Lib "Foundation" (aClassName as CFStringRef) as Ptr
 
 // - (CIImage *)createQRForString:(NSString *)qrString
 // {
 // // Need to convert the string to a UTF-8 encoded NSData object
 // NSData *stringData = [qrString dataUsingEncoding:NSUTF8StringEncoding];
 
 
 Declare Function dataUsingEncoding Lib "Foundation" Selector "dataUsingEncoding:" (str As CFStringRef, enc As Integer) As Ptr
 
 Const NSShiftJISStringEncoding As Integer = 8
 
 Dim stringData As = dataUsingEncoding(qrString, NSShiftJISStringEncoding)
 
 // // Create the filter
 // CIFilter *qrFilter = [CIFilter filterWithName:@"CIQRCodeGenerator"];
 
 Declare Function filterWithName Lib "UIKit" Selector "filterWithName:" (obj_ID As Ptr, filtername As CFStringRef) As Ptr
 
 Dim qrFilter As Ptr = filterWithName(NSClassFromString("CIFilter"), "CIQRCodeGenerator")
 
 // // Set the message content and error-correction level
 
 Declare sub setValue Lib "Foundation" Selector "setValue:forKey:" (obj_ID As Ptr, data As Ptr, Key As CFStringRef)
 
 setValue(qrFilter, stringData, "inputMessage")
 
 // [qrFilter setValue:@"M" forKey:@"inputCorrectionLevel"];
 
 Declare sub setValue1 Lib "Foundation" Selector "setValue:forKey:" (obj_ID As Ptr, data As CFStringRef, Key As CFStringRef)
 
 setValue1(qrFilter, "M", "inputCorrectionLevel")
 
 Declare Function valueForKey Lib "Foundation" Selector "valueForKey:" (obj_ID As Ptr, key As CFStringRef) As Ptr
 
 Dim qrCIImage As Ptr = valueForKey(qrFilter, "outputImage") // ← CIImageを取得
 
 Declare Function imageWithCIImage Lib "UIKit" Selector "imageWithCIImage:" (obj_ID As Ptr, ciimage As Ptr) As Ptr
 
 Dim qrCodeImage As Ptr = imageWithCIImage(NSClassFromString("UIImage"), qrCIImage)
 
 Dim qrImageData As iOSBitmap = New iOSBitmap(width, height, 1.0, False)
 
 CGContextSetInterpolationQuality(qrImageData.Graphics.Handle, 1)
 
 'qrImageData.Graphics.Alpha = 0
 
 qrImageData.Graphics.DrawImage iOSImage.FromHandle(qrCodeImage), 0, 0, width, height
 
 Return qrImageData.Image 

End Function

Dim I’m As iOSImage

im  = iOSImage.FromFile(SpecialFolder.Documents.Child(“test.png”))

上記でファイルをImageに取り込めるぞ。

取り敢えず，Declareの嵐から解放されたわ　＼(^O^)／

任意の画像を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が発生するので，要注意！