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