1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:

uses WinSock;
// Das ist ein Copy&Paste, für Variablenfehler wird nicht gehaftet  :wink: 
function Connectable(Port:integer):boolean;
var ASocket:integer;
    SocketAddr:SOCKADDR_IN;
begin
 Result:=False;
 ASocket:=Socket(AF_INET,SOCK_STREAM,0);
 if ASocket=INVALID_SOCKET then begin
  ShowMessage('Fehler beim Prüfen von: '+IntToStr(Port)+#13+
   'Socket konnte nicht erstellt werden');
  exit;
 end;
 ZeroMemory(@SocketAddr,SizeOf(SOCKADDR_IN));
 SocketAddr.sin_Family:= AF_INET;
 SocketAddr.sin_Addr.S_Addr:=ntohl(IP);
 SocketAddr.sin_Port:=htons(Port);
 Result:=Connect(ASocket,SocketAddr,SizeOf(SocketAddr))<>SOCKET_ERROR;
 CloseSocket(ASocket);
end;