ActiveDelphi

[fausto_vaz]

Olá pessoal,

Estou com o seguinte problema. Tenho um banco de dados com informações sobre casas. Cada casa é representada por um código (primary_key). No meu quickreport estou conseguindo listas as informações das casas mas não sei como listas as fotos.
Todas as fotos estão armazenadas em um servidor na pasta \'c:/casas/\', através dos códigos obtenho as fotos... exemplo: c:/casas/45.jpg...
Preciso listas as fotos no quickreport e não estou conseguindo,
algume poderia me ajudar?

desde já agradeço,

Fausto.\'

[thomazs]

Insira um QrImage na band detail, e no evento BeforePrint da band detail carregue as imagens:

QrImage.Picture.LoadFromFile( \'Caminho E Nome Da Imagem\' );
_________________
Suporte e Consultoria em Desenvolvimento de Sistemas
Bacharel em Sistemas de Informação
Especialista em Bancos de Dados
Desenvolvimento: Clipper, Delphi, PHP, Python/Django

[fausto_vaz]

Caro amigo thomarz,
agradeço pela ajuda.


O problema é que no caso que o amigo passou, será carregada de forma estática as fotos... sendo assim, o qrimage carregará somente uma foto, no caso a foto que eu passar por parametro para o loadfromfile (qrimage.Picture.LoadFromFile(\'c:\\casas\\41.jpg\').
No meu caso eu preciso que esse load das fotos seja dinamico, ou seja, carregar as fotos de acordo com as codigo que obtenho do banco, em tempo de execução.
Como eu não tenho as fotos no banco de dados, e sim, em uma pasta do meu sistema... gostaria de saber uma forma de pegar essas fotos e mostra-las no quickreport.

Agradeço desde já a ajuda de todos.

[AlexSousa]

blz fausto_vaz,

amigo se vc já associou cada casa com sua respectiva foto, no quick vc coloca um QRDBIMAGE, e liga o dataset do quick na tabela e pronto, bomacho que isso que vc quer..


qualquer coisa post novamente...

abraços,
_________________
"Guarda com toda a diligência o teu coração, porque dele procedem as fontes da vida....Prov. 4:23"

[thomazs]

Não seria de forma estática não. Veja, porque de alguma forma, existe na sua tabela um jeito de diferenciar qual arquivo pertence a qual casa. Suponhamos que seja pelo campo Codigo. O arquivo seja o Codigo+\'.JPG\'. Daí ficaria assim:

QrImage.Picture.LoadFromFile( \'C:\\casas\\\'+DataSet.FieldName(\'Codigo\').AsString+\'.JPG\' );

Entendeu?
_________________
Suporte e Consultoria em Desenvolvimento de Sistemas
Bacharel em Sistemas de Informação
Especialista em Bancos de Dados
Desenvolvimento: Clipper, Delphi, PHP, Python/Django

[fausto_vaz]

Olá amigo thomarz,

fiz o que você sugeriu, a função ficou assim:

procedure TQRLabelForm.QuickRep1BeforePrint(Sender: TCustomQuickRep;
var PrintReport: Boolean);
begin
QRImage1.Picture.LoadFromFile(\'\\\\servidorsiim\\fotossiim\\\' +
inttostr(qr.FieldValues[\'famcodigo\']) + \'-1.jpg\');
end;

O problema é que só está mostrando a foto de uma casa para todos os registros. O valor do qr.fieldvalues[\'famcodigo\'] nao está sendo atualizado.
Como posso fazer para atualizar?

Agradeço a ajuda dos amigos,

Caro amigo AlexSouza, o problema é que minhas fotos não estão no banco de dado, logo acho que não posso usar o qrdbimage.

[thomazs]

Note que eu disse pra colocar no evento BeforePrint da BAND DETALHE, ou seja, na band DETAIL.

Coloque assim, no BEFOREPRINT da BAND DETAIL:

QRImage1.Picture.LoadFromFile(\'\\\\servidorsiim\\fotossiim\\\' +
inttostr(qr.FieldValues[\'famcodigo\']) + \'-1.jpg\');
PrintBand := True;

PS: Você colocou no BEFOREPRINT do RELATÓRIO.
_________________
Suporte e Consultoria em Desenvolvimento de Sistemas
Bacharel em Sistemas de Informação
Especialista em Bancos de Dados
Desenvolvimento: Clipper, Delphi, PHP, Python/Django

[fausto_vaz]

Caríssimo amigo thomazs,

Fiz o que vc sugeriu, coloquei o código no beforeprint do BandDetail e deu certo. As fotos foram listadas corretamente.

Agradeço muito a ajuda de vocês...

valeu