Как отправить на сервер не готовый файл, а, например TJPEGImage или TBitmap?

[Illusiony]

В данный момент я создаю файл и потом отправляю его на сервер. А как сразу отправить TBitmap,TPNGObject или TJPEGImage?
Имею в данный момент такое :
Код:

png := TPNGObject.Create; // ???????
                            png.Assign( bmp_Nxoda);
                            png.SaveToFile(St_login+'Nxoda.png');
                         bmp_Nxoda.Free;
                         bmp_Nxoda_prom.Free;
                         png.Free;
                           FileName := St_login+'Nxoda.png';
                              formData := TIdMultiPartFormDataStream.Create;
                           formData.AddFile('userfile',fileName,'application/octet-stream');
                            sss:='http://мой сайт.ru/file_nxoda.php';

                            sss:=idhtp2.Post(sss,formData);

php:
Код:

<?php

	
$param1=$_POST['param1'];
$param2=$_POST['param2'];
echo $param1.':'.$param2;
$file_=$_FILES['userfile']['tmp_name'];
echo '-'.$file_;
$uploaddir = ''; 
if (!is_uploaded_file($_FILES['userfile']['tmp_name'])){
  print "Файл '".$_FILES['userfile']['tmp_name']."' не залился "; die;
}
if (move_uploaded_file($_FILES['userfile']['tmp_name'], $uploaddir . $_FILES['userfile']['name'])) {
    print "File is valid, and was successfully uploaded.";
} else {
    print "Не могу залить файл'".$_FILES['userfile']['tmp_name']."' РІ '".$uploaddir . $_FILES['userfile']['name']."'"; die;
}

[Stilet]

Затолкай в стрим. Что-то типа:

png.SaveToStream(formData);

[Illusiony]

Сообщение от Stilet

Затолкай в стрим. Что-то типа:

png.SaveToStream(formData);

Так а что делать с этим ?

formData.AddFile('userfile',fileName,'application/octet-stream');

Ведь он ожидает именно файл,а не png := TPNGObject

Если просто перед этим вставить

png.SaveToStream(formData);

то выдает ошибку с Unsupported operation

Р.S. рисунок конечно до этого загрузил:

procedure TForm1.FormCreate(Sender: TObject);
begin
  bmp:= Tbitmap.Create;
bmp.LoadFromFile('Donate_2.bmp');
end;

В новой тестовой програмке использовал bmp


Наверно следует использовать AddObject, как именно сейчас ищу инфу, пока что не очень

[min@y™]

я не поленился, скачал сначала хэлп от инди 10.1.5.0 и почитал про сабж.
затем нашёл нужный модуль в исходниках, залез в него и сделал вывод:
метод AddObject() - то, что надо.

{$I IdDeprecatedImplBugOff.inc}
function TIdMultiPartFormDataStream.AddObject(const AFieldName,
  AContentType, ACharset: string; AFileData: TObject;
  const AFileName: string = ''): TIdFormDataField;
{$I IdDeprecatedImplBugOn.inc}
begin
  if not (AFileData is TStream) then begin // добавляемый объект должен быть стримом!!!
    raise EIdInvalidObjectType.Create(RSMFDInvalidObjectType);
  end;
  Result := AddFormField(AFieldName, AContentType, ACharset, TStream(AFileData), AFileName);
end;

слава мне!

... бурные и продолжительные апплодисменты...

[Illusiony]

Действительно,min@y™, слава тебе

Если сделать так то не выдает ошибок :

 
var
formData: TIdMultiPartFormDataStream;
stream1:TStream;
begin
  FileName := 'Donate_2.bmp';
  formData := TIdMultiPartFormDataStream.Create;
  stream1:=TMemoryStream.Create;
  bmp.SaveToStream(Stream1);
  formData.AddObject('Donate_2.bmp',fileName,Stream1);

Но здесь что то не так :
formData.AddObject('Donate_2.bmp',f ileName,Stream1);

Имя файла уже задано в fileName, тогда 'Donate_2.bmp' не нужно, но без него ошибка.

Вот это, наверное ближе к правде:

formData.AddObject('picture', 'image/bitmap', Stream1, 'Donate_2.bmp');
 formData.AddObject('picture', 'application/octet-stream', Stream1, 'Donate_2.bmp');

procedure AddObject(const AFieldName: string; const AContentType: string; AFileData: TObject; const AFileName: string = '');
Задается 4 параметра и они обязательные все?
Но как правильно указать не знаю.


Кажись работает так :

formData.AddObject('userfile', 'application/octet-stream', Stream1, FileName);

)))