passar um Timage directamente para o relatorio

[rebotea]

Boas

amigos sera possivel enviar a imagem do Timage directamente para o fast report?

Timage Print »»»»»»»»> Picture1 fastreport?

A que a imagem em casa tenho aplicar outra tecnica que me duplica as jpg.

Obrigado

var

Bitmap: TBitmap;

JPegImage: TJPegImage;

begin

Bitmap := TBitmap.Create;

JPegImage := TJPegImage.Create;

try

Bitmap.Width := CNexIRViewer1.Width;

Bitmap.Height := CNexIRViewer1.Height;

CNexIRViewer1.PaintTo(Bitmap.Canvas.Handle, 0, 0);

JPegImage.Assign(Bitmap);

Image1.Canvas.Draw(0,0,JpegImage);

finally

JPegImage.Free;

[jaumDoDelphi]

Tb estou com o mesmo problemas, mas para o RaveReport.

Tenho um cadastro de filmes só que as fotos não esta no BANCO de DADOS

mas sim na pasta do aplicativo JPG/foto001.jpg "POSTER"

Ate agora n achei nada "Resolvido" falando sobre este assunto.

se alguém souber agradeceria muito! :)

[Jhonas]

experimente assim:

var
    Pict: TfrPictureView;
  begin  
    pict := TfrPictureView(frReport1.FindObject('MinhaImage'));  
    
    if Assigned(pict) then    
       Pict.Picture.LoadFromFile('c:\imagem.jpg');  
    
    frReport1.ShowReport;
  end;

abraço

[rebotea]

experimente assim:

var
    Pict: TfrPictureView;
  begin  
    pict := TfrPictureView(frReport1.FindObject('MinhaImage'));  
    
    if Assigned(pict) then    
       Pict.Picture.LoadFromFile('c:\imagem.jpg');  
    
    frReport1.ShowReport;
  end;

abraço

Eu utilizo o codigo abaixo para carregar as fotos do banco de dados. mas o que precisavar era mandar imprimir apartir do timage do form.

Qualquer coisa do genero................ já que preciso com a melhor qualidade possivel Obrigado

Bitmap.Width := IRimage1.Width ;

Bitmap.Height := IRimage1.Height ;

IRimage1.PaintTo(Bitmap.Canvas.Handle, 0, 0);

...............................................

procedure Picture1OnBeforePrint(Sender: TfrxComponent);

var

foto1:String;

fullpath1:string;

begin

if engine.finalpass then

begin

foto1:=(<Fot1>+<InspGeral_sub."Foto1">) ;

fullpath1:= foto1;

if DATEIEXISTIERT(fullpath1) then

begin

picture1.picture.loadfromfile(foto1);

end

else

picture1.picture.loadfromfile(<erro>);

end;

Editado Julho 29, 2010 por rebotea

[Jhonas]

picture1.picture.loadfromfile(foto1);

se voce esta carregando a foto por um caminho que esta no banco e a foto estando em outra pasta, não vejo problema nehhum

abraço

[rebotea]

Devido a ter um active X que não grava devidamente em Bmp,jpg etc. e assim pava ele directo para o report.

Abraço