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;

本文转自suifei博客园博客，原文链接：http://www.cnblogs.com/Chinasf/archive/2012/01/11/2319811.html，如需转载请自行联系原作者