Essa dica não está funcionando, no Report Builder!

Delphi

14/06/2011

Peguei essa dica no site planeta Delphi, ela se encaixa exatamente no meu sistema, só que a mesma não esta funcionado.   Passos:

- Abra o contrutor de relatórios Report Builder;
- Adicione um componente Image no seu relatório;
- Pressione F11 para visualizar o Object Inspector;
- Dê um duplo clique no evento OnPrint;
- Será criada uma procedure conforme abaixo, sendo que em cada registro que for impresso na banda, será realizado o código dessa procedure.


No exemplo abaixo trabalho com a impressão de crachás, sendo que busco a foto de cada funcionário na pasta Fotos, onde cada Foto tem o nome conforme o código do funcionário.
Exemplo: Funcionário com Código: 350 = C:SistemaFotos350.jpg

procedure TForm1.ppImagePrint(Sender: TObject);
var Caminho: String;
begin
    Caminho:='C:SistemaFotos';
    Caminho:=Caminho+IBQuery1.FieldByName('Codigo').AsString+'.jpg';
    If FileExists(Caminho)=true
    Then ppImage1.Picture.LoadFromFile(Caminho)
    Else ppImage1.Picture:=nil;
end;     O MEU CÓDIGO ESTÁ ASSIM:   procedure TFrmRelRequerMatricula.ppImage2Print(Sender: TObject);
var Caminho: String;
begin
  Caminho:='C:GE\Dados\Fotos';
  Caminho:=Caminho+IBQryAluno.FieldByName('MATRICULA').AsString+'.jpg';
  If FileExists(Caminho) = true Then
     ppImage2.Picture.LoadFromFile(Caminho)
  Else ppImage2.Picture:=nil; end;
end.     Quando debugo na entra na linha:      ppImage2.Picture.LoadFromFile(Caminho) Osmar.

Osmar

Osmar

Curtidas 0
POSTAR