[firebase-br] Não estou conseguindo imprimir imagens jpg no firebird com IBO
NextCorp Informática
nextcorp em terra.com.br
Sex Abr 24 22:21:05 -03 2009
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
#######################
Mais detalhes sobre a lista de discussão lista