| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
HTTP запрос с помощью ClientSocket [D6, WinXP]
qwerty2 © (2004-07-29 18:48:00)Есть такой код:
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.
KirGus (2004-07-30 02:51:00) [1]Юзай поиск, зачем топы то повторять!!!!!! (!)
------
http://delphimaster.ru/cgi-bin/forum.pl?id=1087821074&n=4
Palladin (2004-07-29 19:35:00) [2]Внимательней RFC читать надо. После загловка запроса должен идти двойной CRLF.
| |
