学步园

Delphi的unicode与GB2312转转换,汉字unicode转GB2312

Delphi的unicode与GB2312转转换,汉字unicode转GB2312</p> <p>{===============================================================}<br /> { 函数 : RESULTSTRING = HexToBin(HEXSTRING)<br /> { 目的 : 把十六进制字符串转换为二进制字符串<br /> {<br /> {===============================================================}<br /> { 函数 : RESULTINTEGER = HexCharToInt(HEXCHAR)<br /> { 目的 : 转换一个十六进制字符为整数<br /> {===============================================================}<br /> { 函数 : RESULTSTRING = HexCharToBin(HEXCHAR)<br /> { 目的 : 转换一个十六进制字符为二进制字符串<br /> {===============================================================}<br /> { 函数 : RESULTINTEGER = Pow(BASE,POWER)<br /> { 目的 : 指数函数<br /> {===============================================================}<br /> { 函数 : RESULTINTEGER = BinStrToInt(BINSTRING)<br /> { 目的 : 把二进制字符串转换为整数<br /> {===============================================================}<br /> { 函数 : RESULTSTRING = DecodeSMS7Bit (PDUSTRING)<br /> { 目的 : 解码一个7-bit SMS (GSM 03.38) 为ASCII码<br /> {===============================================================}<br /> { 函数 : RESULTSTRING = ReverseStr (SOURCESTRING)<br /> { 目的 : 反转一个字符串<br /> {===============================================================}<br /> {===============================================================}<br /> { 函数 : RESULTSTRING = UniCode2Gb (SOURCESTRING)<br /> { 目的 : 将UniCode字符串转换为GB<br /> {===============================================================}<br /> {===============================================================}<br /> { 函数 : RESULTSTRING = GB2UniCode (SOURCESTRING)<br /> { 目的 : 将GB字符串转换为UniCode<br /> {===============================================================}</p> <p>unit BinHexTools;<br /> interface</p> <p>function HexToBin(HexNr : String): String;<br /> function HexCharToInt(HexToken : char): Integer;<br /> function HexCharToBin(HexToken : char): String;<br /> function pow(base, power: integer): integer;<br /> function BinStrToInt(BinStr : String) : Integer;<br /> function DecodeSMS7Bit(PDU : String): String;<br /> function ReverseStr(SourceStr : String) : String;<br /> function GB2UniCode(GB:string): String;<br /> function UniCode2GB(S : String): String;</p> <p>implementation</p> <p>uses sysutils, dialogs;</p> <p>function HexCharToInt(HexToken : char):Integer;<br /> begin<br /> //if HexToken>#97 then HexToken:=Chr(Ord(HexToken)-32);<br /> { 将小写字母转换成大写 }</p> <p>Result:=0;</p> <p>if (HexToken>#47) and (HexToken<#58) then { chars 0....9 }<br /> Result:=Ord(HexToken)-48<br /> else if (HexToken>#64) and (HexToken<#71) then { chars A....F }<br /> Result:=Ord(HexToken)-65 + 10;<br /> end;</p> <p>function HexCharToBin(HexToken : char): string;<br /> var DivLeft : integer;<br /> begin<br /> DivLeft:=HexCharToInt(HexToken); { first HexChar->Int }<br /> Result:='';<br /> { Use reverse dividing }<br /> repeat { Trick; divide by 2 }<br /> if Odd(DivLeft) then { result = odd ? then bit = 1 }<br /> Result:='1'+Result { result = even ? then bit = 0 }<br /> else<br /> Result:='0'+Result;</p> <p>DivLeft:=DivLeft div 2; { keep dividing till 0 left and length = 4 }<br /> until (DivLeft=0) and (length(Result)=4); { 1 token = nibble = 4 bits }<br /> end;</p> <p>function HexToBin(HexNr : string): string;<br /> { only stringsize is limit of binnr }<br /> var Counter : integer;<br /> begin<br /> Result:='';</p> <p>for Counter:=1 to length(HexNr) do<br /> Result:=Result+HexCharToBin(HexNr[Counter]);<br /> end;</p> <p>function pow(base, power: integer): integer; //指数base^power<br /> var counter : integer;<br /> begin<br /> Result:=1;</p> <p>for counter:=1 to power do<br /> Result:=Result*base;<br /> end;</p> <p>function BinStrToInt(BinStr : string) : integer;<br /> var counter : integer;<br /> begin<br /> if length(BinStr)>16 then<br /> raise ERangeError.Create(#13+BinStr+#13+<br /> '不是一个有效的16Bit二进制单元'+#13);</p> <p>Result:=0;</p> <p>for counter:=1 to length(BinStr) do<br /> if BinStr[Counter]='1' then<br /> Result:=Result+pow(2,length(BinStr)-counter);<br /> end;</p> <p>function DecodeSMS7Bit(PDU : string):string;<br /> var OctetStr : string;<br /> OctetBin : string;<br /> Charbin : string;<br /> PrevOctet: string;<br /> Counter : integer;<br /> Counter2 : integer;<br /> begin<br /> PrevOctet:='';<br /> Result:='';</p> <p>for Counter:=1 to length(PDU) do<br /> begin<br /> if length(PrevOctet)>=7 then { if 7 Bit overflow on previous }<br /> begin<br /> if BinStrToInt(PrevOctet)<>0 then<br /> Result:=Result+Chr(BinStrToInt(PrevOctet))<br /> else Result:=Result+' ';</p> <p>PrevOctet:='';<br /> end;</p> <p>if Odd(Counter) then { only take two nibbles at a time }<br /> begin<br /> OctetStr:=Copy(PDU,Counter,2);<br /> OctetBin:=HexToBin(OctetStr);</p> <p>Charbin:='';<br /> for Counter2:=1 to length(PrevOctet) do<br /> Charbin:=Charbin+PrevOctet[Counter2];</p> <p>for Counter2:=1 to 7-length(PrevOctet) do<br /> Charbin:=OctetBin[8-Counter2+1]+Charbin;</p> <p>if BinStrToInt(Charbin)<>0 then Result:=Result+Chr(BinStrToInt(CharBin))<br /> else Result:=Result+' ';</p> <p>PrevOctet:=Copy(OctetBin,1,length(PrevOctet)+1);<br /> end;<br /> end;<br /> end;</p> <p>function ReverseStr(SourceStr : string) : string;<br /> var Counter : integer;<br /> begin<br /> Result:='';</p> <p>for Counter:=1 to length(SourceStr) do<br /> Result:=SourceStr[Counter]+Result;<br /> end;</p> <p>function GB2UniCode(GB:string):string;<br /> var<br /> s: string;<br /> i, j, k: integer;<br /> a: array [1..160] of char;<br /> begin<br /> s:='';<br /> StringToWideChar(GB, @(a[1]), 500);<br /> i:=1;<br /> while ((a[i]<>#0) or (a[i+1]<>#0)) do begin<br /> j:=Integer(a[i]);<br /> k:=Integer(a[i+1]);<br /> s:=s+Copy(Format('%X ',[k*$100+j+$10000]) ,2,4);<br /> //S := S + Char(k)+Char(j);<br /> i:=i+2;<br /> end;<br /> Result:=s;<br /> end;</p> <p>function UniCode2GB(S : String):String;<br /> Var I: Integer;<br /> begin<br /> I := Length(S);<br /> while I >=4 do begin<br /> try<br /> Result :=WideChar(StrToInt('$'+S[I-3]+S[I-2]+S[I-1]+S[I]))+ Result;<br /> except end;<br /> I := I - 4;<br /> end;<br /> end;</p> <p>end.<br />