vb6如何调用delphi DLL中的函数并返回字符串？

1，问题描述 

最近发现vb6调用delphi DLL中的函数并返回字符串时出现问题，有时正常，有时出现？号，有时干脆致使VB程序退出

2019-01-18 13:18:51 将金额数字转化为可读的语音文字:1转化为1元 ????@                元  ????    og\SS_log.txt .eP   K   
   :   

2，缘由分析

delphi中函数声明以下：

function ss_ConvertMoney2Str(mmje:double): PChar; stdcall; 

VB6中对应的函数声明以下：

Public Declare Function ss_ConvertMoney2Str Lib "SSDuan.dll" (ByVal mmje As Double) As string

 

因其中涉及字符串从delphi中返回给VB，因此怀疑与内存有关。

将Sharemem在DLL工程中引用，并在VB程序目录中放入BORLNDMM.dll文件。问题依旧。

 

在网上查到下面文章，很是详细地说明了调用方法。解决了问题。感谢原做者。

https://blog.csdn.net/marz07101/article/details/8127351

 

3，解决方案

在delphi中增长一个函数声明以下，采用pres返回字符串。

function ss_ConvertMoney2Str4VB(mmje:double; pres:PChar): integer;  stdcall;

 

在VB6中，声明接口以下

Public Declare Function ss_ConvertMoney2Str4VB Lib "xxx.dll" (ByVal mmje As Double, ByVal result As String) As Integer

 

在调用函数时，第二个实参声明为string，且要事先分配内存。

Private Sub Command2_Click()
  Dim convMoney As String
  Dim res As Integer
  convMoney = Space(255)

  res = ss_ConvertMoney2Str4VB(Val(Text1.Text), convMoney)