Текущий архив: 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.05 c