string - vb6 では、C dll から char* パラメータを取得するにはどうすればよいですか?

Question

VB6 アプリケーションから C dll を呼び出しています。dll には、次のような関数呼び出しシグネチャがあります。

void WINAPI geterrstr(char* foo);

ここで、foo は返す必要がある文字列です。

VB6 アプリケーションで、次の構文を使用して dll を呼び出そうとしましたが、空の文字列が返されます。

Declare Sub geterrstr Lib "technopnp.dll" (ByRef lpbuffer As String)

何か案は？

Answer 1

できるはずです。

Declare Sub geterrstr Lib "technopnp.dll" (ByVal lpbuffer As String)
...
dim buff as string
buff=string$(n, vbnullchar)
geterrstr buff

//read upto 1st vbnullchar
buff = left$(buff, instr(1, buff, vbnullchar) - 1)
if (buff="") then
  //no data
else
  msgbox buff
end if

n適切なバッファ サイズにする必要がありますが、短すぎるとクラッシュします。