Relatório com Imagens quot;Caminho da Imagemquot;

Delphi

16/05/2006

Caros Colegas programadores, estou com uma missão de devenvolver um relatório que poderá ser em Quick ou Rave que terei que colocar Nome, Cargo, Depto, e sua Foto, esta ultima eu só gravo o caminho dela, ou seja ´C:\Arquivos de programa\WCracha\Fotos\Func0056.jpg´, meus conhecimentos em Rave e Quick são mínimos, se alguem puder me passar algo eu agradeço muito, tentei usar o exemplo da Nevrona mas, não rolou. Obrigado.

Paulo F.


Pauloroger

Pauloroger

Curtidas 0

Respostas

Adriano Santos

Adriano Santos

16/05/2006

Caros Colegas programadores, estou com uma missão de devenvolver um relatório que poderá ser em Quick ou Rave que terei que colocar Nome, Cargo, Depto, e sua Foto, esta ultima eu só gravo o caminho dela, ou seja ´C:\Arquivos de programa\WCracha\Fotos\Func0056.jpg´, meus conhecimentos em Rave e Quick são mínimos, se alguem puder me passar algo eu agradeço muito, tentei usar o exemplo da Nevrona mas, não rolou. Obrigado. Paulo F.


Bom, R.A.V.E. eu não manjo, mas em Quick é moleza.
Com o componente TQrImage basta vc dar um LoadFromFile no evento onBeforePrint do Quick. Exemplo:

procedure TForm1.QuickRep1BeforePrint(Sender: TCustomQuickRep;
  var PrintReport: Boolean);
begin
  QRImage1.Picture.LoadFromFile(´C:\Windows\Bolhas.bmp´);
end;



GOSTEI 0
Pauloroger

Pauloroger

16/05/2006

Estou tendo grandes resultados com sua ajuda, porem, estou colocando um codigo para imprimir vários crachas, mas não estando dando certo.

procedure TForm_EtiquetasCracha.QuickRep1BeforePrint(
Sender: TCustomQuickRep; var PrintReport: Boolean);
var
wCaminho : string;

begin
wCaminho := QRDBText_CaminhoFoto.DataField;
QRImageFoto.Picture.LoadFromFile(´C:\Arquivos de programas\WCrachas\Fotos\Func0036.bmp´);


Obs. Se eu colcoar o caminho como acima funciona, porem se colocar:

procedure TForm_EtiquetasCracha.QuickRep1BeforePrint(
Sender: TCustomQuickRep; var PrintReport: Boolean);
var
wCaminho : string;

begin
wCaminho := QRDBText_CaminhoFoto.DataField;
QRImageFoto.Picture.LoadFromFile(wCaminho);


Não aparece imagem nenhuma, agradeço mais uma vez, ops, caso lhe encontre no WebDays, lhe agradecerei pessoalmente. Valeu


GOSTEI 0
Adriano Santos

Adriano Santos

16/05/2006

Estou tendo grandes resultados com sua ajuda, porem, estou colocando um codigo para imprimir vários crachas, mas não estando dando certo. procedure TForm_EtiquetasCracha.QuickRep1BeforePrint( Sender: TCustomQuickRep; var PrintReport: Boolean); var wCaminho : string; begin wCaminho := QRDBText_CaminhoFoto.DataField; QRImageFoto.Picture.LoadFromFile(´C:\Arquivos de programas\WCrachas\Fotos\Func0036.bmp´); Obs. Se eu colcoar o caminho como acima funciona, porem se colocar: procedure TForm_EtiquetasCracha.QuickRep1BeforePrint( Sender: TCustomQuickRep; var PrintReport: Boolean); var wCaminho : string; begin wCaminho := QRDBText_CaminhoFoto.DataField; QRImageFoto.Picture.LoadFromFile(wCaminho); Não aparece imagem nenhuma, agradeço mais uma vez, ops, caso lhe encontre no WebDays, lhe agradecerei pessoalmente. Valeu


Pegue o valor direto do campo, veja:

procedure TForm_EtiquetasCracha.QuickRep1BeforePrint(
  Sender: TCustomQuickRep; var PrintReport: Boolean);
var
  wCaminho : string;
begin
  wCaminho :=  SuaQuery.FieldbyName(´SEU_CAMPO´).AsString;
  QRImageFoto.Picture.LoadFromFile(wCaminho);



GOSTEI 0
Pauloroger

Pauloroger

16/05/2006

Poxa Adriano, estou até com vergonha, mas preciso de você novamente, tentei de tudo, next, fiz outro relatório, mas não consigo pegar a foto do proximo registro, sempre aparece a primeira foto para todos os crachas, já linkado QuickRep1 ao Dataset, mas não estou conseguindo. Obrigado


Paulo


GOSTEI 0
Adriano Santos

Adriano Santos

16/05/2006

Poxa Adriano, estou até com vergonha,...

Não tenha verganho mano, fica tranquilo que estou aki pra ajudar mesmo. Assim como outros colegas, ce tah em casa... :wink:

...next, fiz outro relatório, mas não consigo pegar a foto do proximo registro, sempre aparece a primeira foto para todos os crachas, já linkado QuickRep1 ao Dataset, mas não estou conseguindo. Obrigado


Você colocou um QRImage ou um Qr[b:d0587f9fbe]Db[/b:d0587f9fbe]Image?


GOSTEI 0
Pauloroger

Pauloroger

16/05/2006

coloquei QRImage


procedure TForm_EtiquetasCracha.QuickRep1BeforePrint(
Sender: TCustomQuickRep; var PrintReport: Boolean);
var

wCaminho : string;

begin

wCaminho := DM.ADOQueryCrachas.FieldbyName(´FOTO´).AsString;
QRImageFoto.Picture.LoadFromFile(wCaminho);
DM.ADOQueryCrachas.Next;

end;


GOSTEI 0
Adriano Santos

Adriano Santos

16/05/2006

coloquei QRImage procedure TForm_EtiquetasCracha.QuickRep1BeforePrint( Sender: TCustomQuickRep; var PrintReport: Boolean); var wCaminho : string; begin wCaminho := DM.ADOQueryCrachas.FieldbyName(´FOTO´).AsString; QRImageFoto.Picture.LoadFromFile(wCaminho); DM.ADOQueryCrachas.Next; end;


Não entendo pq vc dá Next, não precisa. O Próprio QuickReport se encarrega de imprimir todos os registros selecionados na query que você fez, ou seja, se você fez uma SELECT que retornou 200 crachás, os 200 serão impressos/visualizados assim que vc usar o comando preview ou print do Quick.


GOSTEI 0
Pauloroger

Pauloroger

16/05/2006

Mas Adriano, mesmo sem NEXT, a foto do segundo cracha não aparece, somente os dados do funcionário estão na sequencia, tenho 12 crachas a serem impressos na QueryCruachas, porem só me aparece a foto da primeira funcionária, quanto aos dados eles sequenciam normalmente.


Muito Grato Adriano

Paulo


GOSTEI 0
Adriano Santos

Adriano Santos

16/05/2006

Perdão [b:501779cb88]Paulo[/b:501779cb88], estive pensando melhor aqui e não me atentei a um fato. O onBeforePrint do Quick, mesmo que você tenha mais de uma página, é executado apenas 1 vez, ou seja, só vai aparecer a foto do primeiro cara mesmo. Use o onBeforePrint da banda onde encontra-se o seu QrImage, assim cada vez que ele imprimir a banda ele vai buscar a foto.

Acho que agora dará certo.

[]s


GOSTEI 0
Pauloroger

Pauloroger

16/05/2006

Cara, valeu mesmo, que Deus lhe abençoe, deu certo, obrigado

Paulo


GOSTEI 0
Adriano Santos

Adriano Santos

16/05/2006

Precisando, estou na área.

[]s


GOSTEI 0
POSTAR