hsh.inc 1.1 KB

1234567891011121314151617181920212223242526272829303132333435
  1. Type
  2. THostAddr = array[1..4] of byte;
  3. PHostAddr = ^THostAddr;
  4. TNetAddr = THostAddr;
  5. PNetAddr = ^TNetAddr;
  6. THostAddr6 = array[0..7] of word;
  7. PHostAddr6 = ^THostAddr6;
  8. TNetAddr6 = THostAddr6;
  9. PNetAddr6 = ^TNetAddr6;
  10. Const
  11. NoAddress : THostAddr = (0,0,0,0);
  12. NoNet : TNetAddr = (0,0,0,0);
  13. NoAddress6 : THostAddr6 = (0,0,0,0,0,0,0,0);
  14. NoNet6: THostAddr6 = (0,0,0,0,0,0,0,0);
  15. function HostAddrToStr (Entry : THostAddr) : String;
  16. function StrToHostAddr(IP : String) : THostAddr ;
  17. function NetAddrToStr (Entry : TNetAddr) : String;
  18. function StrToNetAddr(IP : String) : TNetAddr;
  19. Function HostToNet (Host : ThostAddr) : THostAddr;
  20. Function NetToHost (Net : TNetAddr) : TNetAddr;
  21. Function HostToNet (Host : Longint) : Longint;
  22. Function NetToHost (Net : Longint) : Longint;
  23. Function ShortHostToNet (Host : Word) : Word;
  24. Function ShortNetToHost (Net : Word) : Word;
  25. function HostAddrToStr6 (Entry : THostAddr6) : String;
  26. function StrToHostAddr6(IP : String) : THostAddr6;
  27. function NetAddrToStr6 (Entry : TNetAddr6) : String;
  28. function StrToNetAddr6(IP : String) : TNetAddr6;