fastreport2.45 怎么不能打印Jpg图像啊? ( 积分: 10 )

  • 主题发起人 主题发起人 dwguo
  • 开始时间 开始时间
D

dwguo

Unregistered / Unconfirmed
GUEST, unregistred user!
bmp格式能打印,可是为什么Jpg格式就不能打印呢? -在线等!
代码如下:
procedure TUserInfoPrintForm.frReport1BeforePrint(Memo: TStringList;
View: TfrView);
var
path: string;
begin
path := ExtractFilePath(Application.ExeName) + 'images/';
if FileExists(path + UserInfoForm.query3.FieldByName('相片').AsString) then
TFrPictureView(frPer.FindObject('imgPer')).Picture.LoadFromFile(path + UserInfoForm.query3.FieldByName('相片').AsString);
end;
 
bmp格式能打印,可是为什么Jpg格式就不能打印呢? -在线等!
代码如下:
procedure TUserInfoPrintForm.frReport1BeforePrint(Memo: TStringList;
View: TfrView);
var
path: string;
begin
path := ExtractFilePath(Application.ExeName) + 'images/';
if FileExists(path + UserInfoForm.query3.FieldByName('相片').AsString) then
TFrPictureView(frPer.FindObject('imgPer')).Picture.LoadFromFile(path + UserInfoForm.query3.FieldByName('相片').AsString);
end;
 
按你的代码,应该是可以的。按道理他是可以根据后缀名自动识别类型的。
在你的程序代码里面 uses 加上 [red]jpeg[/red] 看看。
不行的话根据文件名的后缀,来设置FrPicture.BlobType为btBmp或 btJpg 看看。
这方法我没这样试过,仅供参考,我只用过图片存在blob字段里面时是需要设置bolbtype的。
 
设置FrPicture.BlobType为 btJpg我试过,不起作用。
请问[red]jpeg[/red]怎么加?
有“[”符号啊?
 
在RAVE中,如何将Access中的图片打印出来!!!
我的Fr2.53打印报表时有水印(显示时没有),谁有破解版?难道是我的安装方法不对?
 
后退
顶部