Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2004.10.10;
Скачать: 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 вся ветка

Текущий архив: 2004.10.10;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.023 c
3-1094751452
radiant09
2004-09-09 21:37
2004.10.10
перетаскивание записей в dbgrid e


14-1095714111
Knight
2004-09-21 01:01
2004.10.10
Русские кодовые страницы


1-1095800244
Newad
2004-09-22 00:57
2004.10.10
dll dynamik link


1-1096006472
Kniaz
2004-09-24 10:14
2004.10.10
копирование файла


6-1091520584
Максим
2004-08-03 12:09
2004.10.10
The Bat и Delphi