|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
19.04.2008, 19:36 | #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. |
20.04.2008, 07:03 | #2 |
Пользователь
Регистрация: 19.04.2008
Сообщений: 52
|
отзовитесь)))
|