Solved

File Access Denied error

Posted on 2000-02-22
3
205 Views
Last Modified: 2010-04-16
Since I deleted my last question, because of the need to read more to understand what the experts give out, I have come across this particular problem several times. I put clip Of my code here which goes as follows-

writeln('save these details (Y/N)?);
readln(reply);
if (reply='y') or (reply='Y')
then
   Newrec.TranNo:= Newrec.TranNo+1;
   Newrec.InDel:=false;
   write(Inco,Newrec);<-'file access denied' error flagged here
 writeln('do you wish to continue?(Y/N)');
  readln(reply);
until (reply='n') or (reply='N');
close(Inco);
end;

The file is opened up as usual at the beginning of the procedure and the contents of the file seeked ie;

seek(InCo,Filesize(InCo)-1);
if not eof(InCo)
then
read(InCo,Newrec);

then the data is entered, when the request is made to save, then the file access error aboughts the program.
Why should this be as the record has to be written to file; write(InCO,Newrec);
Thanks for your help...chrisbee.



0
Comment
Question by:chrisbee
3 Comments
 
LVL 12

Accepted Solution

by:
Hypo earned 100 total points
ID: 2549418
The reason you get that error is most probably because your file is opened as READ-ONLY. i don't know how you open your file but this is how I'm dooing it.
And I can write records to a file without getting that error.

uses crt,dos;

var NewRec : NewRecType;
    InCo : File of NewRecType;

begin
 assign(InCo,'FileName.Any');
 Reset(InCo);
 Seek(InCo,FileSize(InCo)-1);
 if not EOF(InCo) then Read (InCo,NewRec);
 {...}
 Write(InCo,NewRec);
 Close(InCo);
end.

This piece of code works on my computer. Try it on yours and see if it works... if it does, check out what differs between yours and mine!

regards, Hypo
0
 
LVL 48

Expert Comment

by:dbrunton
ID: 2549423
Presumably you have something like

type
  DataRecord = record
    TranNo : integer;
    InDel : boolean
  end;

var
 Inco : file of DataRecord;
 EndOfTheFile : longint;
 TheData, NewRec : DataRecord;

assign(Inco, 'FILENAME');
reset(Inco);


EndOfTheFile := FileSize(Inco) div SizeOf(TheDataRecord);
Seek(Inco, EndOfFile);   {* this gives you end of file *}



{* code should be something like this *}

writeln('save these details (Y/N)?);
readln(reply);
repeat
  begin
      if (reply='y') or (reply='Y') then
         begin
            Newrec.TranNo := Newrec.TranNo+1;
            Newrec.InDel := false;
            write(Inco, Newrec);  <-'file access denied' error flagged here
          end;
      writeln('do you wish to continue?(Y/N)');
      readln(reply);
  end;
until (reply='n') or (reply='N');
0
 

Author Comment

by:chrisbee
ID: 2555665
HiHypo!

Nice to hear from you again. Thanks for your help. I tried the code you suggested and the error has gone. I applied this to the other files inwhich the same error arose and they too are now ok. I can now get on with the final procedure in my prog. I shall have a go myself but it seems likely I shall have to return to 'EE' with yet another question but this time I shall post up the code here for all to see. My Thanks to all those who offered help- I wish I could give you all some points

Best wishes.........chrisbee.
0

Featured Post

Free Tool: Site Down Detector

Helpful to verify reports of your own downtime, or to double check a downed website you are trying to access.

One of a set of tools we are providing to everyone as a way of saying thank you for being a part of the community.

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

Suggested Solutions

Title # Comments Views Activity
send click   without cursor 6 379
Extract small icon from a TMemoryStream or TIcon 3 723
Delphi 2010 auto upgrade has "lost" a file 7 1,088
delphi prevent click fast 2 255
Facebook has became the #1 social media platform. People share many funny videos there, yet you don't know how to download them? Now you can download Videos from Facebook in just 3 simple steps.
This article demonstrates probably the easiest way to configure domain-wide tier isolation within Active Directory. If you do not know tier isolation read https://technet.microsoft.com/en-us/windows-server-docs/security/securing-privileged-access/s…
The Email Laundry PDF encryption service allows companies to send confidential encrypted  emails to anybody. The PDF document can also contain attachments that are embedded in the encrypted PDF. The password is randomly generated by The Email Laundr…
In an interesting question (https://www.experts-exchange.com/questions/29008360/) here at Experts Exchange, a member asked how to split a single image into multiple images. The primary usage for this is to place many photographs on a flatbed scanner…

740 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question