idTCPClient1 ile Veri Okuma

Delphi'de kod yazma ile ilgili sorularınızı bu foruma yazabilirsiniz.
Cevapla
mert_37
Üye
Mesajlar: 37
Kayıt: 13 Şub 2014 02:53

idTCPClient1 ile Veri Okuma

Mesaj gönderen mert_37 » 06 Eki 2019 07:48

Arkadaşlar Soru Sordum..Sonra da Kendim Çözdüm
Benimgibi uğraşanlara yardımcı olsun amacıyla düzeltilmiş bir ip / porttan bilgi okuma


procedure TForm1.BaglanTus(Sender: TObject);
begin
if (not IdTCPClient1.Connected) then begin // Bağlantı yoksa
try
idTCPClient1.Connect();ListBox2.Items.Add('Bağlandi ');
except
on e: exception do begin
ListBox2.Items.Add('Baglanti Hatasi Var !');
end;end
end else begin
Timer1.Enabled:=False;
idTCPClient1.Disconnect();
ListBox2.Items.Add('Bağlanti Kesildi. ');
end;
end;
-----------------------BURASI OKUMA YERİ-------------
procedure TForm1.Timer1Timer(Sender: TObject);
var
aText:String;
begin
aText := '';
j1:=j1+1;
label1.Caption:=TimeToStr(Time)+' - '+inttostr(j1);
if j1>=10 then j1:=0;
if (IdTCPClient1.Connected) then begin
Timer1.Enabled := false;
try
idTCPClient1.ReadTimeout :=10;
try
aText := idTCPClient1.ReadLn();
if (aText <> '') then begin Memo1.Lines.Add(aText);end else begin
ListBox2.Items.Add('Bilgiyi Okuyamadi..'); end;
except
on e: exception do begin
ListBox2.Items.Add('Bilgiyi Okuyamadi..');
raise;
end;
end;
except
on e: exception do begin
label2.Caption:=' Baglanti Problemi Var.';
ListBox2.Items.Add('Bilgiyi Okuyamadi..');
exit;
end; end;
end;
end;
En son mert_37 tarafından 07 Eki 2019 12:44 tarihinde düzenlendi, toplamda 1 kere düzenlendi.

ertank
Üye
Mesajlar: 1241
Kayıt: 11 Eyl 2015 11:45

Re: idTCPClient1 ile Veri Okuma

Mesaj gönderen ertank » 06 Eki 2019 10:56

Merhaba,

Okunacak veri ne olduğunu bilmeden sorunuza cevap vermek doğru olmaz. Gelen veri için örnek verebilir misiniz?

mert_37
Üye
Mesajlar: 37
Kayıt: 13 Şub 2014 02:53

Re: idTCPClient1 ile Veri Okuma

Mesaj gönderen mert_37 » 07 Eki 2019 12:47

Herkese Teşekkür ederim...
Sordum ama soruyu da tekrar ben çözdüm...
Yukarıdaki örnek bir ip adresinden 80 karekter aynı anda bir text bilgi geliyor.

Cevapla