
30.03.2012, 08:57
|
 |
Let Me Show You
|
|
Регистрация: 30.04.2010
Адрес: Северодвинск
Сообщения: 5,426
Версия Delphi: 7, XE5
Репутация: 59586
|
|
Код:
uses
IdMultipartFormData,
...
var
MultiPartFormDataStream: TIdMultiPartFormDataStream;
begin
MultiPartFormDataStream:=TIdMultiPartFormDataStream.Create;
try
MultiPartFormDataStream.AddFile('userfile[]', 'd:\Downloads\Service.jpg', 'image/jpeg');
MultiPartFormDataStream.AddFormField('type', 'direct');
MultiPartFormDataStream.AddFormField('private', '0');
Memo1.Text:=IdHTTP1.Post('http://www.afroimages.org/upload.php', MultiPartFormDataStream);
Memo1.Lines.SaveToFile('d:\Downloads\Response.htm');
finally
MultiPartFormDataStream.Free;
end;
end;
__________________
Пишу программы за еду.
__________________
|