Ver Mensaje Individual
  #13  
Antiguo 13-05-2004
Julià T. Julià T. is offline
Miembro
 
Registrado: may 2003
Ubicación: en el teclado
Posts: 314
Reputación: 24
Julià T. Va por buen camino
Hola PWT:

Ahora que funciona y ya saber por que, tan solo te hace falta que prestes más atención al texto que te contestan (como en la repuesta número 5), que utilizes los tags "code" o "delphi" y que cierres el report si no lo necesitas, tal como indica el codigo siguiente:

Código Delphi [-]
RVProject1.Open;
MyProject := RVProject1.Projman;
if MyProject<>nil then begin
  MyReport:=RVProject1.Projman.FindRaveCOmponent('Report1',nil) as TRaveReport;
  if MyReport<>nil then begin
    MyPage:= RVProject1.Projman.FindRaveComponent('Page1',MyReport) As TRavePage;
    if MyPage<>nil then begin
      MyBitMap := RVProject1.Projman.FindRaveComponent('Foto',MyPage) As TRaveJPEGImage;
      if MyBitMap<>nil then begin
        MyBitMap.image.LoadFromFile('c:\datos\fotos\foto.jpg');
        RVProject1.Execute;
      end
    end
  end
end
RVProject1.Close;
Responder Con Cita