
03.07.2011, 14:54
|
 |
Let Me Show You
|
|
Регистрация: 30.04.2010
Адрес: Северодвинск
Сообщения: 5,426
Версия Delphi: 7, XE5
Репутация: 59586
|
|
Код:
uses
IdMultipartFormData, IdHTTP,
var
AIdMultiPartFormDataStream: TIdMultiPartFormDataStream;
begin
AIdMultiPartFormDataStream:=TIdMultiPartFormDataStream.Create;
try
AIdMultiPartFormDataStream.AddFormField('addtype', 'main'');
AIdMultiPartFormDataStream.AddFormField('name', 'Алексей');
AIdMultiPartFormDataStream.AddFormField('***', '***');
AIdMultiPartFormDataStream.AddFormField('***', '***');
AIdMultiPartFormDataStream.AddFormField('***', '***');
// ..
IdHTTP1.Post('http://server.domain', AIdMultiPartFormDataStream);
finally
AIdMultiPartFormDataStream.Free;
end;
end;
__________________
Пишу программы за еду.
__________________
|