Загрузка картинки на сервер

[bilibian]

Привет!

Загружаю картинку на сервер:

FormData := TIdMultiPartFormDataStream.Create;
try
  FormData.Clear;
  FormData.AddFile('photo',img,'multipart/form-data');
  UpFile:=idhttp1.Post(UpUrl,FormData);
finally
  FormData.Free;
end;

В переменной img хранится путь до картинки, которая лежит у меня на ПК.

Собственно сам вопрос: как отправлять картинку, которая загружена в Image1? То есть нужно сделать тоже самое, только, чтобы картинка грузилась не с компа, а из Image1.

Если я правильно понимаю, нужно вместо img написать, что то вроде Image1.picture.и какой то параметр. Подскажите?

[Toxa]

если у AddFile второй параметр string, то можно из image сохранить картинку на диск и указать путь
либо поискать другие методы у TIdMultiPartFormDataStream, возможно есть какой нить метод куда можно передать stream

а вообще можно почитать документацию к компоненту

[bilibian]

Toxa, да, второй параметр это string, но сохранять изображение обратно, не вариант. Погуглил, ничего пока найти не удалось.

[Человек_Борща]

Собственно сам вопрос: как отправлять картинку, которая загружена в Image1? То есть нужно сделать тоже самое, только, чтобы картинка грузилась не с компа, а из Image1.

Сохранять в Stream и передавать его, установив свой mime-тип.