EPX-Studio调用Dll模块
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+'\Components\DATABASE.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;
EPX是利用基于Pascal的FastScript语言作为基础语言,在其中增加了许多函数与特性的一个扩展,将EPX组件本身融入到语言中去,使其能够更加灵活方便地运用EPX的所有功能,实现与EPX核心的友好交互。
欢迎加入【ePx Studio学习交流群】:113140060
https://jq.qq.com/?_wv=1027&k=5MYPTFX
欢迎加入【ePx Studio学习交流群】:113140060
https://jq.qq.com/?_wv=1027&k=5MYPTFX