home *** CD-ROM | disk | FTP | other *** search
/ synchro.net / synchro.net.tar / synchro.net / main / BBS / D32_01.ZIP / IBMTCP32.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1999-06-26  |  1.9 KB  |  54 lines
  1. unit IBMTCP32;
  2.  
  3. {$OrgName+ }
  4.  
  5. interface
  6.  
  7. uses OS2Def, SockDef;
  8.  
  9. {$CDECL+}
  10.   (****************************************************************************)
  11.   function IBM_gethostbyname(HName: pointer): pointer;
  12.   (****************************************************************************)
  13.   function IBM_gethostbyaddr(HAddr:     pointer;
  14.                              HAddrLen:  longint;
  15.                              HAddrType: ULong): pointer;
  16.   (****************************************************************************)
  17.   function IBM_gethostname(HName:  pointer;
  18.                            HLength:ULong):  APIRET;
  19.   (****************************************************************************)
  20.   function IBM_getservbyname(_Name, _Proto: pChar): pServEnt;
  21.   function inet_addr(_s: pChar): ULONG;
  22.  
  23.   function getprotobyname(_Name: pChar): pProtoEnt;
  24.  
  25.   function htonl(_a: LongInt): LongInt;
  26.   function ntohl(_a: LongInt): LongInt;
  27. {  function htons(_a: LongInt): LongInt; }
  28. {  function ntohs(_a: SmallInt): SmallInt; }
  29. {$CDECL-}
  30.  
  31. implementation
  32.  
  33. const
  34.   Version    = '00.90';
  35.   UseString:  string = '@(#)import interface unit for IBM TCP/IP tcp32dll.dll'+#0;
  36.   CopyRight1: string = '@(#)ibmTCP32 Version '+Version+' - 10.10.96'+#0;
  37.   CopyRight2: string = '@(#)(C) Chr.Hohmann BfS ST2.2 1996'+#0;
  38.  
  39. const
  40.   sockets       = 'SO32DLL';
  41.   network       = 'TCP32DLL';
  42.  
  43. {$CDECL+}
  44.   function inet_addr;                   external network index 5;
  45.   function IBM_gethostbyname;           external network index 11;
  46.   function IBM_gethostbyaddr;           external network index 12;
  47.   function IBM_gethostname;             external network index 44;
  48.   function getprotobyname;              external network index 21;
  49.   function IBM_getservbyname;           external network index 24;
  50.   function htonl;                       external network index 3;
  51.   function ntohl;                       external network index 3;
  52. {$CDECL-}
  53. end.
  54.