如何将utf-8转换成GB312

Question

客户那边有业务系统，可以通过http获取返回查询的结果，但是发送和接受的xml格式都是utf-8的。现在我发送正常可以返回，结果，我使用的是idhttp控件直接收发的，方法如下：
function TForm1.GetDataFromThird(IP: string; port: Integer; ServiceName: string; ParaXML: string; var FailMsg: WideString): string;
var
  IdHTTP: TIdHTTP;
  ss, dd: TStringStream;
  url: string;
begin
  try
    IdHTTP := TIdHTTP.Create(nil);
    ss := TStringStream.Create('Params=' + ParaXML);
    dd := TStringStream.Create('');
    try
      url := 'HTTP://' + IP + ':' + inttostr(port) + '/' + ServiceName;
      log('发送地址=' + url + ',参数=' + ss.DataString);
      IdHTTP.Post(url, ss, dd);      Result := dd.DataString;
      log('返回值=' + Result);
      if Result = '' then
      begin
        FailMsg := '成功调用接口，但是返回空值！';
      end;
    finally
      ss.Free;
      dd.Free;
      IdHTTP.Free;
    end;
  except
    on e: Exception do
    begin
      log('GetDataFromThird异常：' + e.Message);
      FailMsg := '异常：' + e.Message;
      Result := '';
    end;
  end;
end;然后这样使用的转码：
rtGB := UTF8Decode(rt);
  rtGB := StringReplace(rtGB, 'UTF-8', 'GB2312', []);
  self.mmo2.Text := rtGB;其中rt就是上面方法的返回值现在的问题是：大部分返回内容，都不能正常显示中文，目前只有一个接口能正常显示中文。请问，我转码有什么问题？或者是idhttp控件需要设置些什么？

Answer 1

Utf8ToAnsi()
调用这个函数，传入utf-8编码的字符串，返回的结果为2312的

Answer 2

不知道是否有用？可以參考一下：function   utf8toansistring(utf8str:string;   codepage:integer):ansistring; 
var 
  i:integer; 
  buffer:widestring; 
  ch,c1,c2:byte; begin 
  result:= ' '; 
  i:=1; 
  while   i <=length(utf8str)   do   begin 
      ch:=byte(utf8str[i]); 
      setlength(buffer,length(buffer)+1); 
      if   (ch   and   $80)=0   then   //1-byte 
            buffer[length(buffer)]:=widechar(ch) 
      else   begin 
      if   (ch   and   $e0)   =   $c0   then   begin   //   2-byte 
            inc(i); 
            c1   :=   byte(utf8str[i]); 
            buffer[length(buffer)]:=widechar((word(ch   and   $1f)   shl   6)   or   (c1   and   $3f)); 
        end 
        else   begin   //   3-byte 
            inc(i); 
            c1   :=   byte(utf8str[i]); 
            inc(i); 
            c2   :=   byte(utf8str[i]); 
            buffer[length(buffer)]:=widechar( 
                (word(ch   and   $0f)   shl   12)   or 
                (word(c1   and   $3f)   shl   6)   or 
                (c2   and   $3f)); 
        end; 
        end; 
      inc(i); 
    end;   //while 
    i   :=   widechartomultibyte(codepage, 
                      wc_compositecheck   or   wc_discardns   or   wc_sepchars   or   wc_defaultchar, 
                      @buffer[1],   -1,   nil,   0,   nil,   nil); 
    if   i> 1   then   begin 
        setlength(result,   i-1); 
        widechartomultibyte(codepage, 
                wc_compositecheck   or   wc_discardns   or   wc_sepchars   or   wc_defaultchar, 
                @buffer[1],   -1,   @result[1],   i-1,   nil,   nil); 
    end; 
end; 

Answer 3

function   AnsiToUnicode(Ansi:   string):string;   
var   
    s:string;   
    i:integer;   
    j,k:string[2];   
    a:array   [1..1000]   of   char;   
begin   
    s:= ' '; 
    StringToWideChar(Ansi,@(a[1]),500);   
    i:=1;   
    while   ((a[i] <> #0)   or   (a[i+1] <> #0))   do   begin   
        j:=IntToHex(Integer(a[i]),2); 
        k:=IntToHex(Integer(a[i+1]),2); 
        s:=s+k+j; 
        i:=i+2; 
    end; 
        Result:=s; 
end; function   ReadHex(AString:string):integer; 
begin 
    Result:=StrToInt( '$ '+AString) 
end; function   UnicodeToAnsi(Unicode:   string):string; 
var 
    s:string; 
    i:integer; 
    j,k:string[2]; 
begin 
    i:=1; 
    s:= ' '; 
    while   i <Length(Unicode)+1   do   begin 
        j:=Copy(Unicode,i+2,2); 
        k:=Copy(Unicode,i,2); 
        i:=i+4; 
        s:=s+Char(ReadHex(j))+Char(ReadHex(k)); 
    end; 
    if   s <> ' '   then 
        s:=WideCharToString(PWideChar(s+#0#0#0#0)) 
    else 
        s:= ' '; 
    Result:=s; 
end; function   ToGBK(Str:string):string; 
begin 
    result   :=     inttohex(byte(Str[1])*$100+byte(Str[2]),2); 
end; 

Answer 4

如果實在不行，你就參考一下這裡：http://www.cnblogs.com/baoquan/articles/1027371.html

Answer 5

<?xml version="1.0" encoding="UTF-8"?><Root ErrorMark="0" ErrorMsg="鑾峰彇涓汉淇℃伅鎴愬姛" RecCount="1"><Rec><FD Name="DWBM" Value="54901074" /><FD Name="GRDNH" Value="12345" /><FD Name="XM" Value="鏇瑰仴绁? /><FD Name="DWMC" Value="骞垮窞甯傝崝婀惧尯閫€浼戣亴宸ョ鐞嗗鍛樹細鍔炲叕瀹? /><FD Name="SFZH" Value="440107195506210019" /></Rec></Root>这是服务器返回的utf-8的字符串，请大侠们解析下，

Answer 6

以上都这些都解决不了问题，如果将发送的字符串直接使用ie发送，返回的结果可以正常显示的ie界面中，但是我获取到的不管转换不转换，都不能正常显示，肉眼看了下是“XM”和“DWMC”后面没有双引号。如果我将转换成GB2312的编码，然后使用XMLDocument去解析，也是没有双引号，所以会报错！！！请大侠们看看，是不是idhttp使用的不正确？无法返回正常的utf-8编码的字符串？

Answer 7

    try
      htmlStr := Fidhtp.Get(SearchUrl);
    except    end;
    htmlStr := Utf8ToAnsi(htmlStr);

Answer 8

please try agin GET的方法：IdHTTP1.Request.AcceptCharSetvar lastbox:TStringList. begin lastbox:=TStringList.Create. try idHttp1.Request.AcceptCharSet := UTF-8. lastbox.Text:=UTF8Decode(idhttp1.Get(http://***.***.**)). // //或lastbox.Text:=Utf8ToAnsi(idhttp1.Get(http://***.***.**)). showmessage(lastbox.Text); 

Answer 9

其實：可用WebBrowser，它取出来的好像是unicode；而IDHTTP得进行编码转换
再次參考下面的DEMO：var 
  IframeUrl: string; 
  ret:WideString;//TStringStream; 
  SourceHtmlCode: WideString; 
begin 
  IframeUrl := 'http://ctplp.blog15.fc2.com/blog-entry-33.html';//这个网站是EUC－JS编码 
  //IframeUrl := 'http://www.nhk.or.jp/furusato/koremade/koremade_ibaraki.html';//这个网站是SHIFT－JS编码   IdHTTP.HandleRedirects:=true; 
  IdHTTP.Request.ContentType:= 'application/x-www-form-urlencoded'; 
  IdHTTP.Request.UserAgent:= 'Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1; SV1; .NET CLR 1.1.4322)'; 
  IdHTTP.Request.SetHeaders; 
  try 
    SourceHtmlCode := StringToWideString(IdHTTP.Get(IframeUrl),51932);//日文EUC編碼是51932  日文(Shift-JIS)是932 
    Memo1.Lines.Text := SourceHtmlCode; 
  except 
    ShowMessage('未找到HTTP服务器'); 
  end; 
end; function StringToWideString(const S: string; CodePage: Word): WideString; 
var 
    InputLength, OutputLength: Integer; 
begin 
    InputLength := Length(S); 
    OutputLength := MultiByteToWideChar(CodePage, 0, PChar(S), InputLength, nil, 0); 
    SetLength(Result, OutputLength); 
    MultiByteToWideChar(CodePage, 0, PChar(S), InputLength, PWideChar(Result), OutputLength); 
end; 

Answer 10

var
  ss : TStringStream;
begin
  ss := TStringStream.Create('', TEncoding.GetEncoding(65001)); 
  try
    IdHTTP1.Get(CSURL, ss);
    IdHTTP1.Get(CSURL);
    Memo1.Text := ss.DataString;
  finally
    ss.Free;
  end;
end;

Answer 11

这样就可以了var
  ss : TStringStream;
begin
  ss := TStringStream.Create('', TEncoding.GetEncoding(65001)); 
  try
    IdHTTP1.Get(URL_Address, ss);
    Memo1.Text := ss.DataString;
  finally
    ss.Free;
  end;
end;