Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2003.10.20;
Скачать: CL | DM;

Вниз

ClientSocket!!!!!   Найти похожие ветки 

 
oduvan   (2003-08-24 17:01) [0]

Вообщем есть код:


c.Host:="wwwkbp";
c.Port:=80;
c.Open;

st:="action=gettree";
c.Socket.SendText("POST /admin/service_lab/prodkernel.php HTTP/1.0"+#13#10);
c.Socket.SendText("Host: wwwkbp"+#13#10);
c.Socket.SendText("User-Agent: Super User Agent"+#13#10);
c.Socket.SendText("Content-Type: application/x-www-form-urlencoded"+#13#10);
c.Socket.SendText("Content-length: "+inttostr(length(st))+#13#10);
c.Socket.SendText("Referer: http://127.0.0.1/"+#13#10);
c.Socket.SendText(#13#10);
c.Socket.SendText(st);
c.Socket.SendText(#13#10);


Так вот , этот код не работает, только потому, что сокет не успевает сделать коннект, и все остальные команды, после

c.open

не обрабатываются. Как сделать ожидание соединения, если его нет, то типа окошко (Подождите пожалуйста), а потом, после соединения, посылаются данные.

??? Как это сделать?


 
oduvan   (2003-08-24 17:05) [1]

ОООО!

Вот так сработало


c.Host:="wwwkbp";
c.Port:=80;
c.Open;

while not с.Active do
begin
Application.ProcessMessages;
end;

st:="action=gettree";
c.Socket.SendText("POST /admin/service_lab/prodkernel.php HTTP/1.0"+#13#10);
c.Socket.SendText("Host: wwwkbp"+#13#10);
c.Socket.SendText("User-Agent: Super User Agent"+#13#10);
c.Socket.SendText("Content-Type: application/x-www-form-urlencoded"+#13#10);
c.Socket.SendText("Content-length: "+inttostr(length(st))+#13#10);
c.Socket.SendText("Referer: http://127.0.0.1/"+#13#10);
c.Socket.SendText(#13#10);
c.Socket.SendText(st);
c.Socket.SendText(#13#10);


Хочу посоветоваться, правильно ли я сделал? :)


 
SergP ©   (2003-08-24 18:18) [2]

Когда можно будет записывать отправляемые данные в TClientSocket, он сгенерирует событие OnWrite и запрос в принципе можно было бы отправить в самом обработчике.



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

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

Наверх




Память: 0.47 MB
Время: 0.016 c
14-65591
Думкин
2003-10-02 06:33
2003.10.20
С днем рождения! 1 октября.


1-65437
NewD
2003-10-07 17:21
2003.10.20
Очень нужно срочно!!!


3-65348
Alexander Vasjuk
2003-09-29 13:15
2003.10.20
Создание таблицы DBase с помощью ADO


6-65573
Экселенц
2003-08-20 07:33
2003.10.20
соединения с интернетом


11-65401
Alexander
2003-01-28 16:29
2003.10.20
Глюк с PIcon? Вот код, который берёт из ресурса икону 32х32 и