TImage a TStream

[dec]

Hola,

Comprueba que efectivamente "imgCameraPicture.MultiResBitmap[0]" contiene alguna imagen. No dudo de que sea así, pero, recuerdo haber utilizado el "imgCameraPicture" en Android y accedí la imagen mediante "imgCameraPicture.Bitmap" o algo así... según recuerdo. Lo dicho, prueba que realmente tengas ahí una imagen, prueba guardándola en un archivo o acaso con un simple "<> nil".

[mjjj]

Estimado dec, revicé que realmente existiera la imagen, y así fue. Es más logré insertar la imagen, pero con el código del servidor DataSnap y un componente TIBSql en la aplicación cliente (ejecutada en win32), ya que en Android me arroja un error.

Todo apunta que tengo un problema en el servidor DataSnap, habrá que configurar alguna propiedad especial para poder transportar imagenes, en este caso TStream desde un cliente pasando un servidor DtaSnap que finalmente lo almacene en Firebird 2.5 ??

Este es el código del procedimiento que inserta el registro, cabe señalar que todos los otros campos lo inserta sin problema, el problema es que no inserta la imagen.

Código Delphi [-]
procedure TServerMethods1.insert_imagen(imagen: TStream; usuario: integer);
begin
  with ibsql1 do
  begin
    transaction.Active := true;;
    close;
    sql.clear;
    sql.add('insert into imagenes (usuario, imagen, fecha)');
    sql.add('values (:usuario, :imagen, current_timestamp)');
    ParamByName('imagen').LoadFromStream(imagen);
    ParamByName('usuario').asinteger :=usuario;
    execquery;
    transaction.CommitRetaining;
  end;
end;

[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.