Question

求DELPHI获取网页源码的一段代码

补充，不能用IDHTTP控件，我现在用的就是这个控件，但取到的源码是只能取到前面一部分，就是说取到的内容不完整，我想换别的更好的办法

Answer 1

以下内容是一个单元，保存为MyIdHTTP.pas后，由主程序uses这个单元，调用GetStrOfURL即可。

unit MyIdHTTP;

interface

uses IdHTTP, SysUtils;

const
CN_Count_Retry = 5; // 失败后重试次数
CN_SleepBetweenRetry = 3000; // 重试前延迟毫秒数

function GetStrOfURL(
const sURL : string;
var sContent : string;
nRetryCount : Integer = CN_Count_Retry;
nSleepMS : Integer = CN_SleepBetweenRetry
) : Boolean;

implementation

var
AIdHTTP : TIdHTTP;

function GetStrOfURL(
const sURL : string;
var sContent : string;
nRetryCount : Integer = CN_Count_Retry;
nSleepMS : Integer = CN_SleepBetweenRetry
) : Boolean;
begin
Result := False;
while nRetryCount > 0 do
try
sContent := AIdHTTP.Get( sURL );
Result := True;
Break;
except
Dec( nRetryCount );
Sleep( nSleepMS );
end;
end;

initialization
AIdHTTP := TIdHTTP.Create( nil );

finalization
FreeAndNil( AIdHTTP );

end.

Answer 2

放入控件中的IWLayoutMgrHTML1双击可以看到网页源码