01 2012 档案

摘要: 纪念不用 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 萧寒 阅读(282) | 评论 (0) 编辑