home *** CD-ROM | disk | FTP | other *** search
/ Network Supervisor's Toolkit / Network Supervisor's Toolkit.iso / tools / nwtp06 / nwsap.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1996-07-10  |  1.4 KB  |  50 lines
  1. Unit NwSAP;
  2.  
  3. { NwTP Version 0.6, Copyright 1993,1995 R. Spronk
  4.  
  5.   WARNING: Test your program thoroughly if you're using nwSAP functions.
  6.   ----------------------------------------------------------------------
  7.  
  8.   Using the SAP functionality the wrong way may very well result in
  9.   aborting servers ! (no kidding.)
  10.  
  11.   NOTE: Type Declarations only. See SHWSAPS.PAS for an example }
  12.  
  13.  
  14. INTERFACE
  15.  
  16. Uses nwMisc,nwIPX;
  17.  
  18. CONST { server SAP priodic broadcast type }
  19.       PERIODIC_ID_PACKET = $0002;
  20.       { server SAP (reply) packet types }
  21.       GENERAL_SERVICE_RESPONSE=$0002;
  22.       NEAREST_SERVICE_RESPONSE=$0004;
  23.       { client SAP (request) packet types }
  24.       GENERAL_SERVICE_QUERY =$0001;
  25.       NEAREST_SERVICE_QUERY =$0003;
  26.  
  27. { Type definitions for SAP request/response structures}
  28. Type TSAPserver=record
  29.                 ObjType:word;
  30.                 Name   :array[1..48] of byte; { asciiz }
  31.                 Address:TinternetworkAddress;
  32.                 Hops   :word;
  33.                 end;
  34.  
  35.      TSAPresponse=record
  36.                   ResponseType:word; { 0002 General server; 0004 nearest server }
  37.                   ServerEntry:array[1..7] of TSAPserver;
  38.                   end;
  39.  
  40.      TSAPrequest=record
  41.          RequestType:word; {hi-lo}
  42.          ServerType :word; {hi-lo}
  43.          end;
  44.  
  45. IMPLEMENTATION {===========================================================}
  46.  
  47.  
  48.  
  49.  
  50. end.