home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / PASCAL / LANTAS.ZIP / LANOS.INT next >
Encoding:
Text File  |  1992-01-02  |  7.4 KB  |  147 lines
  1.  
  2. {
  3.  ╔════════════════════════════════════════════════════════════════════════╗
  4.  ║ UNIT NetBios                                                           ║
  5.  ║                                                                        ║
  6.  ║ Unit to support LANTastic NOS-Calls out from Turbo Pascal              ║
  7.  ╟────────────────────────────────────────────────────────────────────────╢
  8.  ║ Author    : O. Rehmann                                                 ║
  9.  ║ Compiler  : Turbo Pascal 6.0                                           ║
  10.  ║ OS        : MS-DOS 5.0                                                 ║
  11.  ║ Last Edit : 01-02-1992                                                 ║
  12.  ║ Version   : 1.0                                                        ║
  13.  ╚════════════════════════════════════════════════════════════════════════╝
  14. }
  15.  
  16. UNIT LANOS;
  17.  
  18. {$M $1000 $0 $0}
  19. {$R- }
  20.  
  21. INTERFACE
  22.  
  23. USES DOS;
  24.  
  25. {$I NOS.INC}
  26.  
  27. CONST    MultiplexINT        = $2F;
  28.          ALT_LANOS_INT       = $2A;
  29.          DOS_LANOS_INT       = $21;
  30.  
  31.  
  32. TYPE
  33.          PRINTER_MODE        = (COMBINE,SEPARATE,FLUSH); { Enumeration for some Int 21 printer-function
  34.                                                            and for some 2A Interface-Calls }
  35.  
  36.  
  37.  
  38. VAR      Regs                : Registers;
  39.          NOSErrno            : Word;     { NOS-Error; updated after each NOS-Call }
  40.          NOS_Message         : String;   { NOS-Error-Message; updated after
  41.                                                               each NOS-Call }
  42.  
  43.          SUPER_REDIR_INSTALLED
  44.                              : Boolean;  { IF REDIR has popup-capability }
  45.          REDIR_INSTALLED     : Boolean;
  46.          SERVER_INSTALLED    : Boolean;
  47.          LANPUP_INSTALLED    : Boolean;
  48.  
  49.          LANOS_Maj           : Byte;     { Version ID's }
  50.          LANOS_Min           : Byte;
  51.  
  52.          I,J                 : Byte;
  53.  
  54. FUNCTION NOSGetErrorText(tWord : Word)     : String;
  55. FUNCTION NOSPresence                       : Byte;
  56. FUNCTION NOSSharePresence                  : Boolean;
  57. FUNCTION NOSGetVersion                     : Word;
  58.  
  59. FUNCTION NOS_Check2AInterface              : Boolean;
  60.  
  61. {══════════════════════════════════════════════════════════════════════}
  62. { Interrupt 21 functions for printers                                  }
  63. {══════════════════════════════════════════════════════════════════════}
  64.  
  65.  
  66. FUNCTION  NOS_GetPrinterMode : Byte;
  67. PROCEDURE NOS_SetPrinterMode(tMode : Printer_Mode);
  68. PROCEDURE NOS_FlushPrinter;
  69.  
  70.  
  71. {══════════════════════════════════════════════════════════════════════}
  72. { Interrupt 2A functions                                               }
  73. {══════════════════════════════════════════════════════════════════════}
  74.  
  75. PROCEDURE _2A_SetPrinterMode(tMode : Printer_Mode);
  76.  
  77. {══════════════════════════════════════════════════════════════════════}
  78. { MS-DOS compatible Network-Calls                                      }
  79. {══════════════════════════════════════════════════════════════════════}
  80.  
  81. FUNCTION  GetMachineName : String;
  82. PROCEDURE NOSSetPrinterSetup(Index,Len : Integer; Buffer : Pointer);
  83. PROCEDURE NOSGetPrinterSetup(Index,Len : Integer; Buffer : Pointer);
  84. PROCEDURE NOSGetRedirDevice(Index : Integer; VAR DevName,NetPath : String; VAR DevType : Byte);
  85. PROCEDURE NOSRedirDevice(DevType : Byte; DevName,NetPath : String);
  86. PROCEDURE NOSCancelRedir(DevName : String);
  87.  
  88. {══════════════════════════════════════════════════════════════════════}
  89. { LANTASTIC extended System-Calls                                      }
  90. {══════════════════════════════════════════════════════════════════════}
  91.  
  92. PROCEDURE NOSGetLogin(VAR Index : Word; VAR Login : String; VAR Adapter : Byte);
  93. PROCEDURE NOSLogin(Server,Username,Password : String;Adapter : Byte);
  94. PROCEDURE NOSLogout(Server : String);
  95. PROCEDURE NOSGetUserName(VAR Index : Word;VAR Username : String;VAR Adapter : Byte);
  96. PROCEDURE NOSGetServer(VAR Index : Word;VAR Server : String;VAR Adapter : Byte);
  97. PROCEDURE NOSChangePassword(Server,OldPassword,NewPassword : String);
  98. PROCEDURE NOSDisable(Server,Password : String);
  99. PROCEDURE NOSGetAccount(VAR Account : user_account; Server : String);
  100. PROCEDURE NOSLogoutAll;
  101. {────────────────────────────────────────────────────────────────────────────────────────────────}
  102. PROCEDURE NOSCopyFile(VAR Amount : DWORD;sourcefile,targetfile : String;VAR Error : Word);
  103. {────────────────────────────────────────────────────────────────────────────────────────────────}
  104. PROCEDURE NOSSendMsg(VAR Buffer : message_buffer);
  105. PROCEDURE NOSGetMsg (VAR Buffer : message_buffer);
  106. PROCEDURE NOSGetMsgFlag (VAR Flag : Byte);
  107. PROCEDURE NOSSetMsgFlag (VAR Flag : Byte);
  108. PROCEDURE NOSPopUpMsg(Ticks : Word;Line : Byte);
  109. {────────────────────────────────────────────────────────────────────────────────────────────────}
  110. PROCEDURE NOSGetQueue(VAR Index : Word; VAR Queue : queue_entry; Server : String);
  111. PROCEDURE NOSSetQueue(VAR Handle : Word; VAR Queue : queue_entry);
  112. PROCEDURE NOSControlQueue(VAR Printer : Word; Cmd : Byte; Server : String; VAR Seq : DWORD);
  113. PROCEDURE NOSGetStatus(VAR Printer : Word; VAR Buffer : PS; Server : String);
  114. {────────────────────────────────────────────────────────────────────────────────────────────────}
  115. PROCEDURE NOSGetStreamInfo(VAR Index : Word; VAR Stream : logical_stream; Server : String);
  116. PROCEDURE NOSSetStreamInfo(VAR Index : Word; VAR Stream : logical_stream; Server : String);
  117. {────────────────────────────────────────────────────────────────────────────────────────────────}
  118. PROCEDURE NOSCreateAudit(Code,Reason,Server : String);
  119. {────────────────────────────────────────────────────────────────────────────────────────────────}
  120. PROCEDURE NOSGetUserInfo(VAR Index : Word; VAR User : active_user_entry; Server : String);
  121. {────────────────────────────────────────────────────────────────────────────────────────────────}
  122. PROCEDURE NOSGetDirInfo(Resource,Server : String;VAR ResDef : String;VAR ACL : Word);
  123. {────────────────────────────────────────────────────────────────────────────────────────────────}
  124. PROCEDURE NOSGetUserAcct(VAR Index : Word;VAR Username : String;Server : String);
  125. {────────────────────────────────────────────────────────────────────────────────────────────────}
  126. PROCEDURE NOSTranslatePath(VAR OutputPath,InputPath : String; Mode : Word);
  127. {────────────────────────────────────────────────────────────────────────────────────────────────}
  128. PROCEDURE NOSCreateIndir(RelativePath,IndirPath : String);
  129. PROCEDURE NOSGetIndir(VAR IndirFile,IndirContens : String);
  130. {────────────────────────────────────────────────────────────────────────────────────────────────}
  131. PROCEDURE NOSGetTime(VAR _Time : time_block; Server : String);
  132. {────────────────────────────────────────────────────────────────────────────────────────────────}
  133. PROCEDURE NOSShutDown(Reason,Server : String;Mins,Option : Word);
  134. PROCEDURE NOSCancelShutDown(Server : String);
  135. {────────────────────────────────────────────────────────────────────────────────────────────────}
  136. PROCEDURE NOSStuffServerBuffer(Stuff,Server : String);
  137. {────────────────────────────────────────────────────────────────────────────────────────────────}
  138. PROCEDURE NOSGetLPTTimeout(VAR Ticks : Word);
  139. PROCEDURE NOSSetLPTTimeout(Ticks : Word);
  140. {────────────────────────────────────────────────────────────────────────────────────────────────}
  141. PROCEDURE NOSGetDOSVector(VAR Vector : Pointer);
  142. PROCEDURE NOSSetDOSVector(Vector : Pointer);
  143. PROCEDURE NOSGetMsgVector(VAR Vector : Pointer);
  144. PROCEDURE NOSSetMsgVector(Vector : Pointer);
  145.  
  146.  
  147.