EPX-Studio调用Dll模块

Posted 2020-11-26 xenli

 1 procedure TForm1.BitBtn1Click(Sender: TObject);
 2 var REP : IExcelPanelXDisp;
 3 modulePath:string;
 4 begin
 5   REP := this.NewEPX;
 6   REP.AddAValue(ADOConnection1); //传递参数
 7   REP.AddAValue(Pid);// //传递参数
 8   modulePath := CommandLine.ModuleRoot+‘ComponentsDATABASE.dll‘;
 9   if this.FileExists(modulePath) then
10   begin
11     REP.CallScriptBuilderComplexFunction(modulePath,‘Main.rpas‘,‘‘,False);
12     REP.FreeMe;
13     REP := Unassigned;
14   end
15   else
16   this.Alert(‘程序模块已丢失，请重新安装！‘);
17 end;
18 
19 
20 //取的传递参数
21 procedure TForm2.FormShow(Sender: TObject);
22 begin
23   if this.ValuesCount = 2 then
24   begin
25     ado := this.values[0];
26     Pid := this.values[1];
27   end;
28 end;