delphi 网页源代码
delphi 网页源代码
日期:2009-03-27 14:03:08 人气:1
uses idhttp;
function getPage(URL:String):string;
var
http:tidhttp;
begin
result:='';
http:=tidhttp.Create(nil);
try
result:=http.Get(url);
except
// 错误304(转向)
if http.ResponseCode=304 then
result: