IPB
ЛогинПароль:

> ВНИМАНИЕ!

Прежде чем задать вопрос, смотрите FAQ.
Рекомендуем загрузить DRKB.

 
 Ответить  Открыть новую тему 
> Как/чем послать заголовки скрипту и принять ответ?, пробую через TClientSocket - ошибка...
Guest
сообщение 29.06.2005 5:32
Сообщение #1


Гость






устанавливаю на форму TClientSocket присваиваю ему "address" = "ya.ru"
и порт: 80

далее код:
Код
procedure TForm1.Button1Click(Sender: TObject);
var
 cSend : String;
begin
 cSend := 'POST http://ya.ru HTTP/2.0' + #13#10;
 cSend := cSend + 'Referer: http://wwp.somesite.ru' + #13#10;
 cSend := cSend + 'User-Agent: Mozilla/4.06 (Win95; I)' + #13#10;
 cSend := cSend + 'Connection: Keep-Alive' + #13#10;
 cSend := cSend + 'Host: wwp.ya.ru.com:80' + #13#10;
 cSend := cSend + 'Content-type: application/x-www-form-urlencoded' + #13#10;
 cSend := cSend + 'Content-length:9' + #13#10;
 cSend := cSend + 'from=test';
 clientsocket1.Active := True;
 clientsocket1.Socket.SendText(csend);
end;


жму кнопку - ошибка: "Asynchronous socket error 10049"... и всё...
подскажите, может есть альтернативные методы для достижения подобных целей??
 К началу страницы 
+ Ответить 

 Ответить  Открыть новую тему 
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0

 



- Текстовая версия 28.07.2025 19:21
Хостинг предоставлен компанией "Веб Сервис Центр" при поддержке компании "ДокЛаб"