摘要:
纪念不用 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) 阅读全文