50 lines
1.4 KiB
Plaintext
50 lines
1.4 KiB
Plaintext
Unit NwSAP;
|
|
|
|
{ NwTP Version 0.6, Copyright 1993,1995 R. Spronk
|
|
|
|
WARNING: Test your program thoroughly if you're using nwSAP functions.
|
|
----------------------------------------------------------------------
|
|
|
|
Using the SAP functionality the wrong way may very well result in
|
|
aborting servers ! (no kidding.)
|
|
|
|
NOTE: Type Declarations only. See SHWSAPS.PAS for an example }
|
|
|
|
|
|
INTERFACE
|
|
|
|
Uses nwMisc,nwIPX;
|
|
|
|
CONST { server SAP priodic broadcast type }
|
|
PERIODIC_ID_PACKET = $0002;
|
|
{ server SAP (reply) packet types }
|
|
GENERAL_SERVICE_RESPONSE=$0002;
|
|
NEAREST_SERVICE_RESPONSE=$0004;
|
|
{ client SAP (request) packet types }
|
|
GENERAL_SERVICE_QUERY =$0001;
|
|
NEAREST_SERVICE_QUERY =$0003;
|
|
|
|
{ Type definitions for SAP request/response structures}
|
|
Type TSAPserver=record
|
|
ObjType:word;
|
|
Name :array[1..48] of byte; { asciiz }
|
|
Address:TinternetworkAddress;
|
|
Hops :word;
|
|
end;
|
|
|
|
TSAPresponse=record
|
|
ResponseType:word; { 0002 General server; 0004 nearest server }
|
|
ServerEntry:array[1..7] of TSAPserver;
|
|
end;
|
|
|
|
TSAPrequest=record
|
|
RequestType:word; {hi-lo}
|
|
ServerType :word; {hi-lo}
|
|
end;
|
|
|
|
IMPLEMENTATION {===========================================================}
|
|
|
|
|
|
|
|
|
|
end. |