Delphi - Check if File Opened? - GameCreators Forum

Author

Message

Sergey K

21

Years of Service

User Offline

Joined: 4th Jan 2004

Location:

Posted: 4th Mar 2006 20:25

Link

hey all, i got a questions; how do i check if the file is opened by other program?

Goga's FTP Plugin BlueLight Online

Back to top

Profile PM Website

empty

22

Years of Service

User Offline

Joined: 26th Aug 2002

Location: 3 boats down from the candy

Posted: 5th Mar 2006 22:52

Link

You could try to open the file and check if an error returns.

+ Code Snippet

F: file of Byte;
begin
AssignFile(F, FileName);
{$I-}
  Reset(F);
{$I+}
if IOResult <> 0 then
   MessageDlg('File access error', mtWarning, [mbOk], 0);
end;

That'd only work if the file isn't open in shared mode, though.

Play Nice! Play Basic!

Back to top

Profile PM

Chris Franklin

19

Years of Service

User Offline

Joined: 2nd Aug 2005

Location: UK

Posted: 5th Mar 2006 23:02

Link

Delphi looks like dbp syntax

Theme park simulator wip
http://forum.thegamecreators.com/?m=forum_view&t=71731&b=8

Back to top

Profile PM Website

Sergey K

21

Years of Service

User Offline

Joined: 4th Jan 2004

Location:

Posted: 6th Mar 2006 12:46

Link

humm.. i could try to use Try/except commands to check if file is already in use
like:

+ Code Snippet

T:TextFile;
begin
try
AssignFile(T,'MyFile.txt');
except
MessageDlg('The file cannot be opened',mtError,[mbOK],0);
end;

end;

is that will work?

btw, empty, what with the {$I-} and {$I+} commands?
what they are for?

Goga's FTP Plugin BlueLight Online

Back to top

Profile PM Website

Paisleys finest

19

Years of Service

User Offline

Joined: 11th Nov 2005

Location: In a house

Posted: 6th Mar 2006 13:26

Link

{$I} enables/disables I/O checking code.

If you disable I/O checking then an exception will not be thrown by your program if a file cannot be opened. Instead you use IOResult to determine if the file open was successful.

Check the IOResult docs in Delphi and you'll see more about {$I} compiler directive

Regards, Scott T.

Looking for mature software developer to finish my Bruce Lee remake.. apply via email to MSN address.

Back to top

Profile PM Email

Sergey K

21

Years of Service

User Offline

Joined: 4th Jan 2004

Location:

Posted: 6th Mar 2006 15:23

Link

humm.. nice.. really need to learn more about the delphi.. cuz it sounds v. powerful from what i have imagine