Ｃ＋＋でＤＬＬを作って、ＶＢで呼び出しましたが、思った結果にならない。

前提・実現したいこと

Ｃ＋＋でＤＬＬを作って、ＶＢで呼び出しました。
ＤＬＬの戻り値をＳｔｒｉｎｇにしたのですが、ＶＢで呼び出した結果にゴミがついています。
なぜこんなゴミがついているのか、どうすればなくなるのか知りたい。

発生している問題・エラーメッセージ

実行結果
p}'Ver0.05

「p}'」がゴミで、実行する度に内容が違います。

該当のソースコード

＜ＶＣ＋＋＞
//#includeの前の(は表示がおかしくなるので付けた。実際のコードにはついていません。

(#include "stdafx.h"
(#include <string>
extern "C" __declspec(dllexport) std::string DLLVersion() {
return "Ver0.05";
}

＜ＶＢ＞
-----モジュールファイル
'DLLFileがDLLファイル名

Imports System.Runtime.InteropServices
Module M02_DLL_Imp
<DllImport(DLLFile, CallingConvention:=CallingConvention.Cdecl, EntryPoint:="DLLVersion")> _
Public Function DLLVersion() As String
End Function
End Module

-----フォーム
Public Class F01_Main
Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
Dim DLLVer As String
DLLVer = DLLVersion()
Debug.WriteLine(DLLVer)
End Sub
End Class

補足情報（FW/ツールのバージョンなど）

開発環境
ＯＳ：Ｗｉｎ１０　６４ｂｉｔ
ＶＣ＋＋：Ｖｉｓｕａｌ　Ｃ＋＋　２０１７　
ＶＢ：Ｖｉｓｕａｌ　Ｂａｓｉｃ　２０１０　Ｅｘｐｒｅｓｓ

行動規範の内容に同意します

回答2件

ベストアンサー

std::stringはその内部実装などがコンパイラに依存するため
他言語との間に使うと問題になります。

char*を返せればよいのですが、
今度は「誰がメモリを解放するか？」「どこに解放するか？」などが問題になります。

現実的には、引数として確保されているメモリを受け取りそこに文字列を書き込むタイプが多いです。

なお、windows環境のみに限ればBSTR(COM文字列)を使う方法があります。

c++
1extern "C" __declspec(dllexport) BSTR DLLVersion() { return ::SysAllocString(L"Ver0.05"); }

vb.net
1<DllImport(DLLFile, CallingConvention:=CallingConvention.Cdecl, EntryPoint:="DLLVersion")> _
2Public Function DLLVersion() As <MarshalAs(UnmanagedType.BStr)> String