как встаивть? - Общие вопросы Delphi

Editor · 19.04.2008, 19:36

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

отзовитесь)))

19.04.2008, 19:36	#1
Editor Пользователь Регистрация: 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
Editor Пользователь Регистрация: 19.04.2008 Сообщений: 52	отзовитесь)))