[phoenix_87]

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

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53

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.