![]() |
Прежде чем задать вопрос, смотрите FAQ.
Рекомендуем загрузить DRKB.
![]() ![]() |
![]() |
Guest |
![]()
Сообщение
#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"... и всё... подскажите, может есть альтернативные методы для достижения подобных целей?? |
![]() ![]() |
![]() |
Текстовая версия | 28.07.2025 19:21 |