VC SDK如何转化成delphi问题

[Danphel]

函数的原型：
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一窍不通，希望专家们不吝赐教，

[Danphel]

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

[Danphel]

顺便写个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;

[Danphel]

写的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';

[MasterNo1]

学习，顶一下

[aiirii]

p_uszHostAddress: pwidechar;

这样试下，应该是widestring 类型的，而不是 string

[Danphel]

是Widechar,问题解决了。