procedure TForm1.Button1Click(Sender: TObject);
var
// dll指针地址
mydll : PZSymbol;
// 画布
g: TBitmap;
// 用来接收的字符串
astr : AnsiString;
begin
// 创建DLL
mydll := ZBarcode_Create();
if (mydll = nil) then
begin
Exit();
end;
// 创建画布
g := TBitmap.Create;
// 设置成二维码模式
mydll.symbology := BARCODE_QRCODE;
// 获取需要设计的二维码名称
astr := AnsiString(Edit1.Text);
// 编码
ZBarcode_Encode_and_Buffer(mydll, PAnsiChar(astr),Length(astr),0);
// 提取
ZBarcodeToBitmap(mydll, g);
// 绘制
Self.Canvas.StretchDraw(Rect(10,10,200,200), g);
// 清空
g.Free;
ZBarcode_Delete(mydll);
end;
生成的博客地址二维码
下载地址:http://download.csdn.net/detail/warrially/7370171