frxReport中怎样加一个图片变量？ ( 积分: 100 )

frxReport1.Variables[' 变量'] := '';
frxReport1.Variables['var1']:='''' + 'sdgdsg' + '''';//字符串变量
frxReport1.Variables['var1']:=//图片变量怎么做？

http://www.delphibbs.com/delphibbs/dispq.asp?lid=3815165

to:liuying1129
还有更简单的,直接加一个frPictureView设置数据集DataSet和DataField就可以打印图片.
我的意思是,象这样
frxReport1.Variables['var1']:=//图片变量怎么做？

给一个实现的完整例子
procedure TForm1.frxReport1BeforePrint(Sender: TfrxReportComponent);
var
emptypic,picpath:string;
begin
picpath:=ExtractFilePath(Application.ExeName)+ 'pic/'+
labelededit1.Text+'/'+adoquery1.FieldValues['bmh']+'.jpg';
emptypic:=ExtractFilePath(Application.ExeName)+ 'pic/'+
labelededit1.Text+'/00000000000000'+'.jpg';
if (sender is TFrxPictureView) and (sender.Name='Picture1') then
begin
with (sender as TFrxPictureView) do
if FileExists(picpath) then
Picture.LoadFromFile(picpath)
else
Picture.LoadFromFile(emptypic) ;
end;
end;


早期版本的fastreport则应该这样写
procedure TForm1.frReport1BeforePrint(Memo: TStringList; View: TfrView);
begin
//加载照片
if View.Name = 'Picture2' then
if FileExists('photo/'+ado_dt1.FieldValues['bmh'] +'.jpg') then
TfrPictureView(View).Picture.LoadFromFile('photo/'+ado_dt1.FieldValues['bmh'] +'.jpg')
else
TfrPictureView(View).Picture.LoadFromFile('photo/1111111111.jpg')

end;


参见

http://www.delphibbs.com/delphibbs/dispq.asp?lid=3735555

怎么样才能加一个位图变量在左边的变量列表里,当鼠标将这个变量拖到页面时就是个
TfrPictureView,就象拖动字符变量一样?

如果用代码实现这一功能可以参考LPS的方法，
对于你要像FR里列表方法，可以对FR报表单元写扩展方法才行。