Форум: "Основная";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.03.14;
Скачать: [xml.tar.bz2];




Вниз

Почему глючит определение размера файла 


ev   (2002-02-22 21:49) [0]

Этот блок выполняется каждые 2 секунды. В файл 2 раза в секунду пишутся данные (по 20 КБ).

f:=TFileStream.Create("d:\exp.dat",(fmOpenRead or fmShareDenyNone));
size:=f.Size;
f.Free;

Почему (иногда) переменная size два раза подряд содержит одинаковые значения?
Проверял - запись в файл была!



Vitaly Nevzorov   (2002-02-23 00:35) [1]

Попробуй добавить после открытия потока переход позиции чтения на конец потока(seek).



ev   (2002-02-28 17:42) [2]

не помогло :(

что еще попробовать....



Юрий Зотов   (2002-02-28 17:45) [3]

> В файл 2 раза в секунду пишутся данные (по 20 КБ).

И это обновление система сбрасывает на диск не сразу, а когда решит, что пора. Кэширование, однако...



ev   (2002-02-28 17:53) [4]

и как с этим бороться?



Юрий Зотов   (2002-02-28 18:30) [5]

Попробуйте FlushFileBuffers. Но боюсь, что вызывать ее придется в контексте пишущего процесса - то есть, возможно, потребуется правка исходников и перекомпиляция пишущей программы. Если это доступно, то можно попробовать также изменить флаги файла сразу при его открытии - см. FILE_FLAG_NO_BUFFERING и пр. в описании CreateFile. Вообще, пишущая программа Ваша или нет?



ev   (2002-02-28 18:37) [6]


fdb:=TFileStream.Create("d:\file.db",(fmOpenReadWrite or fmShareDenyWrite));


где изменить FILE_FLAG_NO_BUFFERING (не нашел) ?



troits   (2002-02-28 19:11) [7]

Видимо, придется писать потомка TFileStream, где перекрыть конструктор Create.

.....
Handle := Integer(CreateFile(PChar(FileName), .... FILE_ATTRIBUTE_NORMAL or FILE_FLAG_NO_BUFFERING, 0));



Юрий Зотов   (2002-02-28 19:19) [8]

Здесь - нигде, надо менять код Stream"а в VCL. Но делать это, конечно, ни к чему.

Попробуйте отказаться от использования FileStream, а вместо него пишите через напрямую через API (CreateFile, WriteFile...). Тогда все в Ваших руках - можно и любые флаги выставить, и FlushFileBuffers вызывать после каждого изменения. Только с FILE_FLAG_NO_BUFFERING аккуратнее - внимательно прочитайте хелп.

И еще. Похоже, Вы ловите изменения файла. Но ловить их по таймеру плохо, надо использовать FindFirst/Next/CloseChangeNotification.




Форум: "Основная";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.03.14;
Скачать: [xml.tar.bz2];




Наверх





Память: 0.73 MB
Время: 0.07 c
4-43224           kirya85               2002-01-16 08:45  2002.03.14  
Как изменить размер окна чужого приложения?


14-43146          Merlin                2002-01-25 04:31  2002.03.14  
Вышла новая версия чисто русского DELPHI !!!!


6-43119           daos                  2001-12-26 15:50  2002.03.14  
Как принять сообщение через сокет? до меня не доходит...


14-43134          Praco                 2002-01-25 10:19  2002.03.14  
Как правильно говорить : Дельфи или Делфи?


1-43069           Light Elf             2002-02-27 10:22  2002.03.14  
wsMaximized