调用Delphi封装的DLL库,传递字符串是乱码

Question

Delphi代码
function SocketConnection(souAddress: PAnsiChar): LongBool;
begin
   ShowMessage(souAddress);//显示乱码
   Result := false;
end;vb代码Public Declare Function SocketConnection Lib "ReportRemoteDll.dll" (ByVal tt1 As String) As Boolean急用请各位帮助！

Answer 1

function SocketConnection(souAddress: pchar): LongBool;stdcall;试一下╭════════════════════════════╮
║　　　　　　　　　　　　　　　　　　　　　　　　　　　　║
║　　免费的学习、交流、源码、工具网站，欢迎大家访问！　　║
║　　http://www.j2soft.cn/ 　　　　　　　　　　　　　　　║
╰════════════════════════════╯

Answer 2

Public Declare Function SocketConnection Lib "ReportRemoteDll.dll" (ByVal tt1 As String) As Long你传进去的是中文么？