Hi ihrs
Kann mir mal jemand vielleicht helfen und mir sagen, warum das Programm bei dem Befehl "connect" hängen bleibt und nicht weiterarbeitet? (Es gibt auch keinen Fehler)
Delphi-Quellcode:
uses
WinSock;
procedure TForm1.Button1Click(Sender: TObject);
var
wsaData: TWSADATA;
wVersionRequested:WORD ;
pTarget : Phostent;
sock: sockaddr_in;
targetip: Pchar;
port,bufsize: integer;
s: TSocket;
begin
wVersionRequested := MAKEWORD(1,1);
if (WSAStartup(wVersionRequested,wsaData) < 0) then
exit;
targetip := '127.0.0.1';
port := 135;
bufsize := 512;
s := socket(AF_INET, SOCK_STREAM, 0);
if(s=INVALID_SOCKET) then
begin
ShowMessage('Socket Fehler');
exit;
end;
pTarget := gethostbyname(targetip);
if pTarget = nil then
begin
ShowMessage('Fehler beim auflösen des Hostnamens');
exit;
end;
Move(pTarget^, sock.sin_addr.s_addr, sizeof(pTarget^));
sock.sin_family := AF_INET;
sock.sin_port := htons(port);
if connect(s, sock, sizeof (sock))=SOCKET_ERROR then //hier bleibt das Programm "hängen"
begin
ShowMessage('Fehler beim verbinden zum Host');
exit;
end;
...
..
.
Danke