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:

zusammenfalten · markieren

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

Schon was von Sniffer'n gehört?

ein kleines tutorial findest du hier: http://dsdt.info/tutorials/indy/
schau auch mal in die demos der indys rein.

Danke sehr kucke mir mal schnell die tutorials an und versuchs dann weiter.

Sniffer runterladen hilft mir nix wenn ich was machen will damit


aber danke sehr .

Bin bisschen eingerostet hab 2005 das letzte mal was mit Delphi gemacht.

Wenn dein Programm nicht auf legitime Art und Weise an die Daten kommen soll (also weder Server noch Client ist, sondern den Port "abhört"), kommst du nicht drum herum, einen Sniffer zu schreiben. Das läuft auf Filtertreiber hinaus, und sowas kannst du, wenn du Delphi benutzen willst, gleich vergessen.

Und warum verlinkst du nicht dein Crossposting im Delphi-Forum, wo dir sogar schon jemand ein ganzes Programm geschrieben hat?

http://www.delphi-forum.de/topic_Por...sen_75139.html

Hallo

Danke schonmal


Ja das Doppelposting tut mir leid, den letzten Beitrag in Delphi - Forum hab ich nicht gesehn, weil ich so das gefühl hatte, das delphi-forum.de ein wenig "ausgestorben" sei, hatte ich es hier versucht.

Werd mal mit den jetzt zur verfügung stehendem Wissen und Hilfen weiter probieren und mich melden sobald ich entweder erfolg hatte oder wieder hängen bleibe


Danke danke

Ich hab mal mit dem IndyClient nach den Tutorialvorlagen gebastelt.

Mehr oder weniger habe ich eigentlich nur das eine Tutorial nachgebaut, bin nicht sicher ob das reicht?

Also ich weiss leider nicht ob diese Indy's nur zu anderen Indy's verbinden können. Ich hab mir dann den Code angekuckt und bin davon ausgegangen das der zu allem verbinden kann.
Hier mal der code:

zusammenfalten · markieren

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
IdTCPClient1.Port := StrToInt(Edit2.text);
IdTCPClient1.Host := Edit1.text;


  with IdTCPClient1 do begin
        Connect;
  try
    ListBox1.Items.Add(ReadLn)
  finally
    disconnect;
    end;

  end;

Dann habe ich einfach mal netstat ausgeführt naja und mal wahrlos eine IP und einen passenden Port rausgenommen und es versucht und bekomme immer einen Socket Error.




Also zweites habe ich noch nach einer Hilfe von Delphi-Forum.de
folgendes gebaut:

zusammenfalten · markieren

Delphi-Quellcode:

procedure TForm1.TcpClient1connect(Sender: TObject; Socket: TCustomWinSocket);
begin
    if (CurrentClient = NIL) then begin
        currentclient := Socket;
        TcpClient1.RemoteHost := edit1.text;
        TcpClient1.RemotePort := Edit2.text;
        TcpClient1.Open;
  end
  else
    Socket.Close;
end;

 

 
procedure TForm1.ClientRead(Sender: TObject; Socket: TCustomWinSocket);
  var
    Data: String;
begin

 
Data := Socket.ReceiveText;
Memo1.Text := Data;

 
end;

Ob das funktioniert weiss ich nicht, da ich es nicht hinbekomme, die Proceduren zu starten.