sistem söyle 123 verisini yolladığım zaman kartım adc verilerini yollamaya başlıyor ve her 200ms de bu veriyi yollamak zorundayım
gelen verileri delphi indy companentini kullanıp timer ile 200ms bir 123 yolayıp adc(data) alıyorum ve labellere yerleştiriyorum burada sıkıntı yok herşey normal çalışıyor
bilgisayarın internet bağlantısı kestiğimde(jak çıkarıldığında veya server kart kapatıldığında) veri gelmeye devam ediyor yani program hata da verimiyor, delphi internet yokken bu verileri nereden alıyor?
delphi kodlarım
Kod: Tümünü seç
procedure TForm1.FormCreate(Sender: TObject);
begin
IdAntiFreeze1.Active:=true; //ekleyin yoksa kilitlenirsiniz
IdAntiFreeze1.OnlyWhenIdle:=true;
IdAntiFreeze1.IdleTimeOut:=10
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
IdUDPClient1.Host:=Edit1.Text;
IdUDPClient1.Port:=10001;
IdUDPClient1.ReceiveTimeout:=10;
IdUDPClient1.Connect;
IdUDPClient1.Send('123');
Timer1.Enabled:=true;
end;
procedure TForm1.Timer1Timer(Sender: TObject);
var
buffer: Array of char;
i:byte;
metin,sonuc:ansistring;
begin
if IdUDPClient1.Connected then
begin
IdUDPClient1.Send('123');
gelenveri:=IdUDPClient1.ReceiveString();
sonuc:=leftStr(gelenveri,4); //sağdan 5 karakteri al
Form1.Caption:=sonuc;
if sonuc='adc1' then Label1.Caption:=gelenveri;
if sonuc='adc2' then Label2.Caption:=gelenveri;
if sonuc='adc3' then Label3.Caption:=gelenveri;
if sonuc='adc4' then Label4.Caption:=gelenveri;
end;
end;