正在阅读：GSM规范中的部分编码转换GSM规范中的部分编码转换

2004-03-23 14:45 出处：CSDN 作者：bjskyhorse 责任编辑：linjixiong

   UniHexstr,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; //for
AscLen:=Length(AscHexText);
    AscUniLen:=AscLen div 4;
     for i:=0 to AscUniLen-1 do
      begin
        UniHexstr:=Copy(AscHexText,i*4+1,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 sLen>0 then
    begin
     CopyMemory(@buffer,Pointer(s),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 SLen>Limit then
      SLen:=Limit;
      CopyMemory(ADestStr,@buffer,2*SLen);
      result:=SLen*2;
      result:=2*SLen;
     end
     else
      begin
       result:=0;
      end;
end;