Mit folgendem Code baue ich eine Verbindung auf:
Delphi-Quellcode:
Sock := Socket(AF_INET,SOCK_STREAM,0);
ZeroMemory(@SockAddrIn,SizeOf(TSockAddr));
if Sock <> INVALID_SOCKET then
begin
with SockAddrIn do
begin
sin_family := AF_INET;
sin_port := htons(25);
sin_addr.S_addr := inet_addr(@Adress[1]);
end;
if connect(Sock,SockAddrIn,SizeOf(SockAddr_In)) = 0 then
begin
Write('Ein ServerSocket wurde gefunden');
ShutDown(Sock,2);
end
else
begin
Write('Es wurde kein Server gefunden. Fehler ',WSAGetLastError);
end;
Leider sagt mir meine Firewall, ich würde zu Port 1032 connecten und nicht zu Port 25. Mir fällt aber leider keine Idee ein, dies zu überprüfen. Hat da einer eine Idee?