求DELPHI获取网页源码的一段代码
求DELPHI获取网页源码的一段代码
日期:2010-09-02 11:17:35 人气:1
以下内容是一个单元,保存为MyIdHTTP.pas后,由主程序uses这个单元,调用GetStrOfURL即可。
unit MyIdHTTP;
interface
uses IdHTTP, SysUtils;
const
CN_Count_Retry = 5; // 失败后重试次数
CN_SleepBetweenRetry = 3000; // 重试前延迟毫秒数
function GetStrOfURL(
c