08-02-2019, Saat: 17:43
İyi akşamlar
Öncelikle yaptığım tüm kodları Delphican sayfasından aradım buldum ve yapmaya çalıştım
Emeği olan tüm arkadaşlara teşekkür ederim.
Android için yazmaya çalıştığım uygulamada aşağıdaki kod ile barkod okutarak StringGrid e ekliyorum.
komutu ile daha önce eklenmiş mi kontrol ediyorum, önce ekliyor sonra kontrol ediyor.
neyi yanlış yapıyorum yardımcı olabilir misiniz;
sorunu resim olarak ekledim.
Kontrol fonksiyonu aşağıda
Öncelikle yaptığım tüm kodları Delphican sayfasından aradım buldum ve yapmaya çalıştım
Emeği olan tüm arkadaşlara teşekkür ederim.
Android için yazmaya çalıştığım uygulamada aşağıdaki kod ile barkod okutarak StringGrid e ekliyorum.
if (barcod_varmi(ReadResult.Text)) then
komutu ile daha önce eklenmiş mi kontrol ediyorum, önce ekliyor sonra kontrol ediyor.
neyi yanlış yapıyorum yardımcı olabilir misiniz;
sorunu resim olarak ekledim.
procedure TFrm_okuma.Barcod_coz; var scanBitmap: TBitmap; ReadResult: TReadResult; gram,kilo,net:string; net_rakam:real; begin try gram:='';kilo:='';net:='';net_rakam:=0; FScanManager := TScanManager.Create(TBarcodeFormat.Auto, nil); scanBitmap := TBitmap.Create(); scanBitmap.Assign(resim.Bitmap); ReadResult := nil; ReadResult := FScanManager.Scan(scanBitmap); if (ReadResult <> nil) then begin // barkod daha önce kayıtlımı kontrol et if (barcod_varmi(ReadResult.Text)) then begin // barcod_varmi dan true geldi. İşlem iptal edilsin ReadResult.Free; scanBitmap.Free; exit; end; // kontrol true gelirse atla false gelirse devam et Grd_liste.Cells[0,grid_satir] := floattostr(grid_satir+1); Grd_liste.Cells[1,grid_satir] := ReadResult.Text;
Kontrol fonksiyonu aşağıda
function TFrm_okuma.barcod_varmi(okunan:string):boolean; var i:word; sonuc:boolean; begin // aynı barcod var mı kontrol et for i := 0 to Grd_liste.RowCount do begin if (trim(Grd_liste.Cells[1,i]) = trim(okunan)) then begin TDialogService.PreferredMode:=TDialogService.TPreferredMode.Platform; TDialogService.MessageDialog('Barkod kayıtlı, Tekrar Eklensin mi?', TMsgDlgType.mtConfirmation, FMX.Dialogs.mbYesNo, TMsgDlgBtn.mbNo, 0, procedure(const AResult: TModalResult) begin case AResult of mrYes: sonuc:=False; // False giderse aynı kayıt tan ekleyecek mrNo: sonuc:=True; // true giderse kaıyt eklemeyecek end; end ) end; // grid içeriğini test eden if sonu end; // for döngü sonu Result:=sonuc; end;
"…De ki: "Hiç bilenlerle bilmeyenler bir olur mu? Şüphesiz, temiz akıl sahipleri öğüt alıp-düşünürler" (Zümer Suresi, 9)