Показать сообщение отдельно
  #1  
Старый 13.04.2012, 15:04
scroyler scroyler вне форума
Активный
 
Регистрация: 01.08.2011
Адрес: ЧЕбоксары
Сообщения: 248
Версия Delphi: XE
Репутация: -615
По умолчанию загрузка картинки на фастпик

Подскажите,что делаю не правильно?

Код:
var
  MultiPartFormDataStream: TIdMultiPartFormDataStream;
  fn,str:string;
  n:integer;
begin
  MultiPartFormDataStream:=TIdMultiPartFormDataStream.Create;
  try
    MultiPartFormDataStream.AddFile('file[]', 'путь к картинке', 'image/jpeg');
    MultiPartFormDataStream.AddFormField('uploading', '1');
    MultiPartFormDataStream.AddFormField('submit', 'Загрузить');
    Memo1.Text:=IdHTTP1.Post('http://fastpic.ru/uploadmulti', MultiPartFormDataStream);
    Memo1.Lines.SaveToFile('C:\Users\User\Desktop\pr.html');
  finally
    MultiPartFormDataStream.Free;
  end;
end;
__________________
Ставь спасибо за спасибо!
Помог?Ставь спасибо!Увидел пост? Поставь спасибо!
Ответить с цитированием