HSP 【HSP3】libqrencode を使用してQRコードを作成・表示してみるサンプル (修正)

このエントリーをはてなブックマークに追加このエントリのはてなブックマーク数このエントリをLivedoor Clipに追加このエントリをYahoo!ブックマークに追加このエントリをFC2ブックマークに追加このエントリをNifty Clipに追加このエントリをつぶやく

http://codetter.com/?p=525 は文字が勝手に大文字になってしまうので修正しました。
libqrencode を使用してQRコードを作成・表示してみるサンプルです。実行に qrcodelib.dll が必要です。

#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, 1
	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

Posted by at 2012/1/19 2:12

よく投稿されているコード

タグ

最近投稿されたコード