127.0.0.1

[ДралсяСошибками]

Всем привет!
Есть простенький HTTP сервер на основе TidHTTPServer.
Браузер коннектится нормально и сервер отвечает

(Request-Line):GET / HTTP/1.1
Host:127.0.0.1
User-Agent:Mozilla/5.0 (Windows NT 6.1; rv:35.0) Gecko/20100101 Firefox/35.0
Accept:text/html,application/xhtml+xml,application/xml;q=0.9,*/*;q=0.8
Accept-Language:ru-RU,ru;q=0.8,en-US;q=0.5,en;q=0.3
Accept-Encoding:gzip, deflate
Cookie:vc=1
Connection:keep-alive

А вот если коннектится через сокет, то ответ приходит от гугла

(Request-Line):GET / HTTP/1.1
Host:127.0.0.1
User-Agent:Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.0)
Connection:close

Что не так я делаю?

Заземляться горшком с гвоздём не предлагать)))

[Stilet]

коннектится через сокет

Как эту фразу следует понимать?

[ДралсяСошибками]

send'ом)))

[Stilet]

Извини, не понимаю.

[Alex11223]

https://msdn.microsoft.com/en-us/lib...=vs.85%29.aspx видимо.

Но автор лучше бы код показал, а не только текст запроса.

[ДралсяСошибками]

procedure TForm1.Button1Click(Sender: TObject);
var
  WSAData: TWSAData;
  WSocket: TSocket;
  SockAddr: TSockAddr;
  Buffer: Array [0..4095] of Byte;
  Str: String;
begin
  Str := 'GET / HTTP/1.1' + #13#10 +
         'Host: 127.0.0.1' + #13#10 +
         'User-Agent: Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.0)' + #13#10 +
         'Connection: close' + #13#10 + #13#10;
  WSAStartup($202, WSAData);
  WSocket := Socket(AF_INET, SOCK_STREAM, IPPROTO_TCP);
  FillChar(SockAddr, SizeOf(TSockAddr), 0);
  SockAddr.sin_family := AF_INET;
  SockAddr.sin_port := htons(80);
  SockAddr.sin_addr.s_addr := inet_addr('127.0.0.1');
  Connect(WSocket, SockAddr, SizeOf(TSockAddr));
  Move(Str[1], Buffer, Length(Str) * SizeOf(Str[1]));
  Send(WSocket, Buffer, SizeOf(Buffer), 0);
  CloseSocket(WSocket);
  WSACleanup;
end;

Теперь вообще сервер отказывается отвечать(((

Recv(WSocket, Buffer, SizeOf(Buffer), 0);
после сенда забыл(((

[Stilet]

Connect(WSocket, SockAddr, SizeOf(TSockAddr));

А где обработка ошибок?

[ДралсяСошибками]

Да это я набросал аналог того, что в проге, там все обработки ошибок есть, не стал оттуда выдирать, так как там много лишнего. Ошибок никаких, send отправляет запрос, сервер почему-то перенаправляет в гугорвский поиск с запросом 127.0.0.1

хз, может у меня какие косяки в винде(((

[Stilet]

сервер почему-то перенаправляет в гугорвский поиск

Всмысле твой idHTTPServer?
Не может такого быть. Поставь на него бряк или напиши ведение логов, и посмотри что ему реально приходит. Как вариант - отключить инет на время проб.
Это ерунда какая-то, я тоже этот компонент использовал и никакого перенаправления за ним замечено никогда не було.

[ДралсяСошибками]

Ставил бряк на IdHTTPServerCommandGet, браузер отрабатывает нормально, IdHTTP тоже, а вот мой код не отрабатывает, интернет не отключал, наверно всё-таки винда уже на исдохе, слишком много в последнее время каких-то нелепых ошибок, пожалуй переустановлю её)))