memo.xight.org

Home > Changelogメモ > QRCode > 1ページ目 (全1ページ)

2008-02 / 01 02 03 04 05 06 07 08 09 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29

- Summary
キャリア毎に異なるQRコード仕様[2004-12-16-5]に対応するためのQRコード生成方法．

- ポイント
・電話帳登録のための開始タグが Docomo が MECARD: で au と vodafone が MEMORY:
・DoCoMo は改行しないで，タグ (項目) の終わりにセミコロンをつかう．
  (MECARD:に対するセミコロンを最後につけるので，一番最後はセミコロンが二つになる)
  au,Vodafoneは項目ごとに改行していく。
・メールアドレスのタグが DoCoMo がアドレス複数でもEMAIL:
  au,VodafoneはMAIL1: MAIL2: と数字が増えていく。
・タグ名と項目の関係は DoCoMo と au, vodafone で非共通

- Sample

DoCoMo
MECARD:N:名前(姓),名前(名);SOUND:半角カナ読み(姓),半角カナ読み(名);TEL:電話番号;EMAIL:メールアドレス;NOTE:メモ;;
au,Vodafone
MEMORY:
NAME1:名前
NAME2:半角カナ読み
MAIL1:メールアドレス1
TEL1:電話番号1
TEL2:電話番号2

- Reference
Shuta.net - 2005-08-08 - 携帯3社対応電話帳QRコードの作り方 (NTTDoCoMo,au,Vodafone)
http://shuta.net/?e=265

カテゴリ: [QRCode][Mobile]

[ 固定リンク ]

2006-03-06 Mon

GD::Barcode::QRcode で各ページにQRコードの画像を付加

- Summary
[2006-03-05-1]を応用し，Refererを用いてQRコード生成．

- インストール

# aptitude install libexpat-dev libgd2-dev
# cpan install GD
# cpan install GD::Barcode::QRcode

- qr.cgi

#!/usr/bin/perl
use strict;
use GD::Barcode::QRcode;
 
my $str         = $ENV{'HTTP_REFERER'};
my $header      = qq(Content-Type: image/png\n\n);
my $qr          = GD::Barcode::QRcode->new($str,{ ECC => 'L', Version => 2, ModuleSize =>2,})->plot->png;
print $header,$qr;
exit;

- 各ページに以下の HTML で付加可能．

<img src="path/to/qr.cgi" width="97" height="97" alt="QRcode" />

- Reference
GD::Barcode::QRcode

nitsujiの日記 - GD::Barcode::QRcodeのバグ?の件について
http://d.hatena.ne.jp/nitsuji/20070626/1182840997

カテゴリ: [Perl][QRCode]

[ 固定リンク ]

2006-03-05 Sun

GD::Barcode::QRcode を用いた QRコード生成

- Summary
http://example.com/cgi-bin/qr.cgi?q=QRコードにしたい文字列
でQRコードの画像を生成したい．

- 準備

# cpan -i GD::Barcode::QRcode

- 注意
GD::Barcode::QRcode (0.01) 40行目を変更

#$oSelf->{Version} = $rhPrm->{Version} || 1;
$oSelf->{Version} = $rhPrm->{Version};

- Source

#!/usr/bin/perl
use strict;
use CGI;
use GD::Barcode::QRcode;
 
my $q		= new CGI;
my $str		= $q->param('q');
my $header	= qq(Content-Type: image/png\n\n);
my $qr		= GD::Barcode::QRcode->new($str)->plot->png;
print $header,$qr;
exit;