CrtSock

[AidarBik]

Подключил модуль CrtSock, но со своим сайтом не соединяется (aidar.3dn.ru) возвращает страницу как будто такого сайта не существует.
Что не так?

[B_N]

AidarBik, а где код? Как выглядит ошибка? Как это так - возвращает страницу, если сайта не существует? Уточняйте вопрос, пожалуйста.

[AidarBik]

Ошибка 404

[Stilet]

AidarBik

Всетки код в студию приведи.

[AidarBik]

MessageBox(UsersWindow, PChar(HTTPGet('aidar.3dn.ru', '/POP3MailCheck/LastVersion.txt', HTTPHeader)), 'Последняя версия', MB_OK);

[B_N]

AidarBik, неудачную Вы библиотеку нашли. В общем, суть проблемы в том, что эта либа не формирует поле "Host" в запросе, которое, насколько я помню, виртуальным серверам необходимо даже в HTTP 1.0. Вот так:

HTTP/1.1 404 Not Found
Server: UcoZXSrv/1.4.2
Date: Fri, 01 Aug 2008 10:37:14 GMT
Content-Type: text/html; charset=UTF-8
Content-Length: 1352
Connection: close

выглядит ответ на похожий запрос без поля Host, а вот так:

HTTP/1.1 200 OK
Server: UcoZXSrv/1.4.2
Date: Fri, 01 Aug 2008 10:38:46 GMT
Content-Type: text/plain; charset=UTF-8
Content-Length: 3
Last-Modified: Tue, 08 Apr 2008 08:24:22 GMT
Connection: close
Accept-Ranges: bytes

- уже с ним. Делайте выводы. Или перепишите функцию HttpGet в библиотеке, или пользуйтесь чем-нибудь ещё.

[AidarBik]

Сообщение от B_N

Или перепишите функцию HttpGet

А как?

function HTTPGet(Server, URL: String; var Header: String):string;
var
  Handle: Integer;
  sIn, sOut: TextFile;
  S: String;
begin
  Handle:=CallServer(Server, 80);
  if Handle <= 0 then begin
  Result:='';
  Exit;
  end;
  AssignCrtSock(Handle, sIn, sOut);  
  Writeln(sOut, 'Host: ', Server);
  Writeln(sOut, 'GET ', URL, ' HTTP/1.0');
  Writeln(sOut, 'Accept: */*');
  Writeln(sOut, 'Accept-Language: ru');
  Writeln(sOut, 'User-Agent: Mozilla/4.0 (compatible; MSIE 5.5; Windows 98; FREE)');
  //Writeln(sOut, 'User-Agent: POP3 Mail Check/5.0');
  Writeln(sOut, 'Connection: Keep-Alive');
  if Header <> '' then
  Writeln(sOut, Header);
  Writeln(sOut);
  Header:='';
  Result:='';
  Readln(sIn, S);
  while S <> '' do
  begin
    Header:=Header + S;
    Readln(sIn, S);
  end;    
  while not Eof(sIn) do
  begin
    Readln(sIn, S);
   Result:=Result + S;
  end;
  Disconnect(Handle);
end;

Все равно не работает

[B_N]

Поставьте "Host: .............." второй строчкой. Порядок полей неважен, но команда (GET, POST и т.д.) должна быть на первой строке запроса.

[AidarBik]

УРА! Огромное спасибо!