Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Основная";
Текущий архив: 2006.07.30;
Скачать: [xml.tar.bz2];

Вниз

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

 
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;
Скачать: [xml.tar.bz2];

Наверх





Память: 0.45 MB
Время: 0.013 c
3-1148483626
Некто
2006-05-24 19:13
2006.07.30
Упрощение запроса


2-1152271204
Crazy monkey
2006-07-07 15:20
2006.07.30
2 Вопроса по TreeView


2-1152030285
KLAUS
2006-07-04 20:24
2006.07.30
IDSmtp


15-1152050166
Footballer
2006-07-05 01:56
2006.07.30
Зацините audioplayer


3-1148377107
DVM
2006-05-23 13:38
2006.07.30
Аналог TDBEdit c нормальной маской для ввода ip адреса.





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский