Delphi调用VC的dll问题？

[hotboy1000]

VC里是这么调用的
typedef void* JL_HANDLE;
int JL_TCPLogin (
LPCTSTR strHost, int nPort,
LPCTSTR strUserId, LPCTSTR strPassword,
int nType,
JL_HANDLE* pRtnHandle /*OUT*/);
我想问问用delphi 怎么声明？

[beyondtkl]

typedef void* JL_HANDLE; JL_HANDLE -> Pointer;
int JL_TCPLogin (
LPCTSTR strHost, int nPort,
LPCTSTR strUserId, LPCTSTR strPassword,
int nType,
JL_HANDLE* pRtnHandle /*OUT*/);
->
function JL_TCPLogin (strHost:PChar; nPort:Integer;strUserId:PChar;strPassword:PChar;
nType:Integer; pRtnHandle:PPointer):Integer;stdcall; external '**.dll';name 'JL_TCPLogin'

如不行就用 cdecl.

[Behard]

查一下 FAQ 先嘛

[hotboy1000]

我在动态调用dll的时候会出现这些警告是不是正常的
[Warning] Unit1.pas(74): Unsafe type 'PChar'
[Warning] Unit1.pas(164): Unsafe type 'PChar'
[Warning] Unit1.pas(168): Unsafe code '@ operator'
[Warning] Unit1.pas(169): Unsafe code '@ operator'

[beyondtkl]

哦 警告的行数??
你可以 再 Pointer(PChar(.))这样转换