Недавно добавленные исходники

•  3D Designer  829

•  Sik Screen Capture  571

•  Patch Maker  513

•  Айболит (remote control)  627

•  ListBox Drag & Drop  464

•  Доска для игры Реверси  8 587

•  Графические эффекты  560

•  Рисование по маске  441

•  Перетаскивание изображений  486

•  Canvas Drawing  487

•  Рисование Луны  379

•  Поворот изображения  259

•  Рисование стержней  315

•  Paint on Shape  189

•  Генератор кроссвордов  247

•  Головоломка Paletto  225

•  Теорема Монжа об окружностях  270

•  Пазл Numbrix  185

•  Заборы и коммивояжеры  302

•  Игра HIP  204

•  Игра Go (Го)  145

•  Симулятор лифта  180

•  Программа укладки плитки  165

•  Генератор лабиринта  204

•  Проверка числового ввода  193

•  HEX View  231

•  Физический маятник  202

•  Задача коммивояжера  233

•  Автомобильная пробка  156

•  Квадратные сетки из слов  127

 
скрыть


Delphi FAQ - Часто задаваемые вопросы

| Базы данных | Графика и Игры | Интернет и Сети | Компоненты и Классы | Мультимедиа |
| ОС и Железо | Программа и Интерфейс | Рабочий стол | Синтаксис | Технологии | Файловая система |



Сбросить данные файла на диск



Имеется процедура Flush, которая работает с открытыми файлами:


flush(f);

В руководстве четко не сказано, передает ли (сбрасывает) Flush данные непосредственно на диск. Если это не так, то данные сохраняются в других временных буферах. В качестве дополнительной меры безопасности, я "опускаюсь" для этого вызова в dos. Необходимость данного вызова спорна, но пусть он в нашем случае покажет эту возможность.

Ниже дан пример:


Uses Sysutils;

var
  F: text; { это ваш текстовый файл }

Procedure TextFlush(F : Text);
var
  fhandle: word;
begin
  Flush(F);
  fhandle := ttextrec(F).Handle; { получаем дескриптор msdos }
  asm
    mov  ax, $6800
    mov  bx, handle
    call DOS3CALL
  end;
end;

Если файл является "блочным" файлом, пропускаем шаг с командой flush, и используем tfilerec вместо ttextrec.

Переменная Filemode определяет режим открытия файла (По умолчанию режим эксклюзивный). К сожалению, это не срабатывает для текстовых файлов, поэтому вы должны, используя blockreads писать в буфер, и затем конвертировать части буфера в строку, если вы хотите работать с ним как с текстовым файлом.

Assign, или AssignFile, как вы теперь знаете, не может использоваться с файлом, который уже открыт (я проверял это, и это действительно так). В вашем случае рекомендую обратиться к вызову API OpenFile, ничего в этом страшного нет.

Если это текстовый файл, сбросьте сначала текстовый буфер на диск командой flush:


flush(f);

Остальное относится ко всем файлам:

Сделайте файлу commit, используя dos-функцию commit, доступную начиная с DOS 5.


asm
mov  ax, $6800                { делаем commit файла }
mov  bx, ttextrec(f).handle   { получаем дескриптор файла }
call dos3call                 { это предпочтительный способ,  INT $21 также должно работать }
end;

Согласно документации Microsoft, данный вызов также сбрасывает буфера SMARTDRIVE. MSDN10 так описывает алгоритм реализации этого на языке приложения:

Для сброса данных, сохраняемых в буфере SMARTDRV.EXE версии 4.0, вы можете воспользоваться одним из следующих способов:

  • Используйте функцию MS-DOS Commit File (которая записывает измененные данные буфера). Это прерывание 21h, функция 68h.
  • Используйте функцию MS-DOS Disk Reset (которая записывает измененные данные и чистит кэш). Это прерывание 21h, функция 0Dh.




Похожие по теме исходники

Разбиение файла на части

Текст внутри файла




Copyright © 2004-2021 "Delphi Sources" by BrokenByte Software. Delphi World FAQ

Группа ВКонтакте   Facebook   Ссылка на Twitter   Ссылка на Telegram