Datenverkehr an einem Port auslesen

[Cabal]

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