[firebase-br] Não estou conseguindo imprimir imagens jpg no firebird com IBO

[Eduardo Jedliczka]

Aqui não é uma lista de delphi, mas por se tratar de BLOBS do FireBird,
vamos lá:

Este TJpegImage é aquela versão disponibilizada no próprio delphi (no
diretório de extras do CD)  ou é alguma outra ?

Como estas imagens foram gravadas no banco ?  Foram geradas pelo seu
aplicativo (neste caso como está o código) ou geradas por outro ? 

Como você faz para exibir estas imagens pelo seu programa (ou você não
exibe) ?

Já vi muita incompatibilidade entre algumas rotinas que tratam JPEG e
PNG nas versões mais antigas do Delphi (só funcionam usando a mesma
biblioteca).

Abraço

Eduardo.

Em Sex, 2009-04-24 às 22:21 -0300, NextCorp Informática escreveu:

> 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.FieldByName('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