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;