Turbopower Async Comport ile Delphi XE

Delphi'de kod yazma ile ilgili sorularınızı bu foruma yazabilirsiniz.
Cevapla
enesharun
Üye
Mesajlar: 28
Kayıt: 17 Eki 2014 11:46

Turbopower Async Comport ile Delphi XE

Mesaj gönderen enesharun »

Merhabalar arkadaşlar,
Delphide bir program yapıyorum. Kantardan comport ile veriyi çekecek veriyi alıyorum ama karmaşık geliyor aşağıda bir dinleyici ile mesajı aldım kantardan
R[17:46:21]<STX>ip0 80 0<CR>0<STX>ip0 80 0<CR>0
R[17:46:21]<STX>ip0 80 0<CR>0<STX>ip0 80 0<CR>0

kantardan mesaj bu şekilde geliyor. burada kilo 80 'i almam gerekiyor sadece. fakat aşağıdaki kodda mesaj metninde gördüğünüz tüm karakterleri tek tek atıyor ekrana. Bu konuda yardımcı olabilecek biri var mı acaba?


procedure TAnaEkranTasarim.ComPortTriggerAvail(CP: TObject; Count: Word);
var
C: AnsiChar;
kilo:string;
begin
C := comport.GetChar;
kilo :=(C);
Label20.Caption:=kilo;
end;
enesharun
Üye
Mesajlar: 28
Kayıt: 17 Eki 2014 11:46

Re: Turbopower Async Comport ile Delphi XE

Mesaj gönderen enesharun »

Kantarın markası Baykon arkadaşlar belki bilginiz vardır.
Cevapla