在OpenOffice Basic中为DLL声明结构体：VBA移植LibreOffice崩溃问题

核心问题分析 #

LibreOffice Basic（下称LO Basic）的结构体内存布局、字符串处理逻辑和MS Office VBA存在本质差异，尤其是固定长度字符串的内存占用、结构体对齐规则，直接照搬VBA的Type和Declare声明会触发栈溢出或非法内存访问，导致程序崩溃。

适配后的代码实现 #

1. 正确声明WSAData结构体 #

严格按照Windows API的WSADATA内存布局定义，注意固定长度字符串的实际字节数和系统默认4字节对齐规则：

Type WSAData
    wVersion As Integer          ' 2字节，对应API的WORD类型
    wHighVersion As Integer      ' 2字节，对应API的WORD类型
    szDescription As String * 256 ' WSA_DESCRIPTION_SIZE常量实际为256字节
    szSystemStatus As String * 128 ' WSA_SYS_STATUS_SIZE常量实际为128字节
    iMaxSockets As Integer       ' 2字节，对应API的INT类型
    iMaxUdpDg As Integer         ' 2字节，对应API的INT类型
    lpVendorInfo As String * 200 ' 200字节，对应API的CHAR数组
End Type

2. 正确声明DLL函数 #

LO Basic中调用Windows DLL需显式指定参数传递方式，避免歧义：

Declare Function WSAStartup Lib "ws2_32.dll" (ByVal wVersionRequested As Integer, ByRef lpWSAData As WSAData) As Long

3. 调用示例 #

Sub TestWSAStartup()
    Dim wsa As WSAData
    Dim ret As Long
    Dim version As Integer
    
    ' 请求WinSock 2.2版本，高位字节为2，低位字节为2，即&H0202
    version = &H0202
    ret = WSAStartup(version, wsa)
    
    If ret = 0 Then
        MsgBox "WSAStartup调用成功，版本：" & Hex(wsa.wVersion)
        ' 调用后必须清理资源
        Declare Function WSACleanup Lib "ws2_32.dll" () As Long
        WSACleanup()
    Else
        MsgBox "WSAStartup调用失败，错误码：" & ret
    End If
End Sub

关键注意事项 #

• 结构体对齐：Windows API默认采用4字节对齐，LO Basic的Type声明会自动遵循该规则，无需额外配置，但必须保证成员类型和字节数与API定义完全匹配。
• 固定长度字符串：LO Basic中String * N表示占用N个字节的ANSI字符串，和VBA行为一致，但需严格对应API中字符串的实际长度（包含终止符）。
• 参数传递：输出型参数（如lpWSAData）必须用ByRef传递结构体，否则无法获取DLL返回的数据。
• 32位适配：当前代码仅适用于32位版本的LibreOffice，若为64位环境，需将Integer替换为Long、Long替换为LongLong以匹配64位API的类型定义。

LO Basic调用Windows DLL通用规范 #

• 所有DLL函数声明必须显式标注参数传递方式（ByVal/ByRef）。
• 结构体成员类型需严格匹配API的字节数：
  • Integer对应2字节（16位）
  • Long对应4字节（32位）
  • LongLong对应8字节（64位）
  • 固定长度字符串按API要求的字节数声明。
• 避免依赖VBA预定义常量，直接使用数值或自行定义常量。
• 调用DLL后若有资源需要释放，必须调用对应的清理函数（如本例的WSACleanup）。

内容的提问来源于stack exchange，提问作者david