socks5 verbindung testen

[xxl1]

Delphi-Quellcode:

var
Name : TSockAddr;
nRet : Integer;
Socket : TSocket;
WSData : TWSAData;
begin
result := False;
WSAStartup($0101, WSData);
try
Socket := WinSock.Socket(PF_INET, SOCK_STREAM, IPPROTO_IP);
try
if Socket<>INVALID_SOCKET then begin
ZeroMemory(@Name,SizeOf(TSockAddr));
with Name do begin
sin_Family := PF_INET;
sin_Port := htons(3541); // die Portnummer des Servers (hier des Socks5 Servers)
sin_Addr := TInAddr(Inet_Addr(PChar('98.206.10.111'))); // IP Adresse des Socks5 Servers für ip einsetzen z.b '192.168.1.155'
end;
{nRet := Bind(Socket, Name, SizeOf(Name));
if (nRet <> SOCKET_ERROR) then
result := (WinSock.Listen(Socket,SOMAXCONN) <> SOCKET_ERROR);
end;     }      //  Bind+ Listen brauchst du nur wenn du deinen Socket an einen
                //  bestimmten Port binden willst und drauf lauschen! Ein
                //  Serverprogramm also, das du hier wohl nicht willst
                //  stattdessen wohl solltest du mit Connect arbeiten wie oben!
deine_variable:=(Connect(Socket,Name,SizeOf(Name))<>Socket_Error); // connection zum Server aufbauen

Edit: Guck dir vllt auch mal connect im MSDN an!
es sollte eigentlich zu unterscheiden sein ob du einen verbindung herstellen kansnt oder nicht