从Visual Basic 6调用C DLL 6:双数据类型不起作用
-
30-09-2019 - |
题
我将简单的用户定义类型(UDT)从Visual Basic 6传递到C DLL。它可以正常工作,除了 双倍的 数据类型,显示为0。
c dll:
#define WIN32_LEAN_AND_MEAN
#include <windows.h>
#include <stdio.h>
typedef struct _UserDefinedType
{
signed int Integer;
unsigned char Byte;
float Float;
double Double;
} UserDefinedType;
int __stdcall Initialize ( void );
int __stdcall SetUDT ( UserDefinedType * UDT );
BOOL WINAPI DllMain ( HINSTANCE Instance, DWORD Reason, LPVOID Reserved )
{
return TRUE;
}
int __stdcall Initialize ( void )
{
return 1;
}
int __stdcall SetUDT ( UserDefinedType * UDT )
{
UDT->Byte = 255;
UDT->Double = 25;
UDT->Float = 12345.12;
UDT->Integer = 1;
return 1;
}
Visual Basic 6代码:
Option Explicit
Private Type UserDefinedType
lonInteger As Long
bytByte As Byte
sinFloat As Single
dblDouble As Double
End Type
Private Declare Function Initialize Lib "C:\VBCDLL.dll" () As Long
Private Declare Function SetUDT Lib "C:\VBCDLL.dll" (ByRef UDT As UserDefinedType) As Long
Private Sub Form_Load()
Dim lonReturn As Long, UDT As UserDefinedType
lonReturn = SetUDT(UDT)
Debug.Print "VBCDLL.SetUDT() = " & CStr(lonReturn)
With UDT
Debug.Print , "Integer:", CStr(.lonInteger)
Debug.Print , "Byte:", CStr(.bytByte)
Debug.Print , "Float:", CStr(.sinFloat)
Debug.Print , "Double:", CStr(.dblDouble)
End With
End Sub
来自Visual Basic的输出:
VBCDLL.SetUDT() = 1
Integer: 1
Byte: 255
Float: 12345.12
Double: 0
如您所见,双重出现 0, ,什么时候应该 25.
解决方案
VB6的UDTS在倍数的地址上对齐4。这是与C:在C:
#pragma pack(push,4)
typedef struct _UserDefinedType
{
signed int Integer;
unsigned char Byte;
float Float;
double Double;
} UserDefinedType;
#pragma pack(pop)
不隶属于 StackOverflow