Показать сообщение отдельно
  #2  
Старый 30.03.2012, 08:57
Аватар для NumLock
NumLock NumLock вне форума
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;
__________________
Пишу программы за еду.
__________________
Ответить с цитированием