home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 10 Tools / 10-Tools.zip / tcpipvp2.zip / IBMTCP32.PAS < prev    next >
Pascal/Delphi Source File  |  1996-10-10  |  1KB  |  36 lines
  1. unit IBMTCP32;
  2.  
  3. {$OrgName+ }
  4.  
  5. interface
  6.  
  7. uses OS2Def;
  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. {$CDECL-}
  21.  
  22. implementation
  23.  
  24. const
  25.   Version    = '00.90';
  26.   UseString:  string = '@(#)import interface unit for IBM TCP/IP tcp32dll.dll'+#0;
  27.   CopyRight1: string = '@(#)ibmTCP32 Version '+Version+' - 10.10.96'+#0;
  28.   CopyRight2: string = '@(#)(C) Chr.Hohmann BfS ST2.2 1996'+#0;
  29.  
  30. {$CDECL+}
  31.   function IBM_gethostbyname;               external;
  32.   function IBM_gethostbyaddr;               external;
  33.   function IBM_gethostname;                 external;
  34. {$CDECL-}
  35. end.
  36.