Delphi7使用二維碼

參考：http://jingyan.baidu.com/article/e75057f2ad6481ebc81a897b.html

首先下載對應的 dll (已經上傳到博客園文件)

然后就是Delphi代碼了：

function SetPdfConFile(confile: PChar):PChar;stdcall;external 'EnCodePdf.dll';
function EnPdfText(txtdata:PChar; outfile:PChar):PChar;stdcall; external 'EnCodePdf.dll'

SetPdfConFile(PChar('MakeBarCode.ini')); //加載配置
EnPdfText(PChar('123456'),PChar('pdf417.bmp'));  //將文本保存成二維碼圖片