delphi 判断url是否有效

在 Delphi 中判断 URL 是否有效，可以使用 `TIdHTTP` 组件进行检查。这个组件在 Delphi 的 Indy（Internet Direct）网络组件库中。

以下是一个使用 `TIdHTTP` 组件判断 URL 是否有效的示例代码：

uses
  IdHTTP, IdURI;

function IsValidURL(const URL: string): Boolean;
var
  IdHTTP: TIdHTTP;
  URI: TIdURI;
begin
  IdHTTP := TIdHTTP.Create(nil);
  try
    URI := TIdURI.Create(URL);
    try
      IdHTTP.Head(URI.URI);
      Result := IdHTTP.ResponseCode = 200;
    finally
      URI.Free;
    end;
  finally
    IdHTTP.Free;
  end;
end;

这个函数接收一个 URL 字符串作为参数，返回一个布尔值来指示 URL 是否有效。函数内部创建一个 `TIdHTTP` 实例，然后使用 `TIdURI` 组件解析传入的 URL 字符串，然后通过调用 `Head` 方法发送一个 HTTP HEAD 请求到 URL，并检查返回的响应代码是否为 200。

如果返回的响应代码为 200，则表示 URL 是有效的，函数返回 True；否则，函数返回 False。请注意，在使用 `TIdHTTP` 组件检查 URL 时，您需要注意网络连接和错误处理，以确保函数的可靠性和稳定性。