Subject | Re: [IBO] How I can used JPG in FastReport |
---|---|
Author | Kridchada Kunpreyawat |
Post date | 2001-04-11T03:15:12Z |
Thank you very much, Andreas Pohl.
I can solve from your suggestion.
I can solve from your suggestion.
----- Original Message -----
From: Andreas Pohl
To: IBObjects@yahoogroups.com
Sent: Tuesday, April 10, 2001 4:22 PM
Subject: Re: [IBO] How I can used JPG in FastReport
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/
>
>
>
Yahoo! Groups Sponsor
Click Here to Find Software Faster
Your use of Yahoo! Groups is subject to the Yahoo! Terms of Service.
--------------------------------------------------- Powered by http://se-ed.net
[Non-text portions of this message have been removed]