Delphi Seri Haberleşme

[ugorkem]

üstadım bir timer içerisine aşağıdaki gibi bir kod yazarsan senin işin çözülecektir.

bileşenin Connected özelliği varmış. ve bu bağlı olup olmadığını tutuyor.

procedure TForm2.Timer1Timer(Sender: TObject);
begin
if not ComPort.Connected then
 begin 
    Memo1.lines.add('Bağlantı Yok');
    Memo1.lines.add('Bağlantı Kurmaya çalışılıyor....');
    ComPort.Open;
 end;
end;

//formun OnClose events a bu kodu ekle. kapatırken bağlantı kurmaya çalışmasın;
Timer1.enabled:=False;
ComPort.Close;