如何从DLL中将字符串以参数的形式传递出来呀

Question

如何从DLL中将字符串以参数的形式传递出来呀我的代码如下
function OverWeightData(bClearFlag:longbool; dhm:PChar):longbool; stdcall;
begin
    dhm:=PChar('19888888');
    result:=bClearFlag;
end;vb调用代码
Public Declare Function OverWeightData Lib "WtSys_Dll.dll" (ByVal bClearFlag As Boolean, ByVal dhm As String) As Boolean请各位帮个忙谢谢

Answer 1

function OverWeightData(bClearFlag:longbool; var dhm:PChar):longbool; stdcall;
begin
    dhm:=PChar('19888888');
    result:=bClearFlag;
end;
第二个参数改成传引用的参数就可以了。