Hallo
Ich würde gerne den Datenverkehr, der über das Internet an einem Port beispielsweise am Port 12222 oder sonst was herrscht auslesen also vll als String in einer Memobox anzeigen lassen..
Ich hab dazu mal ein bisschen herumexperimentiert mit dem
Indy TCP Client.
Hab mit den Proceduren ReadString und ReadLn was versucht, bin aber bis jetzt sehr ergebnislos gescheitert.
Dann habe ich versucht das Ziel etwas herunter zu setzen und wollte den Datenverkehr an einer bestimmten in Netstat aufgelisteten verbindung (
IP ) an einem bestimmten Port herauslesen, hat aber nicht funktioniert, bin schon beim connecten gescheitert.
Das war einer meiner Versuche:
Delphi-Quellcode:
procedure TForm1.Button2Click(Sender: TObject);
begin
IdTCPClient1.Port := StrToInt(Edit4.Text);
IdTCPClient1.Host := Edit3.Text;
IdTCPClient1.Connect(-1);
if IdTCPClient1.Connected = true then
begin
Edit5.Text := 'OK';
Memo1.Text := IdTCPClient1.ReadLn(#$A);
end
else
begin
Edit5.Text := 'PROBLEM';
end;
end;
end.
Bin etwas ratlos.
wäre für jede Hilfe dankbar