Konuyu Oyla:
  • Derecelendirme: 0/5 - 0 oy
  • 1
  • 2
  • 3
  • 4
  • 5
Android kod akışı farklı mı anlamadığım bir şey mi var ?
#1
İ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.
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;


Ek Dosyalar Resimler
   
"…De ki: "Hiç bilenlerle bilmeyenler bir olur mu? Şüphesiz, temiz akıl sahipleri öğüt alıp-düşünürler" (Zümer Suresi, 9)
Cevapla


Bu Konudaki Yorumlar
Android kod akışı farklı mı anlamadığım bir şey mi var ? - Yazar: cinarbil - 08-02-2019, Saat: 17:43

Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Son Yorum
  Firemonkey Android Uygulama ile Barcode Okuma coderlegobilisim 1 53 Dün, Saat: 18:27
Son Yorum: Mr.Developer
  Android ile PC Arasında dosya okumak bsogulcan 3 230 22-08-2019, Saat: 16:03
Son Yorum: bsogulcan
  Android Klavyenin Açılma Durumu Emrah Karagöz 0 126 30-07-2019, Saat: 14:57
Son Yorum: Emrah Karagöz
  FMX Android Adaptive Icons kullanabilir miyiz? egeven 0 139 28-07-2019, Saat: 21:55
Son Yorum: egeven
  android edit bileşeninde barcod okutma sonrası için cinarbil 2 219 27-07-2019, Saat: 09:24
Son Yorum: cinarbil



Konuyu Okuyanlar: 1 Ziyaretçi