TImage a TStream

[mjjj]

Estimados,

necesito crear un TStream en memoria a contar de un componente TImage, que tiene una imagen previamente cargada.
Como hago esto?

Gracias

[jhonny]

Si la imagen ya está cargada, debería bastar con esto:

Código Delphi [-]
var VStream: TStream;
begin
   VStream := TMemoryStream.Create;
   Image1.Picture.Bitmap.SaveToStream(VStream);
end;

Donde Image1 es el objeto TImage que ya tiene la imagen cargada.

[mjjj]

Estimado, estoy probando Delphi XE5, con una aplicación para Android y un servidor DataSnap.
Lo que necesito es insertar un registro en una base de Dato Firebird 2.5, en un campo tipo BLOB (size 16384, type Text), desde un cliente con el procedimiento insert_imagen (servidor DataSnap).
La imagen está previamente cargada y visualizada en un TImage, llamado imgCameraPicture.

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;

Y desde el cliente llamo al procedimiento como sigue.

Código Delphi [-]
var
  myServer : TServerMethods1Client;
  stream : TStream;
begin
if SQLConnection1.Connected then
begin
  myServer := TServerMethods1Client.Create(SQLConnection1.DBXConnection);
  stream := TMemoryStream.Create;

    try
    imgCameraPicture.MultiResBitmap[0].bitmap.savetostream(stream);
    myServer.insert_imagen(stream, 10);

  finally

    stream.Free;
    myServer.Free;
  end;
end;
end;

con todo esto logro insertar el registro en la base de dato, pero el campo imagen está en blanco. que podrá ser ??

[dec]

Hola,

Ignoro si esto:

Código Delphi [-]
imgCameraPicture.MultiResBitmap[0].bitmap.savetostream(stream);

... no sería más bien algo así:

Código Delphi [-]
imgCameraPicture.bitmap.savetostream(stream);

Pero, de todas formas, prueba esto otro:

Código Delphi [-]
imgCameraPicture.MultiResBitmap[0].bitmap.savetostream(stream);
stream.Position := 0;
myServer.insert_imagen(stream, 10);

A ver si hay suerte.

[mjjj]

Estimado, no he podido lograr insertar una imagen.

Respecto a tu duda, el componente TImage en XE5, trae esas opciones de poder almacenar mas de una imagen.

Habrá algún problema con la definición de la tabla??
O el código del procedimiento en el servidor?

Alguna idea?

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