紀念不用 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;

?

轉載于:https://www.cnblogs.com/Chinasf/archive/2012/01/11/2319811.html

總結

以上是生活随笔為你收集整理的delphi函数，识别字符集编码的全部內容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網站內容還不錯，歡迎將生活随笔推薦給好友。