如何导入dll函数库？**

alang

我找到问题了
请楼主仔细看看Delphi中的代码  demoapi中的init
再看看 unttlb中的init_dll看看有什么区别就知道了
两个就没有调同一个函数

这是我在平台上中运行的例子

dragonsoft

平台代码

dragonsoft

还是不明白。要怎么修改呢？
我看的这两个是一个函数啊。
function Init_dll(const ip: pchar;
                     const username: pchar;
                     const password: pchar;
                     const db: pchar;
                     const apiCode: pchar
                     ): integer; stdcall;   external 'ImApi.dll' name 'init'  ;


    TInit = function(const ip: pchar;
                     const username: pchar;
                     const password: pchar;
                     const db: pchar;
                     const apiCode: pchar
                     ): integer; stdcall;

dragonsoft

顶一下，紧急啊

alang

在Delphi中，先看看DemoAPI文件
         // 得到函数入口地址
        init := GetProcAddress(DllHandle, PChar('initWithDB'));
这里用的是ImApi.dll的initWithDB函数

在看看导入平台使用的untTLB.pas文件
function Init_dll(const ip: pchar;
                     const username: pchar;
                     const password: pchar;
                     const db: pchar;
                     const apiCode: pchar
                     ): integer; stdcall;   external 'ImApi.dll' name 'init'  ;
这里用的是ImApi.dll的init函数

两个都不是用的一个函数，当然出现一个正确一个出错了

dragonsoft

我修改了tlb文件，不过还是不行。
x3平台中引入bpl会出错，错误见附件。
修改后的tlb2，以及重新生成的smdll和pkgsm.bpl见附件包中。

麻烦再看看要怎么修改？ 谢谢

alang

你试试我导入的文件

dragonsoft

to alang;
我在x3中引入你给的bpl后，还是跟我原来一样的错误。
我想是不是IMAPI.dll这个文件要放哪啊？ 我是放在 developer/lib下了，是不是要引用或是什么的？

alang

IMAPI.dll放在windows\system32目录

dragonsoft

IMAPI.dll放在windows\system32目录
＝＝还是没用。 跟原来一样的错误。
打开studio，出现的是 cann't locate initwithdb in imapi.dll...  还有load pkgsm error什么的。(跟原来的错误是一样的)
引入bpl时出现原来的错误。