Delphi检查IP地址的合法性

最新推荐文章于 2024-08-07 19:12:53 发布

原创最新推荐文章于 2024-08-07 19:12:53 发布 · 3.4k 阅读

0 ·

CC 4.0 BY-SA版权

Delphi代码类专栏收录该内容

64 篇文章

订阅专栏

本文详细介绍了如何使用Delphi编程语言实现两个核心功能：一是在字符串中查找特定子字符串的出现次数；二是验证给定的IP地址是否符合标准格式。通过内置函数和字符串操作，展示了实用的编程技巧，适用于需要处理文本和网络应用的开发者。

{-------------------------------------------------------------------------------
  作者:      曾聪
  日期:      2013.12.27
  过程名:    GetSubStrCount
  功能：     获得子字符串在父字符串中出现的次数
  参数:      sSubStr, sParentStr: string
  返回值:    integer
  说明:
-------------------------------------------------------------------------------}

function GetSubStrCount(sSubStr, sParentStr: string): integer;
begin
  Result := 0;
  while Pos(UpperCase(sSubStr), UpperCase(sParentStr)) <> 0 do
    begin
      sParentStr := Copy(sParentStr, Pos(sSubStr, sParentStr) + 1, Length(sParentStr)); //假设s2最大长度为9999个字符
      Result := Result + 1;
    end;
end;

{-------------------------------------------------------------------------------
  作者:      曾聪
  日期:      2013.12.27
  过程名:    IsLegalIP
  功能：     检查IP地址是否合法
  参数:      IP: String
  返回值:    Boolean
  说明:      True为合法，False为非法
-------------------------------------------------------------------------------}

function IsLegalIP(sIP: string): Boolean;
begin
  if (GetSubStrCount('.', sIP) = 3) and (Longword(inet_addr(PAnsiChar(AnsiString(sIP)))) <> INADDR_NONE) then
    Result := True
  else
    Result := False;
end;