[Delphi]检查URL是否有效的函数

最新推荐文章于 2017-11-09 19:23:00 发布

weixin_30692143

最新推荐文章于 2017-11-09 19:23:00 发布

阅读量155

点赞数

CC 4.0 BY-SA版权

原文链接：http://www.cnblogs.com/chonghai/p/5581402.html

本文介绍了一个使用Delphi实现的检查URL状态的函数。该函数通过HTTP请求获取指定URL的状态码，判断URL是否可达。函数首先确保URL格式正确，并通过InternetOpen和InternetOpenUrl函数发起请求，最后利用HttpQueryInfo获取状态码。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

function CheckUrl(url: string): boolean;
var
  hSession, hfile, hRequest: hInternet;
  dwindex, dwcodelen: dword;
  dwcode: array[1..20] of char;
  res: pchar;
begin
  if pos('http://', lowercase(url)) = 0 then
    url := 'http://' + url;
  Result := false;
  hSession := InternetOpen('InetURL:/1.0', INTERNET_OPEN_TYPE_PRECONFIG, nil, nil, 0);
  if assigned(hsession) then
  begin
    hfile := InternetOpenUrl(hsession, pchar(url), nil, 0, INTERNET_FLAG_RELOAD, 0);
    dwIndex := 0;
    dwCodeLen := 10;
    HttpQueryInfo(hfile, HTTP_QUERY_STATUS_CODE, @dwcode, dwcodeLen, dwIndex);
    res := pchar(@dwcode);
    result := (res = '200') or (res = '302');
    if assigned(hfile) then
      InternetCloseHandle(hfile);
    InternetCloseHandle(hsession);
  end;
end;

转载于:https://www.cnblogs.com/chonghai/p/5581402.html