谢谢楼上的两位朋友
我再问一下,我使用短信猫通过COM 端口发送短信,相当于使用手机直接发送
国内发送没问题
发往国外的我还需要改手机内的短信中心号码吗?
假如我要发往国外某公司 00886XXXXXXXXX 共14位
这样的话,PDU码该如何改呢,我现在编码是:
function MixMPhonePDU(Phone: string; ShortMsg: string; var SendLen: string): string;
var
PDUSendRec: TPDUMphone;
TempStr: string;
begin
PDUSendRec.FirstOctet := '11';
PDUSendRec.MessageReference := '00';
PDUSendRec.PhoneLength := '0E';
PDUSendRec.AddressType := '91';
PDUSendRec.TPPID := '00';
PDUSendRec.TPDCS := '08';
PDUSendRec.TPValidityPeriod := '00';
TempStr := ChangeOrder(Phone, 14);
Move(TempStr[1], PDUSendRec.Phone[0], 14);
TempStr := EncodeUniCode(ShortMsg);
Move(IntToHex(Length(TempStr) div 2, 2)[1], PDUSendRec.TPUserDataLength[0], 2);
SetLength(Result, SizeOf(PDUSendRec));
Move(PDUSendRec, Result[1], SizeOf(PDUSendRec));
Result := Result + TempStr;
SendLen := IntToStr((Length(Result)) div 2);
end;
欢迎大家指点,多多交流一下关于该方面资料
