盒子论坛 v2.1

以前用d7、indy9写的程序：用两个函数实现客户端读取服务器端的asp程序生成的xml，一直没什么问题，现在用xe2，用了utf8toansi,utf8decode都会出现乱码，用浏览器却可以正常显示，不知道怎么解决了
Delphi(Pascal) code

function GetdataAsp(AspName:string; StrSql:String):WideString;
begin
  try
    ConnectUrl := 'Http://'+ConnectIni+AspName;
    ReSult := postXml(StrSql,ConnectUrl);
  except
    on Ex:exception do
    begin
      ShowMessage(Ex.Message);
      assignfile(ErrorF,ExtractFilePath(Application.exename)+'ErrorMessage.txt');
      Append(ErrorF);
      try
        writeln(ErrorF,DateTimeToStr(now)+' | '+Ex.Message);
      finally
        closefile(ErrorF);
      end;
    end;
  end;
end;

function postXml(const xmlstr, url: WideString): WideString;
var
  idHttp:TIdHTTP;
  sends:tstrings;
  IdEncoderMIME1:TIdEncoderMIME;
  vStream: TMemoryStream;
begin
  result:='';
  try
    idHttp:= TIdHTTP.Create(nil);
    idHttp.Request.ContentType := 'application/x-www-form-urlencoded';
    idhttp.Request.AcceptCharSet := 'UTF-8';
    idhttp.Request.AcceptEncoding := 'UTF-8';
    idhttp.Request.AcceptLanguage := 'UTF-8';
    sends:=tstringlist.Create;
    sends.Add('strSQL='+(xmlstr));
    result:=idhttp.Post(url,sends);
  except
    on Ex:exception do
    begin
      assignfile(ErrorF,ExtractFilePath(Application.exename)+'ErrorMessage.txt');
      Append(ErrorF);
      try
        writeln(ErrorF,DateTimeToStr(now)+' | '+Ex.Message);
      finally
        closefile(ErrorF);
      end;
    end;
  end;
  idHttp.Free;
  sends.Free;
end;
----------------------------------------------
-

作者：

f00l (小生(骗术师))	★☆☆☆☆	-
	普通会员

2012/9/12 9:52:09

1楼：

这种问题一般用指定编码的StringStream就行了....
----------------------------------------------
-

作者：

adong_71 (呆糊涂)	▲▲▲▲▲	-
	普通会员

2012/9/12 10:32:06

2楼：

具体应该怎么办呢？
----------------------------------------------
-

作者：

newsmile (newsmile)	★☆☆☆☆	-
	盒子活跃会员

2012/9/12 12:03:41

3楼：

查看IndyUTF8Encoding()函数的用法。这是indy的问题，不是DXE2的问题
----------------------------------------------
-

作者：

adong_71 (呆糊涂)	▲▲▲▲▲	-
	普通会员

2012/9/12 22:20:31

4楼：

经过几天的折腾，终于把问题解决了。非常高兴，下面把解决的方法跟大家分享一下：
Delphi(Pascal) code
function GetdataAsp(AspName:string; StrSql:string):string;
var
  ErrorF:TEXTFILE;
  idHttp:TIdHTTP;
  sends:Tstrings;
  ResponseStream:TStringStream;
begin
  ConnectUrl := 'Http://'+ConnectIni+AspName;
  try
//    ResponseStream:=TStringstream.Create('',936);  //gb2312编码
    ResponseStream:=TStringstream.Create('',TEncoding.UTF8);
    idHttp:= TIdHTTP.Create(nil);
    idhttp.AllowCookies := false;
    idhttp.HandleRedirects := false ;
    idHttp.Request.ContentType := 'application/x-www-form-urlencoded';
//    idHttp.Request.UserAgent:='Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1; SV1)';
//    idHTTP.Request.UserAgent := 'Mozilla/4.0 (compatible; MSIE 8.0; Windows NT 5.1; Trident/4.0)';
//    idhttp.Request.AcceptCharSet := 'gb2312';
//   idhttp.Request.ContentEncoding := 'gb2312';
//   idhttp.Request.ContentLanguage := 'gb2312';
//    idhttp.Request.AcceptLanguage :=  'utf-8';

    sends:=tstringlist.Create;
    sends.Add('strSQL='+AnsiString(StrSql));
    idhttp.Post(ConnectUrl,sends,ResponseStream);
    result:=ResponseStream.DataString;
  except
    on Ex:exception do
    begin
      assignfile(ErrorF,ExtractFilePath(Application.exename)+'ErrorMessage.txt');
      Append(ErrorF);
      try
        writeln(ErrorF,DateTimeToStr(now)+' | '+Ex.Message);
      finally
        closefile(ErrorF);
      end;
    end;
  end;
  Freeandnil(ResponseStream);
  idHttp.Free;
  sends.Free;
end;

这是利用服务器端的ASP程序获得和保存数据。不过，在分页的时候又遇到了问题，后来又利用服务器端的webservice的方法把所有的问题都解决了！
----------------------------------------------
-

信息

登陆以后才能回复