Server-/ClientSocket - Routerproblem

[Yheeky]

Hi!

Ich habe folgendes Problem: Ich schreibe gerade an einem Programm, über welches man kommunizieren kann. d.h. User 1 kann User 2 eine Nachricht über die ServerSocket und ClientSocket Komponenten schicken. Soweit klappt auch alles, auch das Auslesen der IP-Adressen, doch ich bin inzwischen auf ein Problem gestoßen: Router
Wenn jemand einen Router hat und ihn nicht richtig eingestellt hat, kommt bei dem User 1 eine Meldung, dass keine Verbindung zusammen kommen kann. Da ich ein hässliches Fenster in meinem Programm nicht gebrauchen kann, sollte man vorher einen kleinen Test machen können. Dieser Test soll zeigen, ob die Nachrichten durch einen (eigenen) Router durchkommen. Wie könnte ich das nun realisieren?
Falls jemand mein Problem nicht verstanden hat, einfach nachfragen

Gruß Yheeky

[mischerr]

Würde da ein Ping nicht reichen?

Grüsse!

[Yheeky]

Ja genau, sowas in der Art dachte ich mir auch. Die Frage ist nur, wie ich das realisieren kann...?

[Duffy]

Hallo Yheeky,

Zitat von Yheeky:

Ja genau, sowas in der Art dachte ich mir auch. Die Frage ist nur, wie ich das realisieren kann...?

genau das wird nicht reichen, um herauszufinden, ob die Verbindung zustande kommen kann oder nicht.

Da Du die Nachricht von deinem Programm über ein Pärchen IPort verschickst, muß der Port nicht unbedingt auf dem Rechner mit Router offenen sein. Also mußt Du prüfen, ob der gewünschte Port offen ist.

Anleitungen zu Port offen sind hier Forum wohl vorhanden.

Bye
Claus

[Yheeky]

Okay, danke Claus. Ich schau' mal.

Gruß Yheeky

[mischerr]

Und wenn ich einen Ping z.B. über Indy sende? Ich hab doch die Möglichkeit, mit TIdIcmpClient.Port, einen Sendeport zu wählen... Es müsste auf der Gegenstelle halt nur jemand auf selbigem Port zuhören und antworten.

Grüsse!

[XHelp]

Ich habe mal für diese zwecke TTcpClient (Internet) verwendet. RemoteHost, RemotePort - das was du testen willst. Active muss auf false sein. Jetzt muss man nur TcpClient.Open machen:

Delphi-Quellcode:

  TC1.Open;
  if TC1.Connected=true then begin
    TC1.Disconnect;
    ...
    ...
    ...
  end;

[Yheeky]

Die Kompo TTcpClient ist aber nicht standardmäßig bei Delphi dabei oder?

[mischerr]

Eigentlich schon - unit sockets!

[XHelp]

Zitat von Yheeky:

Die Kompo TTcpClient ist aber nicht standardmäßig bei Delphi dabei oder?

Doch, guck mal bei Internet - Palette... so ein grüner punkt mit 2 pfeilen.