Delphi ошибка доступа к файлу

Нравится ресурс? Помоги проекту!

ошибка доступа к файлу
, или как закрыть файл принудительно?

• Подписаться на тему
• Сообщить другу
• Скачать/распечатать тему

Сообщ. #1 , 27.01.08, 02:08
Junior Рейтинг (т): 1	Пытаюсь сохранить значение TStringList в файл с помощью TStringlist.SaveToFile() Но иногда вылетает ошибка доступа к файлу — пишет что файл уже открыт другим процессом. Т.е. иногда все работает, а иногда нет Как тогда принудительно закрыть файл, перед сохранением? P.S. С этим файлом я работаю только через TStringList.SaveToFile() и TWebBrowser.Navigate().

ViktorXP	Сообщ. #2 , 27.01.08, 06:43
	try    MyStringlist.SaveToFile(‘кудато в небытие’); except    ShowMessage(‘Закрой файл, а то глаз выколю!!’);    // тут можна сказать левой процедуре чобы та закрыла свой доступ и дала дорогу молодым)))    // а потом вызвать процедуру повтора end; Добавлено 27.01.08, 06:45 просто закрыть файл не зная хендл трудновато будет)))

tyoma_first

Сообщ. #3 , 27.01.08, 12:28

Junior Рейтинг (т): 1

Я именно так и делаю. Меня как раз интересует момент // тут можна сказать левой процедуре чобы та закрыла свой доступ и дала дорогу молодым))) // а потом вызвать процедуру повтора Какую процедуру использовать или как написать свою? Напомню что я с этим файлом работаю только с помощью TStringList.SaveToFile() и TWebBrowser.Navigate(). Может быть TWebBrowser держит файл открытым? Если да — то как ему сказать что файлы закрывать надо?..

ViktorXP	Сообщ. #4 , 27.01.08, 17:35
	Ну веб браузер не использует постоянно страничку попробуй добавить какойто флаг и перед загрузкой в вебраузер ставить его в истину а в событии OnDocumentComplete ставить его в лож а уже перед сохранением из TStringList проверять илиже перед сохранением зделать WebBrowser1.Stop; чтобы он прекратил загружать страничку

tyoma_first	Сообщ. #5 , 01.02.08, 22:27
Junior Рейтинг (т): 1	Цитата ViktorXP @ 27.01.08, 17:35 илиже перед сохранением зделать WebBrowser1.Stop; чтобы он прекратил загружать страничку делал — не помогает

simsergey	Сообщ. #6 , 02.02.08, 09:46
	Цитата ViktorXP @ 27.01.08, 06:43 ShowMessage(‘Закрой файл, а то глаз выколю!!’); Гениально! Надо себе в прогу засунуть

ViktorXP	Сообщ. #7 , 03.02.08, 08:12
	tyoma_first ну тада показывай весь исходник походу у тебя еще чтото файл ковыряет

tyoma_first	Сообщ. #8 , 03.02.08, 19:18
Junior Рейтинг (т): 1	Нее.. исходник там очень большой (бывший дипломный проект ). Так что даже если выложу — придется много разбираться Тем не менее спасибо за советы, я нашел решение другим путем (загружаю в webbrowser напрямую, без сохранения в файл).

0 пользователей читают эту тему (0 гостей и 0 скрытых пользователей)

0 пользователей:

• Предыдущая тема
• Delphi: Общие вопросы
• Следующая тема

[ Script execution time: 0,0934 ]   [ 16 queries used ]   [ Generated: 28.01.23, 18:02 GMT ]  

It is not AssignFile() that fails, but your call to Rewrite() on a file with the Hidden attribute set. Following explains it:

Typically you call Rewrite(F) in order to erase the file and write new data to it with subsequent Write(F, ...) or WriteLn(F, ...) calls.

From docs (System.Rewrite):

If an external file with the same name already exists, it is deleted
and a new empty file is created in its place.

There is no problem opening the file for writing with the Append() command.

(Based on above I drew the conclusion that it is the deletion that fails with the Access denied message. That was cutting the corners too much.)

Beaten by comments I traced through the code and compared actual code with MSDN documentation for CreateFile:

Actual code:

// if mode is fmOutput (as it is for Rewrite)
OpenMode = GENERIC_WRITE
Flags = CREATE_ALWAYS
// ...
Temp := CreateFile(t.Name, OpenMode, FILE_SHARE_READ, nil, Flags, FILE_ATTRIBUTE_NORMAL, 0);

And documentation:

If CREATE_ALWAYS and FILE_ATTRIBUTE_NORMAL are specified, CreateFile
fails and sets the last error to ERROR_ACCESS_DENIED if the file
exists and has the FILE_ATTRIBUTE_HIDDEN or FILE_ATTRIBUTE_SYSTEM
attribute.

Calling Rewrite() on a existing file with the hidden attribute fails always.

It is not AssignFile() that fails, but your call to Rewrite() on a file with the Hidden attribute set. Following explains it:

Typically you call Rewrite(F) in order to erase the file and write new data to it with subsequent Write(F, ...) or WriteLn(F, ...) calls.

From docs (System.Rewrite):

If an external file with the same name already exists, it is deleted
and a new empty file is created in its place.

There is no problem opening the file for writing with the Append() command.

(Based on above I drew the conclusion that it is the deletion that fails with the Access denied message. That was cutting the corners too much.)

Beaten by comments I traced through the code and compared actual code with MSDN documentation for CreateFile:

Actual code:

// if mode is fmOutput (as it is for Rewrite)
OpenMode = GENERIC_WRITE
Flags = CREATE_ALWAYS
// ...
Temp := CreateFile(t.Name, OpenMode, FILE_SHARE_READ, nil, Flags, FILE_ATTRIBUTE_NORMAL, 0);

And documentation:

If CREATE_ALWAYS and FILE_ATTRIBUTE_NORMAL are specified, CreateFile
fails and sets the last error to ERROR_ACCESS_DENIED if the file
exists and has the FILE_ATTRIBUTE_HIDDEN or FILE_ATTRIBUTE_SYSTEM
attribute.

Calling Rewrite() on a existing file with the hidden attribute fails always.

← →
Gloomer ©
 
(2006-09-24 21:13)
[0]

В строке
Stream := TFileStream.Create(FileName+fDLog, fmOpenRead);
вылетает ошибка «Процесс не может получить доступ к файлу, т.к. файл занят другим процессом»
На что надо заменить fmOpenRead ?

← →
Ketmar ©
 
(2006-09-24 21:14)
[1]

добавить ro fmShareDenyWrite, например. или почитать, наконец, справку…

← →
Gloomer ©
 
(2006-09-24 21:20)
[2]

Изначально так и было.
Точнее, использовалось TStrings.LoadFromFile, где так и описано
Stream := TFileStream.Create(FileName, fmOpenRead or fmShareDenyWrite);
Но это не решает проблемы.
При этом файл прекрасно открывается другими программами

← →
Правильный Вася
 
(2006-09-24 21:25)
[3]

>>> файл прекрасно открывается другими программами
они его и держат???

← →
Gloomer ©
 
(2006-09-24 21:33)
[4]

Нет — не они.
Процесс, который держит — известен.
При этом при открытии тем же блокнотом процесс уже запущен и использует нужный файл и блокнот его открывает.

← →
Ketmar ©
 
(2006-09-24 22:25)
[5]

fmShareDenyNone

← →
Gloomer ©
 
(2006-09-24 23:12)
[6]

2 Ketmar
Оно самое — спасибо

← →
Ketmar ©
 
(2006-09-24 23:13)
[7]

>[6] Gloomer(c) 24-Sep-2006, 23:12
>2 Ketmar
>Оно самое — спасибо
только учти — это опасно. мало ли, что там, в файле, поменяют, пока ты его читаешь.

← →
ProgRAMmer Dimonych
 
(2006-09-24 23:38)
[8]

Есть ещё TMemoryStream с методом LoadFromFile. Читаем, меняем всё, что душе угодно, вызываем SaveToFile и по фигу, кто там что поменял за время работы.

← →
Ketmar ©
 
(2006-09-24 23:52)
[9]

>[8] ProgRAMmer Dimonych 24-Sep-2006, 23:38
>и по фигу, кто там что поменял за
>время работы.
особенно, если это файл со структурой и данными, например. закешированый программой. ей будет очень удивительно.