http://blog.csdn.net/warrially/article/details/26263061

 

Delphi 调用Zint 实现二维码功能

2014-05-19 16:45 7157人阅读 评论(7) 收藏 举报

版权声明：本文为博主原创文章，未经博主允许不得转载。

[delphi] view plain copy
 
 在CODE上查看代码片派生到我的代码片
  1. procedure TForm1.Button1Click(Sender: TObject);  
  2. var  
  3.   // dll指针地址  
  4.   mydll : PZSymbol;  
  5.   // 画布  
  6.   g: TBitmap;  
  7.   // 用来接收的字符串  
  8.   astr : AnsiString;  
  9. begin  
  10.   // 创建DLL  
  11.   mydll := ZBarcode_Create();  
  12.   if (mydll = nil) then  
  13.   begin  
  14.     Exit();  
  15.   end;  
  16.   
  17.   // 创建画布  
  18.   g := TBitmap.Create;  
  19.   // 设置成二维码模式  
  20.   mydll.symbology := BARCODE_QRCODE;  
  21.   // 获取需要设计的二维码名称  
  22.   astr := AnsiString(Edit1.Text);  
  23.   // 编码  
  24.   ZBarcode_Encode_and_Buffer(mydll, PAnsiChar(astr),Length(astr),0);  
  25.   // 提取  
  26.   ZBarcodeToBitmap(mydll, g);  
  27.   // 绘制  
  28.   Self.Canvas.StretchDraw(Rect(10,10,200,200), g);  
  29.   // 清空  
  30.   g.Free;  
  31.   ZBarcode_Delete(mydll);  
  32. end;