Delphi 调用Zint 实现二维码功能

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

  • 6
    点赞
  • 13
    收藏
    觉得还不错? 一键收藏
  • 8
    评论

“相关推荐”对你有帮助么?

  • 非常没帮助
  • 没帮助
  • 一般
  • 有帮助
  • 非常有帮助
提交
评论 8
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值