home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Power-Programmierung
/
CD1.mdf
/
pascal
/
library
/
dos
/
netz
/
netware
/
nwconn.pa1
< prev
next >
Wrap
Text File
|
1992-03-02
|
4KB
|
84 lines
{!R! FONT 15; FTMD 15; EXIT;}
{***************************************************************************}
{** Program : NWCONN **}
{***************************************************************************}
{** Version : 1.3 ** Started : 11/11/91 ** Ended : / / **}
{***************************************************************************}
{******************************** Description ******************************}
{***************************************************************************}
{** OOP library for Netware API **}
{** **}
{** This unit forms the second level object : CONNECT **}
{** This object is a descandent of : NETWARE **}
{** **}
{** **}
{** **}
{** **}
{***************************************************************************}
{******************************** Information ******************************}
{***************************************************************************}
{** Provides Netware Connection Services **}
{** **}
{** **}
{** **}
{** This code is (c) 1991,1992 Tony Covelli **}
{** Portions (c) Novell Inc, **}
{** **}
{** **}
{***************************************************************************}
{$I NETWARE.INC}
UNIT NWCONN;
INTERFACE
USES
netware, nwvar;
TYPE
pConnectOBJ = ^ConnectOBJ;
ConnectOBJ = object (NetwareOBJ)
CONSTRUCTOR Init;
FUNCTION AttachToFileServer (ServerName : ObjectNameType; VAR ConnectionID : WORD) : WORD;
FUNCTION AttachToFileServerWithAddress (ServerName : ObjectNameType; VAR ConnectionID : WORD;
NetAddress : ServerAddressType) : WORD;
PROCEDURE DetachFromFileServer (ConnectionID : WORD);
FUNCTION EnterLoginArea (LoginSubdirectoryName : PathNameType; NumberOfLocalDrives : WORD) : WORD;
FUNCTION GetConnectionInformation (ConnectionNumber : WORD; VAR ObjectName : ObjectNameType;
VAR ObjectType : OT_BinderyType; VAR ObjectID : OT_BinderyID;
VAR LoginTime : Byte7ArrayType) : WORD;
FUNCTION GetConnectionNumber : WORD;
FUNCTION GetInternetAddress (ConnectionNumber : WORD; VAR NetworkNumber : Byte4ArrayType;
VAR PhysicalNodeAddress : Byte6ArrayType; VAR SocketNumber : WORD) : WORD;
FUNCTION GetObjectConnectionNumbers (ObjectName : ObjectNameType; ObjectType : OT_BinderyType;
VAR NumberOfConnections : WORD;
VAR ConnectionList : ConnectionListType; MaxConnections : WORD) : WORD;
PROCEDURE GetStationAddress (VAR PhysicalNodeAddress : Byte6ArrayType);
FUNCTION LoginToFileServer (ObjectName : ObjectNameType; ObjectType : OT_BinderyType;
ObjectPassword : PasswordType; ConnectionID : WORD) : WORD;
PROCEDURE Logout;
PROCEDURE LogoutFromFileServer (ConnectionID : WORD);
DESTRUCTOR Done; VIRTUAL;
END;