请大家帮忙翻译一下(VC++-------->Delphi)(100分)

long WINAPI Sms_SendEx3(SmsSend3 * pSms , long lCount , BOOL bWaitRet);
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&quot
);
strcpy(sms[0].szMobile , m_strMobile );
strcpy(sms[0].szMsg , m_strMsg );
strcpy(sms[0].szTimer , "2005-08-19 14:50:05&quot
);
sms[1] = sms[0]
//发送两条相同的信息
long lRet = Sms_SendEx3( sms,2,true);

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;

兄弟,发送的时候只有一条吗?搞理是两条的啊!是不是delphi内存分配不是连续的?后来我改成这样,还是不行的!能不能再给看看!
TSmsSend3Array=array[0..1] of _SmsSend3

PSmsSend3Array=^TSmsSend3Array;
var
//sms: array [0..1] of _SmsSend3 ;
pstr SmsSend3Array;
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;
这样也是只发送一条,我要的是否群发?

怎么没有回答啊!

帮顶一下，

帮顶！

╭=========================================╮

80G海量源代码,控件，书籍全免费狂下不停！

http://www.source520.com

╰=========================================╯