Текущий архив: 2006.07.30;
Скачать: CL | DM;
Вниз
Освободить файл Найти похожие ветки
← →
Baiji (2006-06-15 13:55) [0]Открываю файл:
AssignFile(LocalFile, ExchangePath + LocalPath + sRec.cFileName);
{$i-}
Rewrite(LocalFile, 1);
{$i+}
Записываю туда данные:
BlockWrite(LocalFile, buffer, bufsize);
Закрываю файл
CloseFile(LocalFile);
При попытки удалить/переименовать/переместить файл возникает "ошибка при совместном доступе к файлу" и так до тех пор пока не закрывается моё приложение. Как "освободить" файл?
Заранее благодарен.
← →
Desdechado © (2006-06-15 14:04) [1]значит, пытаешься, когда файл еще не закрыт
PS зачем пишешь побайтно?
← →
Baiji (2006-06-15 14:08) [2]Разобрался спасибо!!! ;)
С FTP качаю
← →
begin...end © (2006-06-15 16:33) [3]> Desdechado © (15.06.06 14:04) [1]
Где Вы увидели побайтную запись?
← →
Desdechado © (2006-06-15 16:36) [4]begin...end © (15.06.06 16:33) [3]
Rewrite(LocalFile, 1);
← →
begin...end © (2006-06-15 16:39) [5]> Desdechado © (15.06.06 16:36) [4]
И? В файл пишется bufsize * 1 = bufsize байт, а не 1.
← →
Desdechado © (2006-06-15 16:46) [6]begin...end © (15.06.06 16:39) [5]
да, подзабыл малёхо
но автор-то не отпирался :)
Страницы: 1 вся ветка
Текущий архив: 2006.07.30;
Скачать: CL | DM;
Память: 0.47 MB
Время: 0.029 c
