| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Освободить файл [D7, Win2k]
Baiji © (2006-06-15 13:55:00)Открываю файл:
AssignFile(LocalFile, ExchangePath + LocalPath + sRec.cFileName);
{$i-}
Rewrite(LocalFile, 1);
{$i+}
Записываю туда данные:
BlockWrite(LocalFile, buffer, bufsize);
Закрываю файл
CloseFile(LocalFile);
При попытки удалить/переименовать/переместить файл возникает "ошибка при совместном доступе к файлу" и так до тех пор пока не закрывается моё приложение. Как "освободить" файл?
Заранее благодарен.
Desdechado (2006-06-15 16:46:00) [1]begin...end © (15.06.06 16:39) [5]
да, подзабыл малёхо
но автор-то не отпирался :)
begin...end (2006-06-15 16:39:00) [2]> Desdechado © (15.06.06 16:36) [4]
И? В файл пишется bufsize * 1 = bufsize байт, а не 1.
Desdechado (2006-06-15 16:36:00) [3]begin...end © (15.06.06 16:33) [3]
Rewrite(LocalFile, 1 );
begin...end (2006-06-15 16:33:00) [4]> Desdechado © (15.06.06 14:04) [1]
Где Вы увидели побайтную запись?
Baiji (2006-06-15 14:08:00) [5]Разобрался спасибо!!! ;)
С FTP качаю
Desdechado (2006-06-15 14:04:00) [6]значит, пытаешься, когда файл еще не закрыт
PS зачем пишешь побайтно?
| |
