API 和方法声明的增强功能

twinBASIC 为 API 和方法声明提供了多项增强功能，使处理外部库变得更加容易。

DeclareWide

DeclareWide 关键字替代 Declare，可禁用 API 调用的 ANSI<->Unicode 转换。这既适用于直接参数，也适用于 UDT 内的 String 参数。例如，以下两个声明在功能上是等效的：

Public Declare PtrSafe Sub FooW Lib "some.dll" (ByVal bar As LongPtr)
Public DeclareWide PtrSafe Sub Foo Lib "some.dll" Alias "FooW" (ByVal bar As String)

两者都代表完全 Unicode 操作，但允许直接使用 String 数据类型，而无需使用 StrPtr 来防止转换。

[!警告] 这不会改变底层数据类型——String 类型是 BSTR，而不是 LPWSTR，因此如果 API 返回预分配的 LPWSTR，而不是填充您创建的缓冲区，它将不会提供有效的 String 类型。当 API 参数给定为 [out] LPWSTR *arg 时就是这种情况。

CDecl 支持

cdecl 调用约定支持 API 声明和代码中的方法。这包括标准 DLL 中的 DLL 导出。

示例

Private DeclareWide PtrSafe Function _wtoi64 CDecl Lib "msvcrt" (ByVal psz As String) As LongLong`

[ DllExport ]
Public Function MyExportedFunction CDecl(foo As Long, Bar As Long) As Long

CDecl 回调

也支持使用 CDecl 的回调。您可以传递包含 CDecl 作为原型定义的委托。以下是一个使用 qsort 函数执行快速排序的示例代码：

Private Delegate Function LongComparator CDecl ( _
    ByRef a As Long, _
    ByRef b As Long _
) As Long

Private Declare PtrSafe Sub qsort CDecl _
Lib "msvcrt" ( _
    ByRef pFirst As Any, _
    ByVal lNumber As Long, _
    ByVal lSize As Long, _
    ByVal pfnComparator As LongComparator _
)

Public Sub CallMe()
    Dim z() As Long
    Dim i As Long
    Dim s As String

    ReDim z(10) As Long
    For i = 0 To UBound(z)
        z(i) = Int(Rnd * 1000)
    Next i
    qsort z(0), UBound(z) + 1, LenB(z(0)), AddressOf Comparator
    For i = 0 To UBound(z)
        s = s & CStr(z(i)) & vbNewLine
    Next i
    MsgBox s
End Sub

Private Function Comparator CDecl( _
    ByRef a As Long, _
    ByRef b As Long _
) As Long
    Comparator = a - b
End Function

支持按值传递用户定义类型

现在可以在 API、接口和任何其他方法中按值传递简单的 UDT。在 VBx 中，这以前需要变通方法，比如分别传递每个参数。

Public Declare PtrSafe Function LBItemFromPt Lib "comctl32" (ByVal hLB As LongPtr, ByVal PXY As POINT, ByVal bAutoScroll As BOOL) As Long

Interface IDropTarget Extends stdole.IUnknown
    Sub DragEnter(ByVal pDataObject As IDataObject, ByVal grfKeyState As KeyStateMouse, ByVal pt As POINT, pdwEffect As DROPEFFECTS)

等等。对于此功能，"简单" UDT 是指不包含引用计数或以其他方式在后台管理的成员，因此可能不包含接口、String 或 Variant 类型。它们可能包含其他 UDT。

可变参数支持

随着 cdecl 调用约定得到完全支持，twinBASIC 还可以处理可变参数函数。在 C/C++ 中，这些函数在其参数中包含省略号 ...。这在 tB 中表示为 {ByRef | ByVal} ParamArray ... As Any()。请注意，必须明确标记 ByRef 或 ByVal；不允许隐式 ByRef。

使用 wsprintfW 的示例

使用给定的 C/C++ 原型：

cpp

int WINAPIV wsprintfW(
  [out] LPWSTR  unnamedParam1,
  [in]  LPCWSTR unnamedParam2,
        ...
);

twinBASIC 声明和使用它的函数可以如下编写：

Private DeclareWide PtrSafe Function wsprintfW CDecl _
Lib "user32" ( _
  ByVal buf As String, _
  ByVal format As String, _
  ByVal ParamArray args As Any() _
) As Long

Private Sub Test()
  Dim buf As String = Space(1024)
  wsprintfW(buf, "%d %d %d", 1, 2, 3)
  MsgBox buf
End Sub

va_list 参数

对于参数中包含 va_list 类型的函数，ParamArray 声明必须是 ByRef。

PreserveSig

[PreserveSig] 属性前面已经针对 COM 方法进行了描述，但它也可以用于 API 声明。对于 API，默认为 True。因此，您可以指定 False 以便将最后一个参数重写为返回值。

示例

Public Declare PtrSafe Function SHGetDesktopFolder Lib "shell32" (ppshf As IShellFolder) As Long

可以重写为：

[PreserveSig(False)]
Public Declare PtrSafe Function SHGetDesktopFolder Lib "shell32" () As IShellFolder`

API 和方法声明的增强功能 ​

DeclareWide ​

CDecl 支持 ​

示例 ​

CDecl 回调 ​

支持按值传递用户定义类型 ​

可变参数支持 ​

使用 wsprintfW 的示例 ​

va_list 参数 ​

PreserveSig ​