S
swsm
Unregistered / Unconfirmed
GUEST, unregistred user!
const
AIPOptions: string = 'toolbar=no,status=no,menubar=yes,scrollbars=yes,resizable=yes,location=no,directories=no,width=1000,height=700';
var
aipurl :string;
rvproject1.Open;
rvproject1.SelectReport('report1',true);//选择要打印的报表
RvSystem1.DoNativeOutput:=false;
RvSystem1.DefaultDest:= rdFile;//保存成文件
RvSystem1.RenderObject:=RvRenderHTML1;//保存成HTML格式
RvSystem1.OutputFileName:='files/test.html';
//存放的路径
RvSystem1.SystemSetups:=RvSystem1.SystemSetups-[ssAllowSetup];
try
rvproject1.Execute;//生成报表
AIPURL := WebApplication.URLBase + '/files/' + 'test.html';
//IE打开第一页报表
AddToInitProc('NewWindow("' + AIPURL + '", "Agenda", "' + AIPOptions+'");');
except
webapplication.ShowMessage('生成报表文件错误!');
end;
以上是我下载的一段代码,编译成exe运行无问题,但是编译成dll就不行,我给每句语句加上try...except...end的方法查出是以rvproject1.……那几句有问题,但不知为什么,也不知道怎么改,望各位高手伸出援助之手,小弟先谢过了
AIPOptions: string = 'toolbar=no,status=no,menubar=yes,scrollbars=yes,resizable=yes,location=no,directories=no,width=1000,height=700';
var
aipurl :string;
rvproject1.Open;
rvproject1.SelectReport('report1',true);//选择要打印的报表
RvSystem1.DoNativeOutput:=false;
RvSystem1.DefaultDest:= rdFile;//保存成文件
RvSystem1.RenderObject:=RvRenderHTML1;//保存成HTML格式
RvSystem1.OutputFileName:='files/test.html';
//存放的路径
RvSystem1.SystemSetups:=RvSystem1.SystemSetups-[ssAllowSetup];
try
rvproject1.Execute;//生成报表
AIPURL := WebApplication.URLBase + '/files/' + 'test.html';
//IE打开第一页报表
AddToInitProc('NewWindow("' + AIPURL + '", "Agenda", "' + AIPOptions+'");');
except
webapplication.ShowMessage('生成报表文件错误!');
end;
以上是我下载的一段代码,编译成exe运行无问题,但是编译成dll就不行,我给每句语句加上try...except...end的方法查出是以rvproject1.……那几句有问题,但不知为什么,也不知道怎么改,望各位高手伸出援助之手,小弟先谢过了