Скачать: CL | DM;

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.

---

← →
KirGus ©   (2004-07-30 02:51) [2]

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

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.021 c