home *** CD-ROM | disk | FTP | other *** search
/ ftp.wwiv.com / ftp.wwiv.com.zip / ftp.wwiv.com / pub / PROTOCOL / TPHYD100.ZIP / H_FILE.PAS < prev    next >
Pascal/Delphi Source File  |  1993-08-18  |  2KB  |  53 lines
  1. {$A+,B-,D-,E-,F-,I-,L-,N-,O+,R-,S-,V-}
  2. (******************************************************************************)
  3. (*                      Hydra Bi-directional Protocol                         *)
  4. (*                        ─────────────────────────                           *)
  5. (*                                                                            *)
  6. (*                          Low Level File Handler                            *)
  7. (*                                                                            *)
  8. (* BY: Adam Blake                                      Wandoo Valley Software *)
  9. (*     Arjen Lentz                                         and Lentz Software *)
  10. (* VER: 1.00                                                      Development *)
  11. (* DATE: 5th August 1993                                   (c) Copyright 1993 *)
  12. (* LANGUAGE: Turbo Pascal v6.0                  All Rights Reserved Worldwide *)
  13. (******************************************************************************)
  14. Unit h_File;
  15. Interface
  16.  
  17. uses
  18.   DOS;
  19.  
  20. const
  21.   RO           = 0;
  22.   WO           = 1;
  23.   RW           = 2;
  24.   DenyAll      = 16;
  25.   DenyNone     = 64;
  26.   DenyWrite    = 32;
  27.  
  28. var
  29.   FileInfo     : SearchRec;
  30.  
  31.   hFile_Check : Function( RxFName : string; RxFSize, RxFTime : longint ) : string;
  32.   hFile_Okay  : Function( RxPathName : string; RxFTime : longint ) : boolean;
  33.   hFile_Bad   : Function( RxPathName : string; RxFSize : longint ) : boolean;
  34.  
  35.  
  36. Function FileCheck( FileMask : string ) : boolean;
  37.  
  38. (******************************************************************************)
  39. Implementation
  40.  
  41.  
  42. Function FileCheck( FileMask : string ) : boolean;
  43. begin
  44.   FindFirst(FileMask,AnyFile,FileInfo);
  45.   If DosError <> 0 then FileCheck := false
  46.    else FileCheck := true;
  47. end;
  48.  
  49. (**********************************MAINLINE************************************)
  50.  
  51. end.
  52.  
  53.