| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Открытие файла, не закрытого другой программой [D6, WinXP]
asdqwer © (2006-11-25 16:08:00)При попытке открыть файл (с помощью процедуры reset), не закрытый другим приложением, написанным на Pascal (с помощью процедуры close или closefile) возникает сообщение об ошибке "Невозможно открыть файл ... ". Такое же сообщение возникает, даже если использовать блок try - except. Возможно ли как-то определить, корректно ли закрыт тот или иной файл или, по крайней мере, при возникновении ошибки иметь возможность её обработать, избежав появления сообщения?
Дмитрий Белькевич (2006-11-27 23:38:00) [1]А файл на запись вообще открывать нужно? Может чтения достаточно?
Тогда переменная FileMode поможет.
alex810 (2006-11-27 14:27:00) [2]Попробуйте это нашел у себя в справочнике
Даже если файл открыт с низкими привелегиями (используя ReadOnly, ShareReadWrite) , иногда открытие уже открытого файла может приводить к ошибкам, особенно, если это файл интенсивно используется другим приложением. Самый простой способ решить эту проблемму - это использовать MemoryStream вместо непосредственного доступа к файлу:
var
Memory: TMemoryStream;
begin
Memory := TMemoryStream.Create;
try
Memory.LoadFromFile('DelphiWorld.dat'); // это он!!
...
Memory.read(...); // Вы можете использовать методы чтения как у файлов
Memory.Seek(...);
FileSize := Memory.Size;
...
finally
Memory.Free;
end;
end;
Данный способ никогда не открывает файл, а заместо этого создаёт копию его в памяти. Конечно Вы можете и записать в поток (Stream) в Памяти(Memory), но изменения не будут записаны на диск до тех пор, пока Вы не запишете их в файл (командой SaveToFile).
Krants (2006-11-27 14:10:00) [3]asdqwer [0]
обычно при проверке "занятости" файла используют, как сказал Savek, блок
try - except
try
{открываем файл}
except
{файл не открыт}
Result:=false;
end;
Германн (2006-11-26 02:13:00) [4]
> Такое же сообщение возникает, даже если использовать блок
> try - except.
Имхо, не там или не так ставишь "защищённый блок".
Выполни [3}
koha (2006-11-25 23:06:00) [5]Через какой интервал времени после закрытия/незакрытия прога пытается открыть файл?
Savek (2006-11-25 16:22:00) [6]Покажи код, без него трудно сказать что-то умное...
asdqwer (2006-11-25 16:15:00) [7]В том-то и дело, что нет! Ошибка возникла на компьютере, где Delphi вообще не установлена. А причину я выяснил уже с помощью отладки.
Savek (2006-11-25 16:11:00) [8]Для этого и есть блок try - except, а сообщение возникает потому что запускаешь прогу из под Делфи.
| |
