2.34. How to print a picture that stored in a file?
a) use TfrReport.OnBeforePrint event:
if View.Name = 'Picture1' then
TfrPictureView(View).Picture.LoadFromFile(...)
to sgxz2000
>>我试了,但是不知道怎么获得frreport的memo控件的显示内容!
请问:memo中的“相对路径”怎么来的?不外乎通过数据库或edit等控件,你在上述提示中
给出“//myserver/pictures/图片名”不就行了么?
TfrReport.OnBeforePrint
------------------------
if View.Name = 'Picture1' then
TfrPictureView(View).Picture.LoadFromFile('//myserver/pictures/图片名')
需要注意的是:通过局域网连接时要设置好“//myserver”的权限。
TY123,我的报表中的master data内容是根据stringgrid的内容显示的,master data在设计时只有一个image控件,一个MEMO控件,但是stringgrid中的图片的路径是stringgrid的一列,memo1的memo属性为“[picpath]”,用于显示PICTURE在服务器上的相对地址的,也就是说图片相对地址是变化的,图片的个数根据STRINGGRID的行数变化,请问该如何设置程序!?
我在fastreport1的onGetValue事件中用了如下代码:
if ansicomparetext(parname,'picpath')= 0 then
parvalue:=stringgrid1.Cells[2,dataset.RecNo+1];
怎么不行呀?我的TfrReport.OnBeforePrint事件如下
------------------------
if View.Name = 'Picture1' then
TfrPictureView(View).Picture.LoadFromFile('//myserver/pictures/图片名')