Fórum Imprimir imagem com QReport #147623

Colegas..

Tenho esta rotina de usar imagems JPEG em banco de dados paradox.
Procedure TForm1.Grava(Tabela:TTable; Campo:TBlobField;Foto:TImage; Dialog:TOpenPictureDialog);
var BS:TBlobStream;
MinhaImagem:TJPEGImage;
Begin
Dialog.InitialDir := ´c:\Digiton´;
Dialog.Execute;
if Dialog.FileName <> ´´ Then
Begin
if not (Tabela.State in [dsEdit, dsInsert]) Then
Tabela.Edit;
BS := TBlobStream.Create((Campo as TBlobField), BMWRITE);
MinhaImagem := TJPEGImage.Create;
MinhaImagem.LoadFromFile(Dialog.FileName);
MinhaImagem.SaveToStream(BS);
Foto.Picture.Assign(MinhaImagem);
BS.Free;
MinhaImagem.Free;
Tabela.Post;
DBISaveChanges(Tabela.Handle);
End;
End;



procedure TForm1.BitBtn2Click(Sender: TObject);
begin
Grava(tbProd,tbProdfoto,image1,OpenDialog);
end;

Como faço para que a imagem JPEG salva no campo Foto da tabela paradox, apareça em um TDBImage ou QRDBImage? Pois tá me dando um erro me falando que o delphi não suporta a imagem?


grato: Jose Luiz