Показать сообщение отдельно
  #13  
Старый 11.01.2016, 21:30
kyran29 kyran29 вне форума
Прохожий
 
Регистрация: 03.03.2010
Сообщения: 13
Репутация: 10
По умолчанию

Цитата:
Сообщение от M.A.D.M.A.N.
Код:
JpegStream.Position := 0
M.A.D.M.A.N. - спасибо тебе.
Пришлось добавить еще одну переменную
Код:
var FormData:TIdMultiPartFormDataStream;

ну вот так все нормально, файл отправляется,
если есть ошибки try инструкции прошу поправить

Код:
  FormData:=TIdMultiPartFormDataStream.Create;
 try
  Form1.idHTTP1:=TIdHTTP.Create(nil);
  FormData.AddObject('file', 'image/jpeg', JpegStream, 'name.jpg');
  Form1.IdHTTP1.Post(URL, FormData);
 finally
  FreeAndNil(FormData);
  JpegStream.Free;
  bm.Destroy;
  JpegIm.Free;
  Form1.IdHTTP1.Free;
Ответить с цитированием