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);
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 ???