Освободить файл

← →
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);

Освободить файл Найти похожие ветки