29.03.2010, 13:43
|
|
Познавший АНТИЧАТ
Регистрация: 24.06.2008
Сообщений: 1,996
С нами:
9410786
Репутация:
2731
|
|
PHP код:
procedure TForm1.Button1Click(Sender: TObject);
var
WSAData1: WSAData;
my_sock: TSocket;
dest_addr: sockaddr_in;
buf: string;
res: Array [0..1024] of Char;
reslen: integer;
begin
WSAStartup($101,WSAData1);
my_sock := socket(AF_INET, SOCK_STREAM, 0);
dest_addr.sin_family := AF_INET;
dest_addr.sin_port:=htons(80);
dest_addr.sin_addr.S_addr := inet_addr('192.0.32.10');
connect(my_sock, dest_addr, SizeOf(dest_addr));
buf := 'GET / HTTP/1.1'+#10#13+'Host: example.com'+#10#13;
send(my_sock, buf, sizeof(buf), 0);
recv(my_sock, res, 128, 0); //здесь зависает
ShowMessage(res);
end;
Почему программа на строке
Код:
recv(my_sock, res, 128, 0);
зависает? Что я делаю неправильно в этом WinSock'e? |
|
|