home bbs files messages ]

Just a sample of the Echomail archive

Cooperative anarchy at its finest, still active today. Darkrealms is the Zone 1 Hub.

   BBBS.ENGLISH      The International BBBS Support Echo      2,762 messages   

[   << oldest   |   < older   |   list   |   newer >   |   newest >>   ]

   Message 179 of 2,762   
   mark lewis to Robert Wolfe   
   BBBS Utility   
   23 May 12 11:19:48   
   
    RW> I have the file opened for SHAREing, but that doesn't seem to fix   
    RW> this problem any.  If anyone is running BBBS/NT and would like to   
    RW> test this new util out for me, please let me know.   
      
   you are also opening it for READ only, right? no WRITE at all... plus SHARE of   
   course...   
      
   i don't "do" BASIC since i found ASM and pascal so long ago but in pascal, i   
   have the following i use as part of my standard inclusions...   
      
   Const   
     fmReadOnly = 0;          {FileMode constants}   
     fmWriteOnly = 1;   
     fmReadWrite = 2;   
     fmDenyAll = 16;   
     fmDenyWrite = 32;   
     fmDenyRead = 48;   
     fmDenyNone = 64;   
     fmNoInherit = 128;   
      
      
   so... i add together those i want to use for accessing a file... in your case,   
   we want fmReadOnly and fmDenyNone... i would write that something like so...   
      
      
     OldFileMode := FileMode;   
     FileMode := fmReadOnly + fmDenyNone;   
     If Not shReset(TF^.BufferFile,1) Then   
       DisplayError('Cannot open file!')   
     Else   
       DoMyThing;   
     FileMode := OldFileMode;   
      
      
      
   helps??   
      
      
   )\/(ark   
      
    * Origin:  (1:3634/12)   

[   << oldest   |   < older   |   list   |   newer >   |   newest >>   ]


(c) 1994,  bbs@darkrealms.ca