C++で作成したDLLとVBAとで文字列の受渡しをするには？ (ID:62346)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文

> SysAllocStringByteLenの方かも
でした。
一応、全パターンのサンプルを載せます。(使わないのもある)

// VC
void WINAPI Sample01A( const char* p )
{
    ::MessageBoxA( NULL, p, "", MB_OK );
}

void WINAPI Sample01W( const wchar_t* p )
{
    ::MessageBoxW( NULL, p, L"", MB_OK );
}

void WINAPI Sample02A( char* p, int size )
{
    const char s[] = "Hello Ｗｏｒｌｄ";
    if ( size >= sizeof( s ) )
    {
        strcpy( p, s );
    }
}

void WINAPI Sample02W( wchar_t* p, int size )
{
    const wchar_t s[] = L"Hello Ｗｏｒｌｄ";
    if ( size >= sizeof( s ) / sizeof( s[ 0 ] ) )
    {
        wcscpy( p, s );
    }
}

void WINAPI Sample03A( BSTR* b )
{
    const char s[] = "Hello Ｗｏｒｌｄ";
    ::SysFreeString( *b );
    *b = ::SysAllocStringByteLen( s, sizeof( s ) - 1 );
}

void WINAPI Sample03W( BSTR* b )
{
    const wchar_t s[] = L"Hello Ｗｏｒｌｄ";
    ::SysFreeString( *b );
    *b = ::SysAllocString( s );
}

BSTR WINAPI Sample04A()
{
    const char s[] = "Hello Ｗｏｒｌｄ";
    return ::SysAllocStringByteLen( s, sizeof( s ) - 1 );
}

BSTR WINAPI Sample04W()
{
    const wchar_t s[] = L"Hello Ｗｏｒｌｄ";
    return ::SysAllocString( s );
}

' VBA
Private Declare Sub Sample01A Lib "VBDLL.dll" (ByVal s As String)
Private Declare Sub Sample01W Lib "VBDLL.dll" (ByVal s As Long)
Private Declare Sub Sample02A Lib "VBDLL.dll" (ByVal s As String, ByVal l As Long)
Private Declare Sub Sample02W Lib "VBDLL.dll" (ByVal s As Long, ByVal l As Long)
Private Declare Sub Sample03A Lib "VBDLL.dll" (ByRef s As String)
Private Declare Function Sample04A Lib "VBDLL.dll" () As String

Sub Test1()
    Dim s As String
    s = "Hello Ｗｏｒｌｄ"
    Sample01A s
    Sample01W StrPtr(s)
End Sub

Sub Test2()
    Dim s As String
    s = String(256, vbNullChar)
    Sample02A s, 256
    s = Left$(s, InStr(s, vbNullChar) - 1)
    MsgBox s
    s = String(256, vbNullChar)
    Sample02W StrPtr(s), 256
    s = Left$(s, InStr(s, vbNullChar) - 1)
    MsgBox s
End Sub

Sub Test3()
    Dim s As String
    Sample03A s
    MsgBox s
End Sub

Sub Test4()
    Dim s As String
    s = Sample04A()
    MsgBox s
End Sub

VARIANTを使う方法もあります・

←解決時は質問者本人がここをチェックしてください。

戻る