關于字符串在程序與dll之間的傳遞問題

Question

我在dll中定義了下面的函數
LPSTR FAR PASCAL _export csshipmethod(double numbers)
{
return "ok";
}
在vb中我這樣調用
Private Declare Function csshipmethod Lib "test.dll" (ByVal numbers As Double) As String
Private Sub Command1_Click()
Text1.Text = csshipmethod(12) 
End Sub
但text1沒有任何顯示。我想可能是LPSTR 類行在vb中不支持。可以幫忙幫我想一下嗎?

Answer 1

将代码改为：
BSTR FAR PASCAL _export csshipmethod(double numbers)
{
return "ok";
}
Private Declare Function csshipmethod Lib "test.dll" (ByVal numbers As Double) As String
Private Sub Command1_Click()
Text1.Text = StrConv(csshipmethod(12) ,vbFromUnicode)
End Sub
试试