HTTP запрос с помощью ClientSocket

← →
qwerty2 (2004-07-29 18:48) [0]

Есть такой код:

procedure TForm1.ClientSocket1Connect(Sender: TObject;
Socket: TCustomWinSocket);
begin
ClientSocket1.Socket.SendText("GET /mydir/myapp.dll/requestHTML?pcs=1&tname=Ivanov HTTP/1.1");

end;

procedure TForm1.FormCreate(Sender: TObject);
begin
ClientSocket1.Active:=true;

end;

procedure TForm1.ClientSocket1Read(Sender: TObject;
Socket: TCustomWinSocket);
var s:String;
begin
s:= Socket.ReceiveText;
ShowMessage(s);
end;

При старте программы шлется запрос но ответ почему то не приходит! Соединяюсь через telnet с требуемым сервером на 80 порт и шлю точно такой же запрос, и сервер отвечает.
В компоненте ClientSocket1 устанновлены свойства : Host - имя хоста, Port - 80.

← →
Palladin © (2004-07-29 19:35) [1]

Внимательней RFC читать надо. После загловка запроса должен идти двойной CRLF.

Юзай поиск, зачем топы то повторять!!!!!! (!)
------
http://delphimaster.net/view/6-1087821074/

HTTP запрос с помощью ClientSocket Найти похожие ветки