将数组从 VC++ DLL 传递到 VB

• 下载源代码文件 - 18 Kb

引言

本文档展示了如何从 VC++ DLL 向 VB 应用程序传递数组。

步骤

• 创建一个名为 ArrayTry 的 ATL 项目；选择 DLL；点击完成。
• 使用 ATL 对象向导添加一个简单的对象。
• 将短名称设置为 myarray，点击确定。
• 下一步是添加一个方法，该方法接收一个数组，并在填充后返回它。 您可以使用向导添加方法，但 VC6 在这种情况下会抛出错误，因为我们正在使用 SAFEARRAY。 因此，我们将手动执行，我认为这更合乎逻辑。
  
• 因此，转到您的 .idl 文件，在接口的 UUID 声明下方添加以下内容：

interface Imyarray : IDispatch
{
    [id(1), helpstring("method LongArray")] 
        HRESULT LongArray([in,out] SAFEARRAY(long)* pLarr);
};

• 转到您类的 .h 文件，并在最末尾添加以下内容：

// Imyarray
public:
    STDMETHOD(LongArray)(/*[in,out]*/ SAFEARRAY** pLarr);

• 转到您类的 .cpp 文件，并添加以下内容：

STDMETHODIMP Cmyarray::LongArray(SAFEARRAY** pLarr)
{
    
    long lElements; // number of elements in the array
    long iCount;
    HRESULT lResult; // return code for OLE functions

    // pointer to the elements of the array
    long *pArrayElements; 

    long Larray[3] = {4,2,3};//existing array

    //checking if it is an one-dimensional array
    if ( (*pLarr)->cDims != 1 ) return(1);

    // checking if it is an array of longs
    if ( (*pLarr)->cbElements != 4 ) return(2);


    //Getting the number of elements of the array
    lElements = (*pLarr)->rgsabound[0].cElements;

    // locking the array before using its elements
    lResult=SafeArrayLock(*pLarr);
    if(lResult)return(lResult);

    // using the array
    pArrayElements=(long*) (*pLarr)->pvData;
    for (iCount=0; iCount<lElements; iCount++)
        pArrayElements[iCount] = Larray[iCount];

    // releasing the array
    lResult=SafeArrayUnlock(*pLarr);
    if (lResult) return(lResult);


    return S_OK;
}

• 在上面的函数中，我们接收一个数组，该数组将被传递（由 VB 应用程序）并用现有数组中的值填充它。
• 按 F7 构建 DLL，转到“工具”并注册您的 DLL。 您的 DLL 现在已准备就绪。
• 现在创建一个 VB 应用程序作为 EXE；添加一个命令按钮，双击以添加以下代码：

Private Sub Command1_Click()
Dim x As New TRYARRLib.larray

    Dim ArrayOfLongs(3) As Long 'Declare the array
      
    x.LongArray ArrayOfLongs  'Get the array
      
    For Counter = 0 To 2
        'print the array contents
        Debug.Print ArrayOfLongs(Counter) 
    Next
      
End Sub

• 不要忘记添加对 DLL 的引用（转到项目/引用并指向您的 .tlb 文件）。

就这些

在立即窗口中查看结果。 如果有任何解释/疑问，或更好的方法，请给我写信。