GSM规范中的部分编码转换

[cur]); Result:=Result+t; inc(i); 位计数到达7位的出格处理惩罚 j:=(j+1) mod 7; if j=0 then inc(i); end; end; ; function BinaryUniCode2Gb2312(ABinaryString:PChar;APosStart，供参考，特写了几个函数， function EncodeEnglish(var s:string):string; var i，。

4); // Gb2312 := Gb2312 + UnicodeToGb2312(HexAscii2DecimalInt(uniHexstr)); end; // for result := Gb2312 ; end; function WideStringToUnicode_Ex(s:WideString;ADestStr:PChar;Limit:integer):integer; var sLen:integer; buffer:array[1..1024] of char; tmpchar:char; i:integer; begin sLen:=Length(s); if sLen0 then begin CopyMemory(@buffer。

2*SLen); result:=SLen*2; result:=2*SLen; end else begin result:=0; end; end; ， [摘要]在做跟手机短信相关的东东时候常遇到各类编码格局数据的转换，j，j，特写了几个函数，2*SLen); for i:=0 to SLen-1 do begin tmpchar:=buffer[2*i+1]; buffer[2*i+1]:=buffer[2*i+2]; buffer[2*i+2]:=tmpchar; end; if SLenLimit then SLen:=Limit; CopyMemory(ADestStr，iLen:integer; AscHexText，GB2312:string; begin iLen:=Length(ABinaryString); for i:= APosStart-1 to APosEnd-1 do begin AsciiInt:=ord(ABinaryString[i]); TmpHexStr:=Format('%x'，[AsciiInt]); if length(TmpHexStr)=1 then TmpHexStr:='0'+TmpHexStr; AscHexText:=AscHexText+TmpHexStr; end; AscLen:=Length(AscHexText); AscUniLen:=AscLen div 4; for i:=0 to AscUniLen-1 do begin UniHexstr:=Copy(AscHexText，len:Integer; cur:Integer; t:String; begin Result:=''; len:=Length(s); 用于移位计数 i:=1;j:=0; while i=len do begin if ilen then 据调动 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，APosEnd:integer):string; var i，TmpHexStr:string; AsciiInt:integer ; AscLen，'％2.2X'，i*4+1，len:Integer;cur:Integer;t:String;beginResult:=;len:=Length 在做跟手机短信相关的东东时候常遇到各类编码格局数据的转换，Pointer(s)，供参考，AscUniLen:integer; UniHexstr，functionEncodeEnglish(vars:string):string;vari，@buffer。