Kontrolle der Ports?

[Andreas D.]

Hi,
wie kann ich kontrollieren, ob bei einem Rechner die Ports offen
oder geschlossen sind? Man könnte es auch verächtlich Portscanner
nennen, klingt aber sehr unfreundlich :-)
Ich habe mehrere Socket-Komponenten installiert, verstehe aber nicht, wie
ich Daten an den/die Port(s) senden kann, bzw. woran ich erkenne,
ob ein Port offen oder geschlossen ist.
Ich wäre dankbar für jede Hilfe...

[Andreas Kosch]

Hallo,

am einfachsten geht das, wenn eine Sockets-Verbindung zu diesem Port aufgebaut wird. Gelingt der Verbindungsaufbau, ist der verwendete Port auf dem Zielrechner aktiv, ansonsten nicht. Das folgende Beispiel prüft nach, ob der Port 80 (HTTP) auf dem Zielrechner aktiv ist (die Portnummer wird im Objektinspektor zugewiesen):
<pre>
procedure TFormMain.CheckWebServer(IPAdr: String);
begin
with ClientSocket1 do
begin
try
Active := False;
Application.ProcessMessages;
Address := IPAdr;
Active := True;
except
end;
end;
end;
</pre&gt