Vb -> Delphi (DLL的调用问题)

Question

Delphi中声明
function exportfile(AHandle: THandle;p_id:pchar;p_dir:pchar;p_user:pchar):pchar;
Vb中声明
Private Declare Function exportfile Lib "wdata" (ByVal AHandle As Long, ByVal p_id As String, ByVal p_dir As String, ByVal p_user As String) As String
调用代码
    If exportfile(SJCL_XZ.hwnd, sFileID, sDZ_Server, sZDRID) = "1" Then
    End If
执行时错误提示
实时错误'5'
无效的过程调用或参数

Answer 1

Delphi 中的输出函数的调用约定要指定为 stdcall ！另外，VB 的 String 类型是基于 Unicode 的，而 Delphi 中的 PChar 目前是基于 Ansi，楼主改成 PWideChar 试试！