PInvoking函数成功，但未接收到结构体值

Question

我有一个 ANSI DLL，它的函数声明如下：

long GetInfo(
   THE_INFO* pINFO
) 

结构 THE_INFO 声明如下：

typedef struct tagTHE_INFO
{
   unsigned long dwSize;
   char          szCopyright[64];
   long          nWidth;
   long          nHeight;
   long          nObjectCount;
   int           bThumbnailImage;
   long          nThumbnailImageWidth;
   long          nThumbnailImageHeight;
   int           bThumbnailObject;
   long          nThumbnailObjectWidth;
   long          nThumbnailObjectHeight;
} 
THE_INFO;

DLL 文档说所有函数都使用 stdcall 调用约定来传递参数。它还进一步定义：

unsigned long    As Unsigned 32-bit integer.
char             As Signed 8-bit integer.
long             As Signed 32-bit integer.
int              As Signed 32-bit integer.

我多年前使用的 COM 包装 DLL 不再受支持，因此我必须直接处理 DLL。我在代码中声明了 DLL 调用和结构，如下所示：

Declare Ansi Function GetInfo Lib "ADLL.dll" (pINFO As THE_INFO) As Integer

<StructLayout(LayoutKind.Sequential)> Friend Class THE_INFO
  Public dwSize As UInteger
  <MarshalAs(UnmanagedType.ByValTStr, SizeConst:=64)>
  Public szCopyright As String
  Public nWidth As Integer
  Public nHeight As Integer
  Public nObjectCount As Integer
  Public bThumbnailImage As Integer
  Public nThumbnailImageWidth As Integer
  Public nThumbnailImageHeight As Integer
  Public bThumbnailObject As Integer
  Public nThumbnailObjectWidth As Integer
  Public nThumbnailObjectHeight As Integer
End Class


Dim Info As New THE_INFO With {.dwSize = 104}
ErrorCode = GetInfo(Info)

函数调用成功表明返回零，因此至少所有内容似乎都已正确声明。但是当我查看返回的 Info 结构时，所有结构成员仍然反映初始值。但至少 nWidth 和 nHeight 成员的值必须大于零，因为基础数据是有效对象。

我认为这与 pinvoking 有关，但我无法向我解释我做错了什么。

Answer 1

通常，您可以使用 Structure 关键字声明结构并传递它 ByRef：

<StructLayout(LayoutKind.Sequential)> _
Friend Structure THE_INFO
    '' etc..
End Structure

Declare Ansi Function GetInfo Lib "ADLL.dll" (ByRef pINFO As THE_INFO) As Integer

将其声明为 Class 也可以，但随后您必须传递 ByVal 并明确告诉 pinvoke 编组器该对象需要被编组回来。像这样：

Declare Ani Function GetInfo Bar Lib "ADLL.dll" (<[In](), Out()> ByVal pINFO As THE_INFO) As Integer

正是缺少 属性导致了您的问题。您还需要 ，因为您初始化了结构的 dwSize 成员。