View Single Post
  #1  
Old 18/10/2017
ysiverio ysiverio is offline
Registrado
NULL
 
Join Date: Oct 2017
Posts: 2
Rep Power: 0
ysiverio Va por buen camino
Delphi XE 10.2 Tokio + Rave Reports

Buenas, Soy nuevo en el mundo de la programación en Delphi, quiero crear un reporte en Rave con una imagen que se incluye en una tabla virtual que luego se carga en el rave, en Delphi 7 me funciona bien, ahora estoy migrando el código a Delphi XE 10.2 Tokio y me da error al compilar el código para x64, debajo le dejo el método con el que copio la imagen a una variable Blob y luego la paso para a la tabla virtual del Rave.


Código Delphi [-]
//Función que carga una imagen desde el archivo y la escribe en la conexión RAVE
procedure EscribirImagen(Connection: TRvCustomConnection; ArchivoImagen: string);
var
  Buffer: Pointer;
  Stream: TFileStream;


  begin
  Stream := TFileStream.Create(ArchivoImagen, fmOpenRead);
  try
    Buffer := AllocMem(Stream.Size);
    try
      Stream.Read(Buffer^, Stream.Size);
      Connection.WriteBlobData(Buffer^, Stream.Size);
    finally
      FreeMem(Buffer, Stream.Size);
    end;
  finally
    Stream.Free;
  end;
end;

Last edited by dec : 18/10/2017 at 17:28. Reason: Poner etiquetas DELPHI
Reply With Quote