[firebase-br] RES: Não estou conseguindo imprimir imagens jpg no firebird com IBO
lazaro
lazaro em usinaalvorada.com.br
Sáb Abr 25 09:17:12 -03 2009
Em vez de você criar um TIBBlobStream porque você não cria um objeto TImage
ou derivado... uma vez que o conteudo binario do blob e uma imagem...
-----Mensagem original-----
De: lista-bounces em firebase.com.br [mailto:lista-bounces em firebase.com.br] Em
nome de NextCorp Informática
Enviada em: sexta-feira, 24 de abril de 2009 22:21
Para: Lista Firebase - BR
Assunto: [firebase-br] Não estou conseguindo imprimir imagens jpg no
firebird com IBO
Caros colegas
Tenho um banco com diversas imagens salvas no formato .jpg e para imprimir
no QR sei que tenho que utilizar o BlobStream para poder imprimir, mas não
funciona
.
Estou utilizando a rotina abaixo, mas nenhuma das linha entre ###### e
###### não está funcionando.
Se alguém poder dar uma olhada, agradeço.
Utilizo delphi 5, IBO, fire 2.1.2 e QR.
procedure TfmqrPlanilhaTreinos.DetailBand1BeforePrint(
Sender: TQRCustomBand; var PrintBand: Boolean);
var
BlobStream : TIBBlobStream;
jpgFoto : TJPEGImage;
begin
if QRDBImage1.Picture = nil then
begin
QRImage2.Picture.Bitmap.FreeImage;
QRImage2.Refresh;
end;
################### nenhuma destas opções funciona, testei destas 3
formas, consultando o help do delphi e o google.
//BlobStream := TIBBlobStream.Create;
//BlobStream :=
dmDados.IBO_qryRelatorio1.CreateBlobStream(dmDados.IBO_qryRelatorio1.FieldBy
Name('exe_img'), bmRead);
//BlobStream := TIBBlobStream.Create(IBO_qryRelatorio1exe_img, bmRead);
######################################################
jpgFoto := TJPEGImage.Create;
try
jpgFoto.LoadFromStream(BlobStream);
QRImage2.Picture.Assign(jpgFoto);
finally
jpgFoto.Free;
BlobStream.Free;
end;
end;
Atenciosamente
Washington André Muller da silva
#######################
NextCorp Informática Ltda
www.nextcorp.com.br
nextcorp em terra.com.br
0xx-(51)-3037-6605
#######################
______________________________________________
FireBase-BR (www.firebase.com.br) - Hospedado em www.locador.com.br
Para saber como gerenciar/excluir seu cadastro na lista, use:
http://www.firebase.com.br/fb/artigo.php?id=1107
Para consultar mensagens antigas: http://firebase.com.br/pesquisa
Mais detalhes sobre a lista de discussão lista