请大家帮忙翻译一下(VC++-------->Delphi 找项目管理软件
typedef struct _SmsSend3
{
long lSmsID; //发送成功后返回的ID号
long reserve; //保留，暂未用到
char szSendExNum[24]; //发送扩展号码
char szMobile[24]; //目标手机号码
char szMsg[168]; //短信内容
char szTimer[32]; //定时时间，如果为空，则为立即发送,时间的格式:2005-08-01 12:08:00
}SmsSend3;
SmsSend3 sms[2]={0}; //发送两条信息
strcpy(sms[0].szSendExNum, ＂001＂ );
strcpy(sms[0].szMobile , m_strMobile );
strcpy(sms[0].szMsg , m_strMsg );
strcpy(sms[0].szTimer , ＂2005-08-19 14:50:05＂ );
sms[1] = sms[0]; //发送两条相同的信息
long lRet = Sms_SendEx3( sms,2,true);
2楼: type
SmsSend3 = ^_SmsSend3;
_SmsSend3 = record
lSmsID: Cardinal;
reserve: Cardinal;
szSendExNum: array [0..23] of char;
szMobile: array [0..24] of char;
szMsg: array [0..167] of char;
szTimer: array [0..31] of char;
end;
function Sms_SendEx3(pSms: SmsSend3; lCount: Cardinal; bWaitRet: BOOL): Cardinal; stdcall;
......
var
sms: array [0..1] of _SmsSend3;
lRet: Cardinal;
begin
fillchar(sms, sizeof(sms), 0);
with sms[0] do
begin
szSendExNum := ＇＇001＇＇;
szMobile := m_strMobile;
szMsg := m_strMsg;
szTimer := ＇＇2005-08-19 14:50:05＇＇;
end;
move(sms[0], sms[1], sizeof(sms[0]));
lRet := sms_SendEx3(@sms, 2, true);
end; 如项目管理软件
3楼: 兄弟,发送的时候只有一条吗？搞理是两条的啊!是不是delphi内存分配不是连续的？后来我改成这样,还是不行的!能不能再给看看!
TSmsSend3Array=array[0..1] of _SmsSend3;
PSmsSend3Array=^TSmsSend3Array;
var
//sms: array [0..1] of _SmsSend3 ;
pstr :PSmsSend3Array;
lRet: longint;
begin
try
GetMem(pstr,SizeOf(_SmsSend3)*2);
ZeroMemory(pstr,SizeOf(pstr));
with pstr^[0] do
begin
lSmsID :=0;
reserve :=0;
strcopy(szMobile,＇＇13316023121＇＇);
strcopy(szMsg,＇＇1测试短消息abc!＇＇);
end;
with pstr^[1] do
begin
lSmsID :=0;
reserve :=0;
strcopy(szMobile,＇＇13316023121＇＇);
strcopy(szMsg,＇＇2测试短消息abc!＇＇);
end;
lRet := sms_SendEx(@pstr[0], 2, true);
edt1.Text :=inttostr(pstr^[0].lSmsID)+＇＇;＇＇+inttostr(pstr^[1].lSmsID);
MessageDlg(＇＇发送成功,返回值是:＇＇ + inttostr(lRet), mtInformation, [mbOk], 0);
finally
FreeMem(pstr);
end;
这样也是只发送一条,我要的是否群发？
4楼: 怎么没有回答啊!
5楼: 帮顶一下，
6楼: 帮顶！
╭=========================================╮
80G海量源代码,控件，书籍全免费狂下不停！
http://www.source520.com
╰=========================================╯
联系我们
