本文整理自网络,侵删。
var
FHTTPClient:TIdHTTP;
begin
FHTTPClient := TIdHTTP.Create( Self );
with FHTTPClient do
begin
Disconnect;
Request.Pragma := 'no-cache';
Request.CacheControl := 'no-cache';
Request.Connection := 'close';
ReadTimeout := 1000 * 60 * 1;//1分钟超时
memo1.Text :=Get( 'http://hk.news.yahoo.com/busi/general/prnewswire/' );
end;
freeandnil(FHTTPClient); 相关阅读 >>
idhttp访问网页出现socket error #10054错误
Delphi tstylemanager读取vsf皮肤文件信息
Delphi 将string 转为 array of ansichar
Delphi fdconnection查看所有表包含用户表和系统表
Delphi richedit memo1支持中文搜索、向上查找、区分大小写
更多相关阅读请进入《Delphi》频道 >>