当前位置: 58彩票app下载 > 计算机网络 > 正文

utf8编码的解码,编码调换

时间:2019-11-13 17:23来源:计算机网络
** 功效: utf8编码的解码   ** 输入参数: function UnicodeEncode(Str:string;CodePage:integer):WideString; var   Len:integer; begin   Len:=Length(Str)+1;   SetLength(Result,Len);  Len:=MultiByteToWideChar(CodePage,0,PChar(Str)

** 功效: utf8编码的解码
  ** 输入参数:

function UnicodeEncode(Str:string;CodePage:integer):WideString;
var
  Len:integer;
begin
  Len:=Length(Str)+1;
  SetLength(Result,Len);
  Len:=MultiByteToWideChar(CodePage,0,PChar(Str),-1,PWideChar(Result),Len);
  SetLength(Result,Len-1); //end is #0
end;

  ** 作者:liubin

function UnicodeDecode(Str:WideString;CodePage:integer):string;
var
  Len:integer;
begin
  Len:=Length(Str)*2+1;  //one for #0
  SetLength(Result,Len);
  Len:=WideCharToMultiByte(CodePage,0,PWideChar(Str),-1,PChar(Result),Len,nil,nil);
  SetLength(Result,Len-1);
end;

  **日期:2011-02-15
 
  **     Str :要分开的字符串
  **     EndStr :分割符号
  **再次回到值 :再次回到截取好的字符串数组
  ******************************************************************}
  function Utf8Decode(const S: UTF8String): WideString;
  var
    L: Integer;
    Temp: WideString;
  begin
    Result := '';
    if S = '' then Exit;
    SetLength(Temp, Length(S));

function Gb2Big5(Str:string):string;
begin
  SetLength(Result,Length(Str));
  LCMapString(GetUserDefaultLCID,LCMAP_TRADITIONAL_CHINESE,
    PChar(Str),Length(Str),
    PChar(Result),Length(Result));
  Result:=UnicodeDecode(UnicodeEncode(Result,936),950);
end;

    L := Utf8ToUnicode(PWideChar(Temp), Length(Temp) + 1, PChar(S), Length(S));
    if L > 0 then
      SetLength(Temp, L - 1)
    else
      Temp := '';
    Result := Temp;
  end;

function Big52Gb(Str:string):string;
begin
  Str:=UnicodeDecode(UnicodeEncode(Str,950),936);
  SetLength(Result,Length(Str));
  LCMapString(GetUserDefaultLCID,LCMAP_SIMPLIFIED_CHINESE,
    PChar(Str),Length(Str),
    PChar(Result),Length(Result));
end;

 

重在应用了UnicodeToUtf8这几个函数
function Utf8Encode(const WS: WideString): UTF8String;
var
  L: Integer;
  Temp: UTF8String;
begin
  Result := '';
  if WS = '' then Exit;
  SetLength(Temp, Length(WS) * 3); // SetLength includes space for null terminator
  L := UnicodeToUtf8(PChar(Temp), Length(Temp)+1, PWideChar(WS), Length(WS));
  if L > 0 then
    SetLength(Temp, L-1)
  else
    Temp := '';
  Result := Temp;
end;

摘自 #Define

function Encode2Utf8(const WS: UTF8String): WideString;
var
  L: Integer;
  Temp: WideString;
begin
  Result := '';
  if WS = '' then Exit;
  SetLength(Temp, Length(WS) * 3); // SetLength includes space for null terminator
  L := Utf8ToUnicode(PWideChar(Temp), PChar(WS), Length(WS));
  if L > 0 then
    SetLength(Temp, L-1)
  else
    Temp := '';
  Result := Temp;
end;

作用: utf8编码的解码 ** 输入参数: ** 作者:liubin **日期:2011-02-15 ** Str :要分开的字符串 ** EndStr :分割符号 **回去值 :重临截取好的...

编辑:计算机网络 本文来源:utf8编码的解码,编码调换

关键词: