TImage a TStream

[mjjj]

Estimados, he tenido que retomar este tema, pero sigo sin poder resolverlo.
Para evitar tener que trabajar con DataSnap (ya que aún no lo conozco por completo), he intentado enviar la imagen por medio de un servidor FTP, y ocurre que logro guardar la imagen en el servidor, pero esta tiene un tamaño de 0 byte.

Código Delphi [-]
procedure ...
var
   Stream: TMemoryStream ;
begin

  Stream:= TMemoryStream.Create;
  Stream.Position:= 0;
  image1.Bitmap.SaveToStream(Stream);

// me aseguro que el memorystream tengo alguna imagen, y efectivamente aparece la imagen en el segundo TImage
  image2.Bitmap.LoadFromStream(stream);

with idftp1 do
try
disconnect;
passive:=true;
Connect;

Put(Stream, 'MAS.JPG', FALSE);

finally
      STREAM.Free;
      idftp1.Disconnect;
 
end;

Esto no arroja ningún error, pero tampoco la imagen que deseo en el servidor.
Que podrá ser ???

[pape19]

Hace un par de días que reniego con lo mismo, tu problema original.

En mi caso, mi app en Android(Cliente) toma una foto, y luego se guarda con un ClientDataSet. Esta imagen, la transformo en un stream. Luego en la bd del servidor, se hace la respectiva conversión para el campo blob.

Al igual que vos, no me guarda bien la imágen, y si los otros campos de la tabla. Pudiste resolverlo?

Gracias.