Subject Re: [IBO] How I can used JPG in FastReport
Author Andreas Pohl
Since I'm storing my picture stuff in jpeg format only, it's easy to me to
work with it without recognising changed bitmap format. Please try
following:

- include jpeg clause in fr.inc
- create a report
- add a frImageView control to databand
- set suitable BlobType (btjpg) and DataField
- it should work

Alternativly you can assign picture manually (frReport without databand)

procedure TForm1.IB_DataSource1DataChange(Sender: TIB_StatementLink;
Statement : TIB_Statement; Field: TIB_Column);
const loading:boolean=false;
var JI: TJPEGImage;
begin
if loading then exit;
try
if (ib_query1.FieldByName('Picture').IsNull) then begin
Image1.Picture.Assign( nil );
end else begin
loading:=true;
JI := TJPEGImage.Create;
ib_query1.FieldByName('Picture').AssignTo( JI );
Image1.Picture.Assign( JI );
Image1.Refresh;
end;
finally
loading:=false;
end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin

TfrPictureView(frReport1.FindObject('Picture1')).Picture.Assign(image1.Pictu
re);
frReport1.ShowReport;
end;

Please include jpeg.pas in your uses clause!

Mit freundlichem Gruss & Best Regards

Andreas Pohl
apohl@...
www.ibp-consult.com
----- Original Message -----
From: <lester@...>
To: <IBObjects@yahoogroups.com>
Sent: Tuesday, April 10, 2001 10:04 AM
Subject: Re: [IBO] How I can used JPG in FastReport


> I presume you are using the IBO compilation of FastReport?
>
> I have found that there is still some work to do on the
> image streaming section to get it to work. BMP's don't
> display either.
>
> I've got all I needed from FastReport at present, and am
> going to look at the picture problem latter.
>
> Anybody else been there yet?
>
> --
> Lester Caine
> -----------------------------
> L.S.Caine Electronic Services
>
>
>
>
>
>
> Your use of Yahoo! Groups is subject to http://docs.yahoo.com/info/terms/
>
>
>