Cで作成したDLL関数をVBから呼ぶ(.NET)

質問

以前の質問に「Cで作成したDLL関数をVBから呼ぶ」(QNo.1703839)がありますが、下記のコードを見るとVB6での内容だと思います。

Dim keydata As String * 128
keydata = String$(128, Chr(0) & Chr(0))

VB.NETでVC++のDLLで変更した文字列を受けたいのですが、
どのようにすればよいのでしょうか？

VB.NET2003
<DllImport("DllTest.dll")> Private Shared Function _
Test(ByVal s1 As String) As String
End Function

Private Sub btnTest_Click(...) ...
Dim s1 As String = "abc"
Dim s2 As String
Dim s3 As String
s2 = Test(s1)
MessageBox.Show(s2) ' "1"が表示される
s3 = StrConv(s2, VbStrConv.None)
MessageBox.Show(s3) ' 同じく"1"が表示
end sub

VC++のDLL
extern "C" __declspec (dllexport) BSTR __stdcall Test(char* s1)
{
AfxMessageBox(s1); // "abc"が表示される　OK
strcpy(s1, "123");
CString s2;
s2 = "123";
return s2.AllocSysString();
}

また、文字列に全角を含めても大丈夫でしょうか？
Unicodeの変換処理を行う必要があるのでしょうか？

よろしくお願いします。

回答No.1

1050 円（@1050YEN）

Cの作りを壊さず、そのまま利用するのであれば、こんな感じで可能かと思います。

<DllImport("DllTest.dll", CharSet:=CharSet.Unicode)> Private Shared Function _
Test(<MarshalAs(UnmanagedType.LPStr)> ByVal s1 As System.Text.StringBuilder _
) As String
End Function

Sub ボタンクリック()

　　Dim s1 As New System.Text.StringBuilder("てすと", 128)
　　Dim s2 As String
　　Dim s3 As String

　　s2 = Test(s1)
　　MsgBox(s1.ToString().Trim())
　　MsgBox(s2)

End Sub

お礼

早速のご回答ありがとうございます。
うまく動作しました。
見たことの無い呪文のようなコード、勉強させて頂きます。