Delphi Can

@Jakarta2 hocam bu yöntemi kullanmak için cihaza (Android.. IOS u yok zaten) Zxing in barkod okuma uygulamasını kurmak gerekiyor. IOS cihazlarda işe yaramıyor..

@vedat35 hocam bi örnek vermeniz mümkün mü?

[quote=mcuyan@Jakarta2 hocam bu yöntemi kullanmak için cihaza (Android.. IOS u yok zaten) Zxing in barkod okuma uygulamasını kurmak gerekiyor. IOS cihazlarda işe yaramıyor..

@vedat35 hocam bi örnek vermeniz mümkün mü?[/quote]


bileşeni ekleyin forma yerleştirin... Kamerayı kullanacağınız için gerekli izinleri vermeyi unutmayın...

procedure Tfmsiparistoplama.Image1Click(Sender: TObject); 
begin
 BarcodeScanner1.Scan;
end;

procedure Tfmsiparistoplama.BarcodeScanner1ScanResult(Sender: TObject;
AResult: string);
begin
edit1.Text := '';
edit1.Text := AResult;
end;

procedure Tfmsiparistoplama.BarcodeScanner1ScanAbort(Sender: TObject);
begin
 fmsiparistoplama := Tfmsiparistoplama.Create(Nil);
 fmsiparistoplama.Show;
end;