Subject | Re: [IBO] How I can used JPG in FastReport |
---|---|
Author | Andreas Pohl |
Post date | 2001-04-10T09:22:50Z |
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
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/
>
>
>