Ver Mensaje Individual
  #3  
Antiguo 06-03-2008
MaSSaKKre MaSSaKKre is offline
Miembro
 
Registrado: sep 2005
Posts: 34
Reputación: 0
MaSSaKKre Va por buen camino
Smile Problema Resuelto

pues despues de tanto dolor de cabeza y de leer muchas paginas por internet y visitar sitios, ejemplos, etc.

ahi en el foro encontre un hilo donde decian como manipular un objeto del Rave desde delphi, el cual lo adapte y lo hice funcional segun mis necesidades.

mi procedimiento quedo de la siguiente forma

Código Delphi [-]
procedure TBUSQUEDAGENERAL.Button1Click(Sender: TObject);
var
NUM_EMPLEADO:STRING;
RUTAFOTO:STRING;
FOTO:TJPEGIMAGE;
reporte: TRavePage;
fotorave: Travejpegimage;
begin
 RvProject1.ProjectFile:= ( (ExtractFilePath( Application.ExeName ) + 'Individual.rav'));
 RvProject1.Open;
 //********************************

NUM_EMPLEADO:=LABEL11.Caption;
RUTAFOTO:='';    //BUSCANDO EN LA RUTA DE LAS FOTOS
RUTAFOTO:=( (ExtractFilePath( Application.ExeName ) + 'Fotos\'+NUM_EMPLEADO+'.jpg'));
//CARGANDO LA FOTO
IF FILEEXISTS (RUTAFOTO) THEN
BEGIN
FOTO:=TJPEGImage.Create;
FOTO.LoadFromFile(RUTAFOTO);
IMAGE1.Picture.Assign(FOTO);
//Image1.Visible:=true;
FOTO.Free;
With RvProject1.ProjMan do begin
    reporte := FindRaveComponent('Report1.Page1',nil) as TRavePage;
    fotorave := FindRaveComponent('JPEGImage1',reporte) as TRavejpegimage;
    fotorave.Image.LoadFromFile(RUTAFOTO);
  end;
END
  ELSE
    BEGIN
RUTAFOTO:=( (ExtractFilePath( Application.ExeName ) + 'Fotos\LOGO.jpg'));
    FOTO:=TJPEGImage.Create;
    FOTO.LoadFromFile(RUTAFOTO);
IMAGE1.Picture.Assign(FOTO);
FOTO.Free;
With RvProject1.ProjMan do begin
    reporte := FindRaveComponent('Report1.Page1',nil) as TRavePage;
    fotorave := FindRaveComponent('JPEGImage1',reporte) as TRavejpegimage;
    fotorave.Image.LoadFromFile(RUTAFOTO);
  end;
     END;   //EN ELSES


//********************************
 RvProject1.Execute;
 RvProject1.Close;
end;


bueno, deje mi código xq tal vez alguien mas este interesado en hacer lo mismo y no tenga la menor idea de como hacerlo.

Saludos y gracias a los q por lo menos leyeron con la intencion de aportar algo, pero que supongo no saben manejar el Rave al igual que yo.

saludos
Responder Con Cita