当前位置: 代码迷 >> .NET组件控件 >> 请教:怎样在delphi Active X控件里调用DLL 急
  详细解决方案

请教:怎样在delphi Active X控件里调用DLL 急

热度:8697   发布时间:2013-02-25 00:00:00.0
请问:怎样在delphi Active X控件里调用DLL 急急!!!
打扰大家一下啊!!


在有一个现成DLL,有一个函数可调用,我需要用delphi       ActiveX   做一个ActiveX控件,调用DLL里的函数,
现在的问题是:
1.怎样在ActiveX加载DLL里的函数,
2.我已经用下面这种方法调出了test1函数:
Th:=LoadLibrary( 'E:\test\test.dll ');   //装载DLL
if   Th> 0   then
try
Tp:=GetProcAddress(Th,PChar( 'test1 '));
if   Tp <> nil
then   begin
Tf:=TIntFunc(Tp);
Tf(False);   {调用test1函数}
Result:=true;
end

3.生成test.ocx   在test.htm网页上运行。
4.在本机上测试没有问题,因为我装载DLL使用的是绝对路径。
5.客户机上浏览test.htm网页就出问题了。test.dll   找不到。
6.用extractfilepath获取路径是客户浏览器的路径。
7.我是不是应该把:test.dll打包成.cab让客户机安装???
8.我应该怎样获取:test.dll路径呢?
9.还是从一开始我调DLL的方法就有问题啊!!!
我是菜鸟,大虾们帮帮我啊。

------解决方案--------------------------------------------------------
我刚好也遇到这个问题,帮楼主顶!
  相关解决方案