VC SDK如何转化成delphi问题

Question

函数的原型：
TYPE_IssClapi_Status ISS_CLAPI_PUBLIC
IssClapi_OpenServer ( wchar_t * p_uszHostAddress,
wchar_t * p_uszUserName,
wchar_t * p_uszPassword,
unsigned long p_ulClientID,
TYPE_IssClapi_ServerHandle * p_phServerHandle );
函数的声明：
typedef MTSS_WChar*     MTSS_WString;
private:
   MTSS_WString                      c_uszServerAddress;函数的调用，
   a_eClapiStatus = IssClapi_OpenServer(c_uszServerAddress,
                                        0,//c_uszUserName,
                                        0,//c_uszPassword,
                                        MTSS_ISSCLAPI_CLIENT_ID,
                                        &a_hServerHandle);我想知道c_uszServerAddress 这个输入参数怎么写？是一个Char的数组还是指针呢？对VC一窍不通，希望专家们不吝赐教，

Answer 1

顺便写个Demo来看看，我是这么做的，但是有错误，不知道错误在那里？
procedure CopyAsciiStringToUnicodeString(p_sString:String;out p_uszUnicodeString:TYPE_UnicodeString) ;
var a_iIndex :Integer;
    a_cChar :String;
    Single:Char;
begin
    a_iIndex:=0;
    a_cChar:= p_sString ;
    For a_iIndex := 0 to Length(p_sString) - 1 do
    begin
        a_cChar := Copy(p_sString, a_iIndex + 1, 1);
        single:=a_cChar[1];
        p_uszUnicodeString.wchar[a_iIndex] := Ord(single);
    end;
    For a_iIndex := Length(p_sString) to 256 do
        p_uszUnicodeString.wchar[a_iIndex] := 0;
end;procedure TForm1.Button1Click(Sender: TObject);
var b:THandle;
    a_eClapiStatus:TYPE_IssClapi_Status;
    p_uszUnicodeString:TYPE_UnicodeString;
begin
  CopyAsciiStringToUnicodeString('127.0.0.1',p_uszUnicodeString);
  a_eClapiStatus:=IssClapi_OpenServer(@p_uszUnicodeString,
       nil,nil,201,b); if a_eClapiStatus= ISSCLAPI_STATUS_OK then
 ShowMessage('OK')
end;

Answer 2

写的DLL调用函数是这个，不知道对不对？
function IssClapi_OpenServer(p_uszHostAddress :Pointer;
                                    p_uszUserName :PChar;
                                    p_uszPassword :PChar;
                                    p_ulClientID  : integer;
                                    out p_hServerHandle :THandle):TYPE_IssClapi_Status;
                                    stdcall external 'issclapi.dll' name 'IssClapi_OpenServer';

Answer 3

为什么我的帖子在Delphi版看不到？是CSDN的问题么？

Answer 4

p_uszHostAddress: pwidechar;这样试下，应该是widestring 类型的，而不是 string