关于引用dll的问题 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 关于引用dll的问题

共有4552人关注过本帖树形打印复制链接主题：关于引用dll的问题

ycwk

小大 11楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：六尾狐帖子：1219 积分：8467 威望：0 精华：0 注册：2016/2/2 21:52:00

Post By：2017/12/28 9:32:00 [只看该作者]

将SiInterface.dll拷贝到项目目录下，如下在全局代码中声明函数，

Public Declare Function INIT Lib "SiInterface.dll" Alias "INIT"(String pErrMsg) As Integer

Public Declare Function BUSINESS_HANDLE Lib "SiInterface.dll" Alias "BUSINESS_HANDLE"(String InputData,String OutputData) As Integer

提示

编译错误:关键字作为标识符无效。

错误代码：Public Declare Function INIT Lib "SiInterface.dll" Alias "INIT"(String pErrMsg) As Integer

原dll是C写的，声明方式为

初始化函数：

int INIT(char * pErrMsg)

检查整个运行环境：包括网络环境、运行所需文件、参数等的检查

返回值：成功：返回0 ；失败：返回 -1

交易函数：

int BUSINESS_HANDLE( char* inputData,char* outputData)

输入参数：inputData

输出参数：outputData char*

返回值：成功 =0 失败 <0

输入参数是以“^、$、|”分割的字符串

输出也是以“^、$、|”分割的字符串

声明的有问题吗？

[此贴子已经被作者于2017/12/28 9:33:17编辑过]

ycwk

小大 12楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：六尾狐帖子：1219 积分：8467 威望：0 精华：0 注册：2016/2/2 21:52:00

Post By：2017/12/28 9:39:00 [只看该作者]

改为下面的方式后不报错，但不知道string 能否代替c中的 char*?

Public Declare Function INIT Lib "SiInterface.dll" Alias "INIT"(pErrMsg) As Integer

Public Declare Function BUSINESS_HANDLE Lib "SiInterface.dll" Alias "BUSINESS_HANDLE"(InputData As String,OutputData As String) As Integer

有点甜

小大 13楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2017/12/28 9:42:00 [只看该作者]

可以，先测试，如果出问题再提问题。

ycwk

小大 14楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：六尾狐帖子：1219 积分：8467 威望：0 精华：0 注册：2016/2/2 21:52:00

Post By：2017/12/28 9:44:00 [只看该作者]

在命令行中执行了如下代码：

Dim S3 As String

Dim S2 As String= Init(S3)

msgbox(S2)

报下面的错， SiInterface.dll已经拷到下面的目录

此主题相关图片如下：1.png

System.DllNotFoundException: 无法加载 DLL“SiInterface.dll”: 找不到指定的模块。 (异常来自 HRESULT:0x8007007E)。

在 UserCode.INIT(Object pErrMsg)

在 UserCode.Test()

---------------------------

确定

---------------------------

有点甜

小大 15楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2017/12/28 9:46:00 [只看该作者]

dll文件拷贝到foxtable安装文件夹那里去。

ycwk

小大 16楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：六尾狐帖子：1219 积分：8467 威望：0 精华：0 注册：2016/2/2 21:52:00

Post By：2017/12/28 9:57:00 [只看该作者]

可能dll有依赖，把全局代码引用的dll路径改成了绝对路径就行了，如果想改成相对路径(YCZG文件夹里面)，全局代码要怎么写？

此主题相关图片如下：2.png

有点甜

小大 17楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2017/12/28 10:02:00 [只看该作者]

相关的dll全部拷贝到foxtable安装文件夹下即可。

无法写写相对路径的，声明只能写字符常量。

ycwk

小大 18楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：六尾狐帖子：1219 积分：8467 威望：0 精华：0 注册：2016/2/2 21:52:00

Post By：2017/12/28 10:06:00 [只看该作者]

我想在安装文件夹下建一个目录专门管理这些dll也不行吗？如果几十个dll，全部放在foxtable安装目录下，不是很乱？

只能放在根目录下？

如 d:\医保测试\dll库\1.dll

d:\医保测试\dll库\2.dll

…………

还是说只能放在 d:\医保测试\1.dll 2.dll 3.dll??

[此贴子已经被作者于2017/12/28 10:07:58编辑过]

有点甜

小大 19楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2017/12/28 10:17:00 [只看该作者]

可以写子目录的啊。拷贝到foxtable安装目录下之后，这样写，如

<DllImport("test/user32.dll", EntryPoint := "SetCursorPos")> _
Public Function SetCursorPos(x As Integer, y As Integer) As Boolean

End Function

ycwk

小大 20楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：六尾狐帖子：1219 积分：8467 威望：0 精华：0 注册：2016/2/2 21:52:00

Post By：2017/12/28 11:09:00 [只看该作者]

用dll提供者给的demo测试是正常的，

但用下面这个测试不正常

Dim S3 As String

Dim S2 As Integer = Init(S3)

msgbox(S2)

报

---------------------------

版本:2017.8.19.1

---------------------------

代码执行出错，错误信息：

---------------------------

提示

---------------------------

读取初始化文件:Card.ini出错!

---------------------------

确定

---------------------------

System.AccessViolationException: 尝试读取或写入受保护的内存。这通常指示其他内存已损坏。

在 UserCode.INIT(Object pErrMsg)

在 UserCode.Test()

---------------------------

确定

---------------------------

下一主题 >> << 上一主题

总数 42 上一页 1 2 3 4 5 下一页

主题：关于引用dll的问题