简单的Delphi中调用VC动态链接库问题!(200分)

  • 主题发起人 主题发起人 wlandll
  • 开始时间 开始时间
W

wlandll

Unregistered / Unconfirmed
GUEST, unregistred user!
extern "C" __declspec(dllexport) __stdcall int SendClientMsg(char* Ip,int Port,char *Data);
/*通用数据接口 *Data 的结构如下*/
typedef struct stu_msg{
char mobile[11+1];/*手机号码*/
char msg[255+1];/*短消息*/
char oper[20+1];/*应用程序操作员代码*/
char compno[10+1];/*公司代码(县公司或市公司)*/
char [4+1];/**/
}myMsg;
我在Delhpi中该如何定义调用函数,又该如何传参数并调用该函数??
 
在Delhpi中该如何定义调用函数,又该如何传参数并调用该函数?? ?????????????
 
如何调用该函数:
比如:function SendClientMsg(Ip:String;Port:Integer;Data:CCTMsg):Integer;stdcall;external'smsclient.dll';
如何传参数:
比如:
CCTMsg = Record
sMobile:Stringl
sMsg:String;

sOper:String
sCompNo:String;
sReturn:String;//**/
end;
var
r_Msg:CCTMsg;

with r_Msgdo
begin
sMobile:='13067934772';
sMsg:='66666';
sOper:='1209';
sCompNo:='0405';
end;
如何调用:
比如:
SendClientMsg('192.168.0.1',55555,r_Msg);
 
这么定义
function SendClientMsg(Ip:String;Port:Integer;Data:PChar):Integer;stdcall;external'smsclient.dll';
调用
var
r_Msg:CCTMsg;

with r_Msgdo
begin
sMobile:='13067934772';
sMsg:='66666';
sOper:='1209';
sCompNo:='0405';
end;
如何调用:
SendClientMsg('192.168.0.1',55555,@r_Msg);

 
后退
顶部