S
sms
Unregistered / Unconfirmed
GUEST, unregistred user!
DLL函数原型如下:
BOOL WINAPI IFInitInterface(DWORD dwCodeProtocol,//编码协议
DWORD dwDriverProtocol,//通讯协议
LPCTSTR pDriverParam//通讯参数);
在DELPHI这样调用:
var
Form1: TForm1;
hdll:Thandle;
IFInitInterface:function(dwCodeProtocol:dword;dwDriverProtocol:dword;pDriverPara:string):boolean;
…………
procedure TForm1.btnInitialClick(Sender: TObject);
begin
hdll:=loadLibrary('smeidll.dll');
if hdll>32 then
@IFInitInterface:=GetProcAddress(hdll,'IFInitInterface');
if IFInitInterface(5,1,'211.139.140.200 7890 5000') then
showmessage('接口初始化成功')
else
showmessage('接口初始化失败');
end
这种调用方法有没有错?请高手指点,各方面的参数是正确的,总是显示'接口初始化失败'
在C里面用同样的参数就不会,怎么回事?
BOOL WINAPI IFInitInterface(DWORD dwCodeProtocol,//编码协议
DWORD dwDriverProtocol,//通讯协议
LPCTSTR pDriverParam//通讯参数);
在DELPHI这样调用:
var
Form1: TForm1;
hdll:Thandle;
IFInitInterface:function(dwCodeProtocol:dword;dwDriverProtocol:dword;pDriverPara:string):boolean;
…………
procedure TForm1.btnInitialClick(Sender: TObject);
begin
hdll:=loadLibrary('smeidll.dll');
if hdll>32 then
@IFInitInterface:=GetProcAddress(hdll,'IFInitInterface');
if IFInitInterface(5,1,'211.139.140.200 7890 5000') then
showmessage('接口初始化成功')
else
showmessage('接口初始化失败');
end
这种调用方法有没有错?请高手指点,各方面的参数是正确的,总是显示'接口初始化失败'
在C里面用同样的参数就不会,怎么回事?