二維碼

二維碼

QR_Code

 http://www.psoft.sk/product.php?id=27

http://www.barcodesoft.com/zh-cn/delphi-barcode.aspx

生成二維碼

Bar_Code:TpsBarcode;

Bar_Code.BarCode := 'www.aaa.com';

procedure TForm1.Button4Click(Sender: TObject);

var

R: TRect;

begin

R.Create(700, 1,1000,300);

psBarcode.PaintBarCode();

PaintBarCode(self.Canvas, R, Bar_Code);

end;

掃描二維碼

procedure TForm1.Button3Click(Sender: TObject);

read: TBarcodeReaderW;

read.SendToPort();

self.Caption := read.LastBarcode;