home *** CD-ROM | disk | FTP | other *** search
/ ProfitPress Mega CDROM2 …eeware (MSDOS)(1992)(Eng) / ProfitPress-MegaCDROM2.B6I / PROG / PASCAL / MISCTI10.ZIP / TI342.ASC < prev    next >
Encoding:
Text File  |  1988-04-18  |  2.4 KB  |  74 lines
  1. PRODUCT : TURBO PASCAL     NUMBER : 342
  2. VERSION : 3.02A
  3.      OS : PC-DOS, MS-DOS
  4.    DATE : October 9, 1986
  5.  
  6.   TITLE : ADVANCED FILE HANDLING
  7.  
  8. The  following  information is presented for  advanced  users  of 
  9. Turbo Pascal using MS-DOS or PC-DOS operating systems.
  10.  
  11. Turbo  Pascal uses MS-DOS file handles to open files.    Function 
  12. call  3DH  is used.   One of the parameters to this call  is  the 
  13. "open  mode," which provides DOS with information about  the  way 
  14. you  intend  to  access the file and what access to  allow  other 
  15. processes (in a networking or future multitasking environment).  
  16.  
  17. Turbo  Pascal  normally  uses  an open  mode  byte  of  2,  which 
  18. designates   Compatibility   Mode  with  Read/Write  Access   and 
  19. Inheritance  by child processes.  By changing the value  of  this 
  20. byte  to  0,  you may open Read-only files.   There may be  other 
  21. applications for this, especially in a network environment.
  22.  
  23. Open mode byte for Reset & Rewrite (PC-DOS):
  24.  
  25.     TURBO.COM    CSEG:$24C6
  26.     TURBO-87.COM CSEG:$1F75
  27.     TURBOBCD.COM CSEG:$23CE
  28.  
  29. Open mode byte for Reset & Rewrite (MS-DOS):
  30.  
  31.     TURBO.COM    CSEG:$21EE
  32.     TURBO-87.COM CSEG:$1C9D
  33.     TURBOBCD.COM CSEG:$20F6
  34.  
  35. The  best  way to use this information is to create  an  absolute 
  36. variable pointing to the byte, for example:
  37.  
  38.   var OpenModeByte: byte absolute CSeg:$24C6;  (TURBO.COM PC-DOS)
  39.  
  40. For additional safety, make sure that the value of the byte being 
  41. changed  is actually 2 before changing it.   Remember,  change it 
  42. back to 2 if you intend to do normal file opening intermixed with 
  43. opening  of  Read-only  or  shared  files.   Information  on  the 
  44. different  attributes  can  be  found in the  DOS  3.0  Technical 
  45. Reference Manual.
  46.  
  47. { Using TURBO.COM version 3.02A }
  48.  
  49. var OpenModeByte: byte absolute CSeg:$24C6;  (TURBO.COM PC-DOS)
  50.  
  51. Procedure AccessReadOnly;
  52.  
  53. begin
  54.   if not(OpenModeByte in [0, 2]) then 
  55.     Error
  56.   else
  57.     OpenModeByte := 0;
  58. end;
  59.  
  60. procedure AccessReadWrite;
  61.  
  62. begin
  63.   if not(OpenModeByte in [0, 2]) then 
  64.     Error
  65.   else
  66.     OpenModeByte := 2;
  67. end;
  68.  
  69. The  open  mode byte for overlay,  chain,  and execute  files  is 
  70. normally 0,  Compatibility Mode with Read Access.   The addresses 
  71. for  these  mode  bytes can be found by  searching  the  run-time 
  72. library  for the bytes 00 3D.   The first occurrence is  the  one 
  73. used  for  overlay files,  and the second is used for  Chain  and 
  74. Execute files.