Delphi Seri Haberleşme

[mstf42]

(07-06-2021, Saat: 00:14)ugorkem Adlı Kullanıcıdan Alıntı:

(03-06-2021, Saat: 21:06)mstf42 Adlı Kullanıcıdan Alıntı: malesef kardeşim bileşenlerin event olayında bahsettiğin özellikler yok gelen bilgi string şeklinde ve aşağıdaki gibi basit bir kodla gelen bilgiyi okuyabiliyorum. Nasıl bir kod yazmalıyım ki bu bileşene gelen bilgi kesildiğinde uyarı versin veri okunamadı diye bilgi tekrar gelmeye başladığında ise otomatik ağırlık bilgisi panelde görünsün eminim çok basit bir koddur ama işte acemiler sınıfındanım malesef.

procedure Tform1.ComDataPacket1Packet(Sender:Tobject; const Str: string);
begin
Panel1.caption:=copy(str,3,5);
end;

Sayın UGörkem hocam öncelikle konuyla ilgilendiğiniz için teşekkür ederim. Sizin vermiş olduğunuz kod çalışıyor sıkıntı yok ama benim isteğimi karşılamıyor. Çünkü comport1 bileşeni veri gelse de gelmesede bağlı kalıyor o yüzden kontrolü onun üzerinden sağlayamayız. bize yardımcı olacak olan comdatapacket bileşeni veri akışı bu bileşende sağlanıyor aslında basit bir if else yapısıyla çözülebilir ancak ben comdatapacketin veri akışının kesildiğini yada geldiğini  belirten hangi özelliği olduğunu bilmiyorum acemilikten dolayı. söylediklerimi kod ile anlatacak olursam kodlar aşağıdaki gibir.

Not:Belkide comdatapacketin böyle bir özelliğide mevcut değildir bu ihtimalde söz konusu. 

procedure Tform1.ComDataPacket1Packet(Sender:Tobject; const Str: string);
begin
if datacompacket1.verigeliyorsaözelliği then
panel1.caption:=copy(str,3,5)
else
panel1.caption:='Veri Okunamadı';
end;