![]() |
|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
![]() |
|
Опции темы | Поиск в этой теме |
![]() |
#1 |
Пользователь
Регистрация: 19.04.2008
Сообщений: 52
|
![]()
procedure TForm1.Button1Click(Sender: TObject);
var HTTP: TIdHTTP; MPS: TIdMultiPartFormDataStream; S: TStringStream; begin HTTP := TIdHTTP.Create(nil); MPS := TIdMultiPartFormDataStream.Create; S := TStringStream.Create(''); try MPS.AddFormField('domain', Edit1.Text); HTTP.Post('http://'+ Edit1.Text +'.localhost/cht.cgi', MPS, S); Memo1.Text := S.DataString; finally MPS.Free; HTTP.Free; S.Free; end; end; как сюда вставить заголовки? типа User-Agent Host и так далие ... Последний раз редактировалось Editor; 20.04.2008 в 07:03. |
![]() |
![]() |
![]() |
#2 |
Пользователь
Регистрация: 19.04.2008
Сообщений: 52
|
![]()
отзовитесь)))
|
![]() |
![]() |