最近遇到个BUG，搞了3天不断的尝试修改VC6代码，使用不同的写法，最后发现是因为VB6写久了，忽视了变量型态声明的重要性，和编译器
对型态定义不同，尤其是VB6到VC6的参数传递，以至于出现各式各样，千奇百怪的结果。因此想问问，如果在VC6写了个DLL，VB6去呼叫来用
时，当参数型态和传递方式不同时，VB6和VC6在内存的配置是怎么个运作法？

虽然透过同事的协助，已经从结果推论原因了，但是还是想听听专业的说法。

VB6:
-----------------------------------------------------------------------------------------------------------------------------------------------------
'1
Public Declare Function DataReSet Lib "DataReSet.dll" (ByVal opt1 As Integer, ByVal opt2 As Integer, ByVal F1 As String, ByVal F2 As String) As Long
Dim label as Integer,Rate as Integer
label =1:Rate =1
MaxLine = DataReSet(label, Rate, File, Temp1)
-----------------------------------------------------------------------------------------------------------------------------------------------------
'2
Public Declare Function DataReSet Lib "DataReSet.dll" (ByRef opt1 As Integer, ByRef opt2 As Integer, ByVal F1 As String, ByVal F2 As String) As Long
Dim label as Integer,Rate as Integer
label =1:Rate =1
MaxLine = DataReSet(label, Rate, File, Temp1)
-----------------------------------------------------------------------------------------------------------------------------------------------------
'3
Public Declare Function DataReSet Lib "DataReSet.dll" (ByVal opt1 As Long, ByVal opt2 As Long, ByVal F1 As String, ByVal F2 As String) As Long
Dim label as Long,Rate as Long
label =1:Rate =1
MaxLine = DataReSet(label, Rate, File, Temp1)
-----------------------------------------------------------------------------------------------------------------------------------------------------
'4
Public Declare Function DataReSet Lib "DataReSet.dll" (ByRef opt1 As Long, ByRef opt2 As Long, ByVal F1 As String, ByVal F2 As String) As Long
Dim label as Long,Rate as Long
label =1:Rate =1
MaxLine = DataReSet(label, Rate, File, Temp1)
-----------------------------------------------------------------------------------------------------------------------------------------------------
'5
Public Declare Function DataReSet Lib "DataReSet.dll" (ByVal opt1 As Long, ByVal opt2 As Long, ByVal F1 As String, ByVal F2 As String) As Long
MaxLine = DataReSet(1, 1, File, Temp1)
-----------------------------------------------------------------------------------------------------------------------------------------------------
'6
Public Declare Function DataReSet Lib "DataReSet.dll" (ByRef opt1 As Long, ByRef opt2 As Long, ByVal F1 As String, ByVal F2 As String) As Long
MaxLine = DataReSet(1, 1, File, Temp1)
-----------------------------------------------------------------------------------------------------------------------------------------------------

针对opt1(label)和opt2(Rate)两参数使用INT型态和Long型态和ByVal和ByRef，和直接指定1，6种模式交叉使用后的内存配置，
和到VC6取得的opt1和opt2的内存读取实际上的步骤有什么不同。

VC6:
int _stdcall DataReSet(int,int,char*,char*);

经过这次以后用VB6要尽量少用Integer型态的变量声明。才不会再遇到这种鸟事。

好像是这样的。
VB6 里，整形是  二个字节。 相当于 VC6 里的 短整形
VB6 里的 长整形(long ) 占4个字节，相当于 VC6 里的整形。

对于 VC6 里的 其它数据类型，就不记得了。 8 字节的 整形，VB6 是不支持的。
但VB6 里有一 定点数，就是货币形 ，忘了占几字节了。

VC6 的整形数据，是与 计算机的字长有关。所以是 32位，4字节。
VB6 的整形数据，是与 兼容 有关，一直都是 2字节。

这次怪在ByVal模式下使用变量存1(label =1:Rate =1)丢过去C，C接收到的(opt1 opt2)不一定是1
但是如果不用变量，直接输入1丢过去C，接收到的(opt1 opt2)就一定是1
这样就等于完全无视API声明中的参数型态定义
Public Declare Function DataReSet Lib "DataReSet.dll" (ByVal opt1 As Integer, ByVal opt2 As Integer, ByVal F1 As String, ByVal F2 As String) As Long

[ 本帖最后由 yz1025 于 2012-12-26 17:10 编辑 ]

而C的部分也怪怪的，虽然已知C的INT比VB6的INT大2个字节，
但是接收VB6 INT参数时是先开2个字节再往高位元再开2个字节，
一直以为开位址是往后开，结果实际上是往前开，
从C接收到的直反推VB6传1时，C是接收到
?? ?? 00 01
而不是
00 01 ?? ??
估计往前或往后计算的方式和ByVal模式或ByRef模式有关吧。

-----------------------------------------------------------
另一点字元阵列利用指针进行字元重组后产生新的字符串，
透过strcpy到另一个字符串阵列中，最后倾印出来的结果，
等于没改。已经一步一步跟踪了，还特地一个字节一个字节的看，
也特地在结尾加'\0'，结果输出档案还是等于没改。

这次跟踪也才知道在字元阵列结尾处加'\0'和加0和加10
各有不同的效用和目的，也对指针使用上有更多了解，
只是是蛮累人的。这部分属于C的，会另外再研究看看。

[ 本帖最后由 yz1025 于 2012-12-26 17:35 编辑 ]