hsh.inc 676 B

123456789101112131415161718192021
  1. Type
  2. THostAddr = array[1..4] of byte;
  3. PHostAddr = ^THostAddr;
  4. TNetAddr = THostAddr;
  5. PNetAddr = ^TNetAddr;
  6. Const
  7. NoAddress : THostAddr = (0,0,0,0);
  8. NoNet : TNetAddr = (0,0,0,0);
  9. function HostAddrToStr (Entry : THostAddr) : String;
  10. function StrToHostAddr(IP : String) : THostAddr ;
  11. function NetAddrToStr (Entry : TNetAddr) : String;
  12. function StrToNetAddr(IP : String) : TNetAddr;
  13. Function HostToNet (Host : ThostAddr) : THostAddr;
  14. Function NetToHost (Net : TNetAddr) : TNetAddr;
  15. Function HostToNet (Host : Longint) : Longint;
  16. Function NetToHost (Net : Longint) : Longint;
  17. Function ShortHostToNet (Host : Word) : Word;
  18. Function ShortNetToHost (Net : Word) : Word;