|
短信猫怎么发送wap push信息?
if fnWapPushCvt(Pchar('ni hao'), Pchar('wap.english.com'), szOut) = 0 then
begin
//szHeader := PhoneNo + ',' + id + ',' + '0' + ',' +
// '13123456789' + ',' + '1' + ',' + '1'; //bug
szHeader := '13811039327,1,0,13123456789,1,1';
RetInfo := fnSendMsg(-1, PChar(szHeader), szOut);
//wap push信息 (need test)
showmessage(IntToStr(RetInfo));
end;
这是我写的,可是总是出现错误,是不是参数不对,请知道的指点一下,谢谢了....
|
|