mormot2 ping

mormot2 ping

uses
mormot.net.sock

function Ping(const AIp, APort: string): Boolean;
var
  res: TNetResult;
  timeout: Integer;
  addr: TNetAddr;
  sock: TNetSocket;
begin
  timeout := 10000;
  res := NewSocket(AIp, APort, nlTcp,
    { doBind= } false, 1000, timeout, timeout, { retry= } 1, sock, @addr);
  Result := res = nrOK;
end;