摘要: 纪念不用 Delphi 开发7周年函数,获取web page文本,识别字符集编码;1functionCreateHttpRequest(proxyServer:string='';proxyPort:integer=0):2TIdHTTP;3functionDecodeHttpRequestText(InString:string):string;4implementation56{$R*.dfm}78functionDecodeHttpRequestText(InString:string):string;9begin10Result:=UpperCase(InString) 阅读全文
posted @ 2012-01-11 19:04 suifei 阅读(4364) 评论(0) 推荐(0) 编辑