【HSP3】libqrencode を使用してQRコードを作成・表示してみるサンプル | Codetter（こーどったー）

#uselib "qrcodelib.dll"
#func QRcode_encodeString "QRcode_encodeString" str,int,int,int,int
#func QRcode_free "QRcode_free" int

	// 使用ライブラリ
	// libqrencode
	// http://fukuchi.org/works/qrencode/index.html
	
	// 入手先(Win32バイナリ)
	// qrencode-win32 qrcode-win32-3.1.1.zip を解凍した先のDLLフォルダに入ってます
	// http://code.google.com/p/qrencode-win32/

	// 参考
	// http://fukuchi.org/works/qrencode/manual/qrencode_8h.html
	

	// QRコード化したいURLをいれる
	url = "http://www.tkooler.net/"
	b = 8	// 倍率
	ox = 32	// オフセットX
	oy = 32	// オフセットX
	
	QRcode_encodeString url, 0, 3, 3, 0
	qrcode = stat
	dupptr res, qrcode, 12, 4
	size = res.1
	dupptr data, res.2, size*size, 2
	
	// QRコードの描画
	color : redraw 0
	i = 0 : x = 0
	repeat size
		x = cnt
		repeat size
			// クロだった場合
			if peek(data,i)&1{
				boxf cnt*b+ox, x*b+oy, cnt*b+b+ox, x*b+b+oy
			}
			i++
		loop
	loop
	redraw 1
	
	// 終わったら解放
	QRcode_free qrcode