看看这函数怎么调？我搞了好久，请高手帮忙，关于DLL函数的调用。

[mgqmgq]

VC中的声明
int ReadSrvReq(char* ctrlMsg, char* subCode,
char* contentMsg, int* msgLen,
int timeOut)
DELPHI中声明：
TReadSrvReq=function(ctrlMsg:Pchar;subCode:Pchar;contentMsg:Pchar; msgLen:integer;timeOut:integer):integer;stdcall;
调用：
mw:HWND;
mt:TCSGP_ReadConf;
mt1: TReadSrvReq;
a:integer;
st:string;
p:pchar;
ctrlMsg:string;
subCode:string;
contentMsg:string;
msgLen:integer;
time1:String;
mw:=loadlibrary('CSGPAPI_DLL.dll');
if mw<>0 then
try
mt1:=GetProcaddress(mw,'ReadSrvReq');

if assigned(mt1) then
a:=mt1(@ctrlMsg,@subCode,@contentMsg, msgLen,5);

finally
FreeLibrary(mw);
end;
到了这步a:=mt1(@ctrlMsg,@subCode,@contentMsg, msgLen,5);就出错了。

请问DLL函数应怎么声明，参数怎么传呢？

[mgqmgq]

件PCHAR是对的。
但不明白为什么，调用时就出错。

[小呆之家]

VC中的声明
int ReadSrvReq(char* ctrlMsg, char* subCode,
char* contentMsg, int* msgLen,
int timeOut)
DELPHI中声明：
type
PInt=^integer;
TReadSrvReq=function(ctrlMsg:Pchar;subCode:Pchar;contentMsg:Pchar; msgLen:Pint;timeOut:integer):integer;stdcall;
调用：
mw:HWND;
mt:TCSGP_ReadConf;
mt1: TReadSrvReq;
a:integer;
st:string;
p:pchar;
ctrlMsg:string;
subCode:string;
contentMsg:string;
msgLen:integer;
IntPnt:Pint;//----------add
time1:String;

mw:=loadlibrary('CSGPAPI_DLL.dll');
if mw<>0 then
try
mt1:=GetProcaddress(mw,'ReadSrvReq');
IntPnt:=^msglen;//---------add
if assigned(mt1) then

a:=mt1(@ctrlMsg,@subCode,@contentMsg, IntPnt,5);//------add

finally
FreeLibrary(mw);
end;
//-----这样试试看吧 :)

[广州接入]

mark

[小呆之家]

try
mt1:=GetProcaddress(mw,'ReadSrvReq');
IntPnt:=@msglen;//----这里有点错误，改正下。:)
if assigned(mt1) then

[LocustWei]

TReadSrvReq=function(ctrlMsg:Pchar;subCode:Pchar;contentMsg:Pchar; var msgLen:integer;timeOut:integer):integer;stdcall;

mt1(pchar(ctrlMsg),PChar(subCode),PChar(contentMsg), IntPnt,5);//

[hqhhh]

关注：

[mgqmgq]

别关注啊，出了主意了。

[mgqmgq]

ctrlMsg，subCode，contentMsg为出参; msgLen为入参出参。

[Bluce4587]

指针类型的参数,在DELPHI中要声明为 wideString 类型

[lovefox_zoe]

楼上？不会吧。应该用pchar类型吧。