二维码
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;
