Ver Mensaje Individual
  #1  
Antiguo 18-10-2017
ysiverio ysiverio is offline
Registrado
NULL
 
Registrado: oct 2017
Posts: 2
Reputación: 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;

Última edición por dec fecha: 18-10-2017 a las 18:28:36. Razón: Poner etiquetas DELPHI
Responder Con Cita