Hallo Jackie,
wenn du es von der Shell aus testen willst, dann ist telnet das Mittel der Wahl. Aus deinem Programm heraus wäre das hier ein Ansatz:
Delphi-Quellcode:
function CanConnect(const aHost: string; aPort: Word): Boolean;
begin
with TIdTCPClient.Create(nil) do
try
Host := aHost;
Port := aPort;
try
Connect;
Result := True;
Disconnect;
except
Result := False;
end;
finally
Free;
end;
end;
Dabei wird der Grund im Fehlerfall verschleiert, der Test ist ein reiner Positivtest, keine Diagnosehilfe.
Grüße vom marabu