7492
社区成员
vb调用DELPHI写的动态库问题
vb调用DELPHI写的动态库问题
function MXReadFingerFromSensor(FingerBufchar):Boolean; stdcall; external 'JLZD02.DLL'\\DELPHI中的函数
VB中的代码:
Public Declare Function drjw Lib "JLZD02.DLL" Alias "MXReadFingerFromSensor" (ByVal Pchar As String) As Boolean
Private Sub Command5_Click()
dim s as string
s = String(255, vbNullChar)
If (drjw(s) = False) Then
MsgBox "读入失败!"
Else
MsgBox "读入成功!"
End If
End Sub
程序运行后,提示内存读取错误,然后自动关闭VB,问题出在哪啊,高手帮帮忙吧,弄了一天也没解决啊!!!!
function MXReadFingerFromSensor(FingerBufchar):Boolean; stdcall; external 'JLZD02.DLL'\\DELPHI中的函数
VB中的代码:
Public Declare Function drjw Lib "JLZD02.DLL" Alias "MXReadFingerFromSensor" (ByVal Pchar As String) As Boolean
Private Sub Command5_Click()
dim s as string
s = String(255, vbNullChar)
If (drjw(s) = False) Then
MsgBox "读入失败!"
Else
MsgBox "读入成功!"
End If
End Sub
程序运行后,提示内存读取错误,然后自动关闭VB,问题出在哪啊,高手帮帮忙吧,弄了一天也没解决啊!!!!
...全文
当前发帖距今超过3年，不再开放新的回复
发表回复
bcwtsy 2008-04-04
万分感谢!!!你的方法是对的,问题终于解决了!!!!!!!!!!!!!!!!!!!!!!!!
supergreenbean 2008-04-03
原来是个二维数组,难怪呢
你这样试试
Public Declare Function drjw Lib "JLZD02.DLL" Alias "MXReadFingerFromSensor" (Pchar As Any) As Long
Private Sub Command5_Click()
dim chars(303,255) as byte
If (drjw(chars(0,0) = False) Then
MsgBox "读入失败!"
Else
MsgBox "读入成功!"
End If
End Sub
你这样试试
Public Declare Function drjw Lib "JLZD02.DLL" Alias "MXReadFingerFromSensor" (Pchar As Any) As Long
Private Sub Command5_Click()
dim chars(303,255) as byte
If (drjw(chars(0,0) = False) Then
MsgBox "读入失败!"
Else
MsgBox "读入成功!"
End If
End Sub
bcwtsy 2008-04-03
以上两种的方法都行不通,第一种仍然提示内存读取错误,第二种在释放设备的时候提示内存读取错误!
delphi中是这样定义的:
var
FingerBuf:Array[0..303,0..255] of char;
函数是这样的:function MXReadFingerFromSensor(FingerBuf:Pchar):Boolean; stdcall; external 'JLZD02.DLL'
哪位帮忙解决一下吧!急死我了!!!!!
delphi中是这样定义的:
var
FingerBuf:Array[0..303,0..255] of char;
函数是这样的:function MXReadFingerFromSensor(FingerBuf:Pchar):Boolean; stdcall; external 'JLZD02.DLL'
哪位帮忙解决一下吧!急死我了!!!!!
supergreenbean 2008-04-02
Public Declare Function drjw Lib "JLZD02.DLL" Alias "MXReadFingerFromSensor" (ByVal Pchar As String) As Long
看下你的文档中有关Pchar缓冲区的要求。
看下你的文档中有关Pchar缓冲区的要求。
迈克揉索芙特 2008-04-02
这样试试
If (drjw(strptr(s)) = False) Then
If (drjw(strptr(s)) = False) Then
Qt.VC调用delphi编写的dll lib，详细方法 delphi可以很方便的封装第三方库，导出dll,此方法可以很方便的生成供Qt或VC调用的Lib文件，免去动态加载的麻烦，喜欢的朋友可以试下。我就是这么用的。
PB调用wfZip动态链接库 软件简介： 采用了标准的Dll组件方式，可供多种程序调用。 本组件支持将多个文件快速的压缩成一个zip压缩文件。 本组件支持将指定zip压缩文件解压缩到指定目录。 Delphi、PB、VB原码说明
VB应用程序调用c++编写的动态库（dll）(转) 1.调用的网上经验：当编写供VB调用的C++ DLL时，必须使用def文件来定义导出符号，否则VB程序将链接失败。我们都知道使用def文件是为了避免C++编译器对函数进行重命名，另一个达到相同效果的替代方式是使用extern "C...
delphi10.1调用BarTender2016R5文件打印标签例子程序 4.BarTenderPackage.bpl ---安装好bartender包后生成的文件(BPL可以理解为Delphi特有的动态链接库，与DLL不同的是，它可以包含组件。)
【我本机的位置是：C:\Users\Public\Documents\Embarcadero\Studio\18.0\...
VB 调用动态链接库 作为一种简单易用的Windows开发环境，Visual Basic... VB中高度的封装和模块化减轻了编程者的负担，同时也使开发人员失去了许多访问低层API函数和直接与Windows交互的机会。因此，相比而言，VB应用程序的执行效率和...
vb调用java组件SatJni1.2 SatJni是C++编写的动态链接库，实现了C#,PB,Delphi,VB,VC等对Java的调用，能让你很容易地调用成熟的java类库和第三方java组件。不用再为移值java代码而烦恼。 示例中演示了通过java调用webservice服务（无需代理...
VB调用C#写的WinForm.NET控件 虽然IT开发技术日新月异，不过业界仍然运行着大量的VB系统，这些系统凝聚了不少客户的投资，应当要一定程度的保护和利用。因此也就产生了一种需求，也就是使用旧的开发技术仍然可以使用新技术的产出。本文就讨论...
VB调用Delphi编写的DLL - 2 —CRC32动态库（FCN.DLL） 一、函数列表 函数名称 参数名称 数据类型 返回值 备注 calCRC32 filePath1 String Long 计算文件的CRC32值 ...
JAVA上百实例源码以及开源项目源代码 Java局域网通信——飞鸽传书源代码 28个目标文件 内容索引:JAVA源码,媒体网络,飞鸽传书 Java局域网通信——飞鸽传书源代码，大家都知道VB版、VC版还有Delphi版的飞鸽传书软件，但是Java版的确实不多，因此这个Java...
在VB 中调用动态连接库 在VB 中调用动态连接库 2001-11-08· · ··yesky1 2 3 4 5 6 7 8 下一页 作为一种简单易用的Windows开发环境，Visual Basic从一推出就受到了广大编程人员的欢迎。它使 程序员不必再直接面对纷繁复杂的Windows...
Delphi调用ComputerId.dll生成注册码实例.rar 此动态连接库提供的两个函数为GetCPUSerialNumber和GetMacAddress，分别以字符串指针形式，反回机器的CPU序列号和网卡Mac地址，这两个函数都不带参数，调用方法和Window的API一样。 在压缩包里提供了delphi和VB...
VB如何调用DLL 输出函数可以被其它模块调用，而内部函数则只能在动态连接库内部使用。尽管动态连接库也能输出数据，但实际上它的数据通常是只在内部使用的。使用动态连接库的优点是显而易见的。将应用程序的一部分功能提取出来做成...
使用Java调用dll动态链接库 DLL(Dynamic Link Library)文件为动态链接库文件，又称“应用程序拓展”，是软件文件类型。在Windows中，许多应用程序并不是一个完整的可执行文件，它们被分割成一些相对独立的动态链接库，即DLL文件，放置于系统中...
Delphi中怎么调用VC++创建的动态链接库 Delphi以其独特的面向控件的研发方式、强大的数据库功能、快速的编译技术及简单易学的编程特性,使得他自发布之日起即格外引人注目，许多程式员也因此将他作为最佳选择的研发工具。然而，Delphi在科学计算、低端编程...
