ich habe den code jetzt so:
Delphi-Quellcode:
function CanListen(Port: DWORD): Boolean;
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;
finally
if Socket <> INVALID_SOCKET
then
CloseSocket(Socket);
end;
finally
WSACleanup;
end;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
if canlisten(3541) = true
then
showmessage('
online');
end;
aber die showmessage zeigt er nicht an, also wäre der proxy nicht online, ist er aber. ihr könnte das ja testen, die
ip ist eingetragen,