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

[lazaro]

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