TClientSocket и HTTP - В чем ошибка?!

[phoenix_87]

Здравствуйте. Вопрос касается TClientSocket и HTTP - искал где можно, смотрел примеры, перечитывал синтаксис HTTP/1.1 (1.0) - сил больше нет, не пойму в чем ошибка?! Вот код:

var
  Domain, Scenery, aHost: ShortString;
....
procedure TForm1.Button1Click(Sender: TObject);
begin
  //соединяемся с удаленным сервером.
  Domain := 'delphikingdom.com';
  aHost := 'delphikingdom.com';
  Scenery := '/';
  ClientSocket1.Host := Domain;
  ClientSocket1.Port := 80;
  ClientSocket1.Open;
end;

procedure TForm1.ClientSocket1Connect(Sender: TObject;
  Socket: TCustomWinSocket);
var
  st1, st2, st3: string;
  stOut: string;
  ddBuffer : array[0 .. 19] of Char;
  MySocket: TWinSocketStream;
  CountReadBytes, i: Integer;
begin
  MySocket := TWinSocketStream.Create(Socket, 60000);
  st1 := 'GET ' + Scenery + ' HTTP/1.1' + #10;
  st2 := 'Host: ' + aHost + #10; 
  st3 := '#10#10';
  //посылаем заголовки запроса
  if MySocket.Write(st1, Length(st1)) > 0 then
    if MySocket.Write(st2, Length(st2)) > 0 then
      if MySocket.Write(st3, Length(st3)) > 0 then
        Beep;  //для проверки передаются ли данные - передаются всегда
  //ждем данные
  while not MySocket.WaitForData(100) do
    Application.ProcessMessages;
  stOut := '';
  //считываем не более ~17 Кб.
  repeat
    ddBuffer := '';
    CountReadBytes := MySocket.Read(ddBuffer, 20);
    if CountReadBytes > 0 then 
      for i := 0 to CountReadbytes - 1 do
        StOut := StOut + ddBuffer[i]
    else
    begin
      ClientSocket1.Close;
      Break;
    end;
  until Length(stOut) >= 17000;
  MySocket.Free;
  ShowMessage(StOut);    //выводим то что нам отдал сервер
  ClientSocket1.Close;
end;

Проблема в том, что ответ сервера всегда ЛИБО "HTTP....400 Bad Request...", либо ответа вообще нет! (т.е. далее WaitForData вообще не доходит) - смотря какие адреса вводим в Domain, Scenery. Пробовал разные URLы- закономерности не уловил... Положительного результата еще не было, запрос вроде бы сформирован правильно. Помогите разобраться, пожалуйста!

PS. На форме TClientSocket и TButton. Режим ClientSocket - ctBlocking. Среда Delphi7.

[Квэнди]

Попробуй обращаться не просто на домен а на http://домен

[phoenix_87]

Сообщение от Квэнди

Попробуй обращаться не просто на домен а на http://домен

Пробовал, тоже самое. Пробовал по разному - и с www. и без тоже.

[Mangust]

Попробуйте вместо #10 писать #13#10.

[Somebody]

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

Попробуйте вместо #10 писать #13#10.

Попробовать не вредно, но скорее наоборот с #13#10 может глючить.

[B_N]

RFC 2068:

.....................
HTTP/1.1 defines the sequence CR LF as the end-of-line marker for all
protocol elements except the entity-body (see appendix 19.3 for
tolerant applications). The end-of-line marker within an entity-body
is defined by its associated media type, as described in section 3.7.

CRLF = CR LF
.....................

.....................
CR = <US-ASCII CR, carriage return (13)>
LF = <US-ASCII LF, linefeed (10)>
.....................

[Somebody]

оО Я всегда думал по-другому.
Но на
GET / HTTP/1.1
Host: delphikingdom.com
этот сервер нормально отвечает (как с CRLF, так и с LF), поэтому надо в проге ошибки искать.