RaveReport Y Bitmap

[Rabata]

Tengo una serie de informes en ravereport 5.0 y delphi7 y etoy intentando cambiar la imagen del componente bitmap del ravereport en tiempo de ejecuccion.

POr ahora lo que he conseguido por lo menos es que no me falle pero la mala noticia es que no me visualiza nada osea el bitmap vacio.

Lo que hago es lo siguiente:



With w_Informe.Rv_Clasifica.Projman Do
Begin

w_Informe.Rv_Clasifica.Open;

MiPagina:=FindRaveComponent('Entrenamiento_1.Page1',nil) as TRavePage;
MiBitmap1:=FindRaveComponent('BitMap1',MiPagina) as TRaveBitmap;

ls_Imagen:='';
If OpenDialog1.Execute Then
ls_Imagen:=OpenDialog1.FileName;

If ls_Imagen <> '' Then
MiBitMap1.Image.LoadFromFile(ls_Imagen);

End;





Muchas Gracias por Vuestra Colaboración...

[Loviedo]

Esto a mí me funciona:

uses RVClass, RVProj, RVCsStd;
procedure TFDM.Verbitmap;
var
MiBitmap1: TRaveBitmap;
MyPage: TRavePage;
begin
RvProject1.open;
With RvProject1.ProjMan do
begin
MyPage := FindRaveComponent('Report1.Page1',nil) as TRavePage;
MiBitmap1:=FindRaveComponent('BitMap1',MyPage) as TRaveBitmap;
MiBitMap1.Image.LoadFromFile('d:\epes\images\aviso2.bmp');
end;
RvProject1.SelectReport('Report1',true);
RvProject1.Execute;
RvProject1.close;
end;

Saludos.