home *** CD-ROM | disk | FTP | other *** search
/ The World of Computer Software / World_Of_Computer_Software-02-387-Vol-3of3.iso / t / tpapi.zip / NWFSERV.PA1 < prev    next >
Text File  |  1992-03-02  |  4KB  |  82 lines

  1. {!R! FONT 15; FTMD 15; EXIT;}
  2.  
  3.  
  4. {***************************************************************************}
  5. {** Program : NWFSERV                                                     **}
  6. {***************************************************************************}
  7. {** Version : 1.3             ** Started : 11/11/91  ** Ended :   /  /    **}
  8. {***************************************************************************}
  9. {******************************** Description ******************************}
  10. {***************************************************************************}
  11. {** OOP library for Netware API                                           **}
  12. {**                                                                       **}
  13. {** This unit forms the second level object : FSERV                       **}
  14. {** This object is a descandent of          : NETWARE                     **}
  15. {**                                                                       **}
  16. {**                                                                       **}
  17. {**                                                                       **}
  18. {**                                                                       **}
  19. {***************************************************************************}
  20. {******************************** Information ******************************}
  21. {***************************************************************************}
  22. {** Provides Netware File Services                                        **}
  23. {**                                                                       **}
  24. {**                                                                       **}
  25. {**                                                                       **}
  26. {** This code is (c) 1991,1992 Tony Covelli                               **}
  27. {** Portions (c) Novell Inc,                                              **}
  28. {**                                                                       **}
  29. {**                                                                       **}
  30. {***************************************************************************}
  31.  
  32. {$I NETWARE.INC}
  33.  
  34. UNIT NWFSERV;
  35.  
  36. INTERFACE
  37.  
  38. USES
  39.  
  40.   netware, nwvar;
  41.  
  42. TYPE
  43.  
  44.   pFServOBJ = ^FServOBJ;
  45.   FServOBJ  = object (NetwareOBJ)
  46.  
  47.     CONSTRUCTOR Init;
  48.  
  49.     FUNCTION    EraseFiles                (DirectoryHandle : BYTE; DirectoryPath : PathNameType;
  50.                                            SearchAttributes : BYTE) : WORD;
  51.  
  52.     FUNCTION    FileServerFileCopy        (VAR SourceFile, DestinationFile : FileOfByte; SourceFileOffset,
  53.                                            DestinationFileOffset, NumberOfBytesToCopy : LONGINT;
  54.                                            VAR NumberOfBytesCopied : LONGINT) : WORD;
  55.  
  56.     FUNCTION    GetExtendedFileAttributes (FilePath : PathNameType; VAR ExtendedFileAttributes : BYTE) : WORD;
  57.  
  58.     FUNCTION    PurgeAllErasedFiles : WORD;
  59.  
  60.     FUNCTION    PurgeErasedFiles : WORD;
  61.  
  62.     FUNCTION    RestoreErasedFile         (DirectoryHandle : BYTE; VolumeName : VolumeNameType;
  63.                                            VAR ErasedFileName, RestoredFileName : FileNameType) : WORD;
  64.  
  65.     FUNCTION    ScanFileInformation       (DirectoryHandle : BYTE; FilePath : PathNameType; SearchAttributes : BYTE;
  66.                                            VAR SequenceNumber : INTEGER; VAR FileName : FileNameType;
  67.                                            VAR FileAttributes, ExtendedFileAttributes : BYTE; VAR SizeOfFile : LONGINT;
  68.                                            VAR CreationDate, LastAccessDate : WORD; VAR LastUpdateDateAndTime,
  69.                                            LastArchiveDateAndTime : LONGINT; VAR FileOwnerID : OT_BinderyID) : WORD;
  70.  
  71.     FUNCTION    SetExtendedFileAttributes (Filepath : PathNameType; ExtendedFileAttributes : BYTE) : WORD;
  72.  
  73.     FUNCTION    SetFileInformation        (DirectoryHandle : BYTE; FilePath : PathNameType; SearchAttributes,
  74.                                            FileAttributes, ExtendedFileAttributes : BYTE; CreationDate,
  75.                                            LastAccessDate : WORD; LastUpdateDateAndTime,
  76.                                            LastArchiveDateAndTime : LONGINT; FileOwnerID : OT_BinderyID) : WORD;
  77.  
  78.     DESTRUCTOR  Done; VIRTUAL;
  79.  
  80.   END;
  81.  
  82.