05.08.2009, 05:09
|
|
Постоянный
Регистрация: 27.10.2008
Сообщений: 380
Провел на форуме:
1249808
Репутация:
149
|
|
СРазу видно что код не рабочий.
str - вообще не объявлено нигде.
рабочий, просто выдран из контекста
А теперь самое главное:
str:='CONNECT '+serv+':'+inttostr(port)+' HTTP/1.0\r\nUser-Agent: Opera/9.60\r\n';
\r\n - это сишные и в Delphi такое не прокатит. и как видиш у тебя тока 1 CRLF вконце
По этому перепиши:
str:='CONNECT '+serv+':'+inttostr(port)+' HTTP/1.0'+#13#10+'User-Agent: Opera/9.60'+#13#10#13#10;
спасибо большое в этом проблема и была, переделал, все работает
если str - string
то лучше send делать так:
send(Sock,@str[1], length(str),0);
выдает ошибку Constant object cannot be passed as var parameter при компиляции (D6)
send(Sock, str, sizeof(str), 0) работает нормально.
|
|
|