C++与DELPHI之间的参数类型转换,在线等

Question

以下为C++的函数代码
int nRet =  MtLogin((LPTSTR)(LPCTSTR)m_Address,
m_Port,
m_UserName.GetBuffer(m_UserName.GetLength()),
m_Password.GetBuffer(m_Password.GetLength()));　C++的函数原型是:int WINAPI MtLogin(char* strIpAddr,int nPort,char* strUsr,char* strPwd);
怎么转换为DELPHI代码?

Answer 1

function MtLogin(strIpAddr:PChar;nPort:Integer;strUsr:Pchar;strPwd:PChar):integer; stdcall;

Answer 2

function MtLogin(strIpAddr: PChar; nPort: Integer; strUsr,strPwd: Pchar): Integer; stdcall; external 'xxxx.dll' name 'MtLogin';var
  nRet: Integer;
  m_Address: String; 
  m_Port: Integer;
  m_UserName, m_Password: String;
begin
  m_Address := ...;
  m_Port := ...;
  m_UserName := ...;
  m_Password := ...;  nRet := MtLogin(PChar(m_Address, m_Port, PChar(m_UserName), PChar(m_Password));
  ...
end;