一个关于FR对JPG图片支持的问题。谁用过，进来看看。

Question

不如还是转化成bmp格式再导入吧。

Answer 1

已经打开fr的jpeg支持了吗？在fr.inc文件中

Answer 2

没用。只有在Delphi3里需要打开。

Answer 3

我在我的机器上试了一下，没什么问题呀。delphi 6+fr2.45
我放入两个frPictureView，一个放入bmp,一个放入jpg,预览正常。保存后再load也正常。
而且我改变了BlobType属性，我发现对于这样直接load进来的图片，这个属性好像没用，对于bmp的图像我把BlobType改成wmf也没错。
不知你的程序是不是使用数据库中的图片，如果是的话，好像只能使用一种类型，如果你的表中既有bmp,又有jpg,在打印时会出错。

Answer 4

我也是同样环境呀:2000+delphi6+fr2.45 可真的是有问题呜。还有请教兄台，在运行时，让frPictureView动态调图片，怎么做呀？多谢了，我就在这儿等着

Answer 5

不是数据库中的图片。 我的意思是在程序运行时，给frPictureView指定一个图片的文件名，让它来显示。有什么办法吗，我试过好多办法都失败了。

Answer 6

是动态的报表还是有frf文件？

Answer 7

是一个已经建好的frf文件。动态建报表是可以的。我想让给frReport中的frPictureView一个图片文件名，让它来显示。可我不知该怎么调用frPictureView,也就是不知道该怎么给它赋值。

Answer 8

你看看这段代码行不行？我试过，还可以。
procedure TForm1.Button5Click(Sender: TObject);
var
        l_PicView:TfrPictureView;
begin
        f1.LoadFromFile('w2.frf');
        l_PicView:=TfrPictureView(f1.FindObject('picture1'));
        l_PicView.Picture.LoadFromFile('d:\1.bmp');        f1.ShowReport;
end;

Answer 9

picture1是w2.frf中的一个TfrPictureView

Answer 10

哇。多谢了！！！分数奉上。如果不介意，交个朋友如何？我在北京。我的MAIL:[email protected]

Answer 11

别客气。
很高兴和你交朋友。
[email protected]
我也很想去北京,我有许多朋友也在北京。可是，我在锦州。
啊，对了，该吃午饭了，很高兴和你聊天。886。

Answer 12

请问: 
 l_PicView.Picture.LoadFromFile('d:\1.bmp');这里的loadfromfile后面可以用jpg格式吗？我曾经用过但打印时出错。
我后来是这样处理，也就是我开始说的转化为bmp,只是作个转换再放进报表;
.....
 Jp:=TJPEGImage.Create;
 bp:=TBitmap.Create;
 If Result then
  begin
   Try
    Jp.LoadFromFile(DescPath); //Descpath是jpg文件所在路径
    IF Assigned(jp) then
      With jp do
       begin
          DIBNeeded;
          bp.Assign(jp);
       end;
  except
       bp:=nil;
  end
 end
 Else bp:=nil;
 TfrPictureView(frReport1.FindObject('Picture1')).Picture.Bitmap:=bp;
 frReport1.ShowReport;
 jp.Free;
 bp.Free;
......

Answer 13

对对！！我试一下。多谢您 了。
可惜没分了，如果您想要分，请到另一个贴子上，我给您分。
http://www.csdn.net/expert/topic/461/461514.shtm

Answer 14

关于fr的，还有个问题请教一下，
当我执行下面的语句时
l_PicView:=TfrPictureView(frReport1.FindObject('Picture1'));
为什么l_PicView的值是nil呢？也就是说找不到对象。明明报表里有Picture1这个对象的。

Answer 15

to hwy(大漠霜刀)：
>l_PicView.Picture.LoadFromFile('d:\1.bmp');
>这里的loadfromfile后面可以用jpg格式吗？我曾经用过但打印时出错。
我用jpg可以，预览正确，打印没试。代码如下：
procedure TForm1.Button5Click(Sender: TObject);
var
        l_PicView:TfrPictureView;
begin
        f1.LoadFromFile('w2.frf');
        l_PicView:=TfrPictureView(f1.FindObject('picture1'));
        l_PicView.Picture.LoadFromFile('1.bmp');        l_PicView:=TfrPictureView(f1.FindObject('picture2'));
        l_PicView.Picture.LoadFromFile('2.jpg');        f1.ShowReport;
end;to OneStandNight(雪血):
代码已发到你的邮箱。你看看我的代码，再看看你的程序。

Answer 16

在头文件中包含#include <jpge.hpp>