本文整理自网络,侵删。
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);
相关阅读 >>
Delphi adoconnection1连接mssql数据库方法
Delphi 中将tmemorystream转换为'string'
Delphi中文件名函数-路径、名称、子目录、驱动器、扩展名
更多相关阅读请进入《Delphi》频道 >>