一个侦测端口的函数

最新推荐文章于 2022-02-25 21:57:21 发布

dyny

最新推荐文章于 2022-02-25 21:57:21 发布

阅读量663

点赞数

分类专栏： Delphi 文章标签： parameters function c

本文链接：https://blog.csdn.net/dyny/article/details/1428198

版权

Delphi 专栏收录该内容

1 篇文章 0 订阅

订阅专栏

USES IdTCPClient;

...

TYPE
netUn_ResultCode = (rcCreateError, rcActionError, rcActionOk, rcOk);

...

FUNCTION netUn_TestPort_hTS(CONST c_ip: ShortString; CONST c_port, c_timeout: Word): netUn_ResultCode;
{
==============================
Parameters:
c_ip        ShortString
c_port      Word
c_timeout   Word
Result      netUn_ResultCode
==============================
}
VAR
g: netUn_ResultCode;
aIdTCPClient: TIdTCPClient;
BEGIN
g:= rcCreateError;
TRY
    aIdTCPClient:= TIdTCPClient.Create(NIL);
    IF aIdTCPClient <> NIL THEN BEGIN
      TRY
        TRY
          g:= rcActionError;
          aIdTCPClient.Host:= c_ip;
          aIdTCPClient.Port:= c_port;
          aIdTCPClient.Connect(c_timeout);
          aIdTCPClient.Disconnect;
          g:= rcOk;
        EXCEPT
          g:= rcActionError;
        END;
      FINALLY
        IF aIdTCPClient.Connected THEN aIdTCPClient.Disconnect;
      END;
    END;
FINALLY
    IF aIdTCPClient <> NIL THEN FreeAndNil(aIdTCPClient);
END;
Result:= g;
END;