二维码

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);
var
read: TBarcodeReaderW;
begin
read.SendToPort();
self.Caption := read.LastBarcode;
end;