delphi函数，识别字符集编码

纪念不用 Delphi 开发7周年

 函数，获取web page文本，识别字符集编码；

 1  function CreateHttpRequest(proxyServer:  string =  ''; proxyPort: integer =  0):
 2   TIdHTTP;
 3  function DecodeHttpRequestText(InString:  string):  string;
 4  implementation
 5 
 6  { $R *.dfm }
 7 
 8  function DecodeHttpRequestText(InString:  string):  string;
 9  begin
10   Result := UpperCase(InString);
11   //google,baidu,cnblogs,localhost等测试ok...
12    if (Pos( ' CHARSET= ', Result) =  0)  or (pos( ' =UTF- ', Result) <>  0)  then
13     InString := Utf8Decode(InString);
14   Result := InString;
15  end;
16 
17  function CreateHttpRequest(proxyServer:  string =  ''; proxyPort: integer =  0):
18   TIdHTTP;
19  begin
20   Result := TIdHTTP.Create( nil);
21    with Result  do
22    begin
23     HandleRedirects := true;
24     HTTPOptions := [hoForceEncodeParams];
25     ReadTimeout :=  30000;
26     Request.Accept :=
27        ' image/gif, image/x-xbitmap, image/jpeg, image/pjpeg, application/x-shockwave-flash, */* ';
28     Request.AcceptLanguage :=  ' zh-cn ';
29     Request.ContentType :=  ' application/x-www-form-urlencoded ';
30     Request.UserAgent :=
31        ' Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1; SV1; .NET CLR 4.0) ';
32      if (proxyServer <>  '')  then
33       proxyParams.ProxyServer := proxyServer; // ' 代理服务器地址 ';
34      if proxyPort <>  0  then
35       proxyParams.ProxyPort := proxyPort; // ' 代理服务器端口 ';
36    end;
37  end;
38 
39  procedure TForm1.btn1Click(Sender: TObject);
40  var
41   getstr:  string;
42  begin
43   mmo1.Lines.Clear;
44   getstr :=DecodeHttpRequestText( CreateHttpRequest().Get(edt1.Text));
45   mmo1.Lines.Add(getstr);
46 
47  end;