Permitindo carregar JPG no Quick Report
Boa tarde galera, estou com um caso meio diferente, seguinte: ja fiz teste com script daqui e não deu certo, vamos ao problema:
Tenho que carregar no quickreport, .jpg, vindo do banco oracle no delphi 7:
Tenho esse script dentro de um botão:
Form2.ADOQuery1.Close;
Form2.ADOQuery1.SQL.Clear;
Form2.ADOQuery1.SQL.Add('select fuimg.imagem,fuvw.codfunc,fuvw.nomecompletofunc,fuvw.DESCFUNCAO,doct.cpfnumero,doct.rgnumero,doct.ctpsnumero');
Form2.ADOQuery1.SQL.Add('from vw_funcionarios fuvw, flp_funcionarios func, flp_funcao ativ,vwflp_doctos doct,flp_funcionarios_imagens fuimg');
Form2.ADOQuery1.SQL.Add('where fuvw.codigoempresa = 3 and fuvw.codigofl = 2 and fuvw.CODINTFUNC = fuimg.codintfunc (+) and fuvw.codfuncao = ativ.codfuncao and fuvw.codintfunc = func.codintfunc and fuvw.codintfunc = doct.codintfunc and fuvw.codfunc = '+ edtmatricula.Text);
Form2.ADOQuery1.ExecSQL;
Form2.ADOQuery1.Open;
If FileExists(Form2.ADOQuery1.FieldByName('IMAGEM').AsString) Then
Form2.QRImage1.Picture.LoadFromFile(Form2.ADOQuery1.FieldByName('IMAGEM').AsString)
Else
FORM2.QRImage1.Picture:=Nil;
FORM2.QuickRep1.Preview;
Mostra no relatório, só campo texto, mas não me retorna junto tambem a jpg.
Ou seja, imprimir o nome e foto da pessoa.
O que pode ser?
Desculpas por esse incomodo, mas estou apanhando!!!
Discussão (2)
Carregando comentários...