[firebase-br] BlobImage on FBird & QReport

[Wanderson Pereira]

Mario, adapte esse código:

var var BlobStream : TClientBlobStream;
    jpgFoto : TJPEGImage;
begin
    if cdsTitularesFOTO.IsNull then
    begin
      Image1.Picture.Bitmap.FreeImage;
      Image1.visible:=false;
      Image1.Refresh;
      Image1.visible:=true;
      exit;
    end;
    BlobStream := TClientBlobStream.Create(cdsTitularesFOTO, bmRead);
    jpgFoto := TJPEGImage.Create;

    try
      jpgFoto.LoadFromStream(BlobStream);
      Image1.Picture.Assign(jpgFoto);
    finally
      jpgFoto.Free;
      BlobStream.Free;
    end;
end;

Mário Reis escreveu:
> Boas tardes,
>
>  Como podemos imprimir uma imagem de campo Blob FBird
> com o QuickReport.
> Já alguem fez isso. 
> Uso o U_BlobImageFB.Pas mas não estou a ver como fazer 
> para "transportá-lo" para o QReport do D5/7
> Obrigado
> Mário
>
>
> ______________________________________________
> 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
>
>   

-- 
            [ ]s
                   \\|//
                   <o o>
+----------------OOo-V-oOO---------------+
| \/\/anderson R. P. P. - Cabo Frio - RJ |
+--------=====--------------=====--------+
|       mailto:wpereira em ami.com.br       |
|             UIN  - 89166786            |
+----------------------------------------+
* Se está escrito ENTRADA PROIBIDA, para que a porta?*