Delphi如何判断一个网页链接是有效的？

冥界3大法王

Delphi如何判断一个网页链接是有效的？
打不开，超时的，无效的，统统的剔除掉。

yushuai033X

uses
  IdHTTP;

function CheckLinkValid(const AUrl: string): Boolean;
var
  IdHttp: TIdHTTP;
begin
  IdHttp := TIdHTTP.Create(nil);
  try
    try
      IdHttp.Get(AUrl);
      Result := IdHttp.ResponseCode = 200;
      // 或者使用下面这个语句判断状态码
      // Result := IdHttp.ResponseCode in [200..299];
    except
      // 请求出错时返回链接无效
      Result := False;
    end;
  finally
    IdHttp.Free;
  end;
end;

冥界3大法王

yushuai033X 发表于 2023-11-24 11:47
uses
  IdHTTP;

不行啊，报错啊。。。

wqs12345

这年代了，dephi还有人用呀

kenxy

你的是https所以就报错了

delphi调用http接口直接使用idhttp就可以了，但是调用https接口的时候就需要和IdSSLIOHandlerSocket1控件一起使用。