关于VB6呼叫自制的DLL的疑问 - 编程论坛

#2

bczgvip2012-02-18 09:26

可以的话，直接写出声明，两个都要。还有vb6的true值是-1，谢谢。

#3

mayuebo2012-02-18 18:46

VB调用函数的方式和VC不同,VC的是standcall.还有要注意的是值的传递方式.是byval还是byref

#4

wube2012-02-20 00:03

回复 2楼 bczgvip

VC:

bool _stdcall ST2AT(int,int,char*,char*,char*);                //功能函式:STDF转ATDF
bool _stdcall AT2ST(int,int,char*,char*,char*);                //功能函式:ATDF转STDF
bool _stdcall ST2MG(int,int,char*,char*,char*);                //功能函式:STDF档案合并
bool _stdcall AT2MG(int,int,char*,char*,char*);                //功能函式:ATDF档案合并
bool _stdcall ST2SP(int,int,char*,char*,char*);                //功能函式:STDF档案切割

VB:

Public Declare Function ST2MG Lib "FMain.dll" (ByVal opt As Integer, ByVal FCount As Integer, ByVal FileName As String, ByVal TmpFileNameStr As String, ByVal E_FileName As String) As Boolean
Public Declare Function ST2AT Lib "FMain.dll" (ByVal opt As Integer, ByVal FCount As Integer, ByVal FileName As String, ByVal TmpFileNameStr As String, ByVal E_FileName As String) As Boolean
Public Declare Function AT2ST Lib "FMain.dll" (ByVal opt As Integer, ByVal FCount As Integer, ByVal FileName As String, ByVal TmpFileNameStr As String, ByVal E_FileName As String) As Boolean
Public Declare Function AT2MG Lib "FMain.dll" (ByVal opt As Integer, ByVal FCount As Integer, ByVal FileName As String, ByVal TmpFileNameStr As String, ByVal E_FileName As String) As Boolean
Public Declare Function ST2SP Lib "FMain.dll" (ByVal opt As Integer, ByVal FCount As Integer, ByVal FileName As String, ByVal TmpFileNameStr As String, ByVal E_FileName As String) As Boolean

def映射档:

;FMain.def
LIBRARY FMain
EXPORTS
  ST2MG @1
  ST2AT @2
  AT2MG @3
  ST2SP @4

映射是少一个～但是那个目前没用到～VB里也没呼叫到～

#5

wube2012-02-20 00:10

少的那个是因为IEEE754标准协定的缘故～
除不尽的4Bytes(高低位元倒反)的小数转成ASCII码后～
就再也转不回原本的二进制了～
不信你可以试试～
会越转差距越大～
那是写到一半才发现的~~
所以我无法克服～
就没写了～

#6

wube2012-02-20 20:40

结论是～
跟上面每个人（包含我）怀疑的都无关的地方～
因为我是手动黏贴发行版的DLL档～
里面没有内含调试功能～所以无法进行调试～

发行版的DLL档～无法进行代码调试～

然后VB的声明函式返回值改为长整型～
VC的函式返回值改为1 or 0～
就一切OK了～

另外开了个MFC DLL的工程～
把原本的全部转过去～重新编译～
所以原本不能用的东西都能用了～
不用再额外加代码～

中间也碰到过C版某位同志贴的的问题～
再来VB要传控件句柄让VC控制VB的介面变换～
和玩玩多线程～

#7

mayuebo2012-02-20 20:43

指针传递时最好是byref

#8

wube2012-02-20 23:00

VC:

int _stdcall ST2AT(int,int,char&,char&,char&);                //功能函式:STDF转ATDF
int _stdcall AT2ST(int,int,char&,char&,char&);                //功能函式:ATDF转STDF
int _stdcall ST2MG(int,int,char&,char&,char&);                //功能函式:STDF档案合并
int _stdcall AT2MG(int,int,char&,char&,char&);                //功能函式:ATDF档案合并
int _stdcall ST2SP(int,int,char&,char&,char&);                //功能函式:STDF档案切割

VB:

Public Declare Function ST2MG Lib "FMain.dll" (ByVal opt As Integer, ByVal FCount As Integer, ByRef FileName As String, ByRef TmpFileNameStr As String, ByRef E_FileName As String) As Long
Public Declare Function ST2AT Lib "FMain.dll" (ByVal opt As Integer, ByVal FCount As Integer, ByRef FileName As String, ByRef TmpFileNameStr As String, ByRef E_FileName As String) As Long
Public Declare Function AT2ST Lib "FMain.dll" (ByVal opt As Integer, ByVal FCount As Integer, ByRef FileName As String, ByRef TmpFileNameStr As String, ByRef E_FileName As String) As Long
Public Declare Function AT2MG Lib "FMain.dll" (ByVal opt As Integer, ByVal FCount As Integer, ByRef FileName As String, ByRef TmpFileNameStr As String, ByRef E_FileName As String) As Long
Public Declare Function ST2SP Lib "FMain.dll" (ByVal opt As Integer, ByVal FCount As Integer, ByRef FileName As String, ByRef TmpFileNameStr As String, ByRef E_FileName As String) As Long