下面是实现英文编码的部分Delphi 5代码： //英文格式编码，s为String function Encode1(var s:String):String; var i,j,len:Integer; cur:Integer; t:String; begin Result:=‘’; len:=Length(s); //j 用于移位计数 i:=1;j:=0; while i<=len do begin if i//数据变换 cur:=(ord(s[i]) shr j) or ((ord(s[i＋1]) shl (7－j)) and ＄ff) else cur:=(ord(s[i]) shr j) and ＄7f; FmtStr(t,‘％2.2X’,[cur]); Result:=Result＋t; inc(i); //移位计数达到7位的特别处理 j:=(j＋1) mod 7;if j=0 then inc(i); end; end; 2.中文编码 参见表3，设短信息内容为“中文短信息”。中文短信息的实现较简单，只需将GB2312的中文编码转换为代码页为CP936的Unicode编码即可。 表3 中文编码的实现过程
通过Delphi的WideString类型转换，可以巧妙地实现GB2312到Unicode的编码转换（注意代码页和操作系统相关联）。下面是实现中文编码的部分Delphi 5代码： // 中文格式编码，s为Unicode String function Encode2(var s:WideString):String; var i,len:Integer; cur:Integer; t:String; begin Result:=‘’; len:=Length(s); i:=1; while i<=len do begin cur:=ord(s[i]); //BCD转换 FmtStr(t,‘％4.4X’,[cur]); Result:=Result＋t; inc(i); end; end; 小 结 以上介绍了PDU格式的短信息编码。建议英文信息长度不超过140个字符，中文信息不要超过54个汉字。如果使用能够支持文本方式的手机进行发送，实现起来更简单。如发送“Hello World!”，用如下的AT指令即可： AT＋CGMF=1AT＋CGMS=“13650246680”,129 >Hello World!<^Z>
盒子资源分类大树
