HOME ПРИМЕРЫ THANKS НОВИЧКАМ ДОКИ LINKS JavaScript Mail


 
В этот день много лет назад...
23 ноября. В 1906 году (111 лет назад) - Публикуется столыпинский земельный закон о выделении крестьян из общины на хутора (создание кулацких хуторских хозяйств) - начало столыпинской реформы.
 
 

Turbo Pascal Documentation

Процедура OvrInit

Модуль Overlay


     Фукнция: Инициализирует подсистему управления оверлеями
и открывает оверлейный файл.
     Описание: OvrInit(имя_файла : string)
     Примечания: Если в параметре "имя_файла" буквенная мет-
ка  дисковода или подкаталог не заданы, то подсистема управ-
ления оверлеями ищет файл в текущем  каталоге,  в  каталоге,
содержащем  файлы .ЕХЕ (при работе в ДОС версии 3.х) и в ка-
талогах, заданных с помощью  переменной  операционной  среды
PATH.  Возможные  ошибки могут быть получены с помощью пере-
менной операционной среды OvrResult. Значение ovrOk  говорит
об  успешном завершении, ovrError показывает, что оверлейный
файл имеет неправильный формат, или что программа не  содер-
жит  оверлеев.  Значение ovrNotFound означает, что не найден
оверлейный файл.
     В случае ошибки подсистема управления оверлеями остает-
ся  неустановленной  и  попытки  вызова оверлейной программы
приведут к ошибке времени выполнения  208  (Overlay  manager
not  installed - подсистема управления оверлеями не установ-
лена).
     Процедура OvrInit должна вызываться перед любыми други-
ми процедурами подсистемы управления оверлеями.
     Прочее:  См.  также  процедуры  OvrGetBuf,  OvrInitEMS,
OvrSetBuf.
     Пример:

  use Overlay;
  const
  begin
    OvrInit('EDITOR.OVR');
    if OvrResult <> ovrOk then
    begin
      case OvrResult of
       ovrError: Writeln('Программа не содержимт оверлеев');
       ovrNotFound: Writeln('Оверлейный файл не найден');
      end;
    Halt(1);
    end;
  end.


Процедура OvrInitEMS

Модуль Overlay


     Фукнция: Если это возможно, загружает оверлейный файл в
расширенную память (EMS).
     Описание: OvrInitEMS
     Примечания: Если имеется драйвер расширенной  памяти  и
имеется  достаточный объем такой памяти, то данная процедура
загружает все оверлеи в расширенную память и закрывает овер-
лейный файл. Последующие загрузки оверлеев сводятся просто к
быстрой  пересылке  их  из  памяти   в   память.   Процедура
OvrInitEMS  устанавливает  также  процедуру выхода, котороая
при завершении работы  программы  автоматически  освобождает
выделенную расширенную память.
      Возможные ошибки могут быть получены с помощью перемен-
ной  операционной среды OvrResult. Значение ovrOk говорит об
успешном  завершении,  ovrError  показывает,  что  процедура
OvrInit завершилась неудачно или не была вызвана, ovrIOError
говорит о том, что при чтении  оверлейного  файла  произошла
ошибка,  ovrNoEMSDriver означает, что не найден драйвер рас-
ширенной памяти, ovrNoEMSMemory - что для загрузки  оверлей-
ного  файла  в расширенной памяти нет достаточного простран-
ства.
     В случае ошибки подсистема управления  оверлеями  будет
продолжать работу, но оверлеи будут считываться с диска.
     Драйвер расширенной памяти должен отвечать  соглашениям
фирм Лотус, Интел и Микрософт (Expamded Memory Specification
- EMS). Если вы используете псевдодиск, размещенный в расши-
ренной  памяти, нужно убедиться в том, что команда, содержа-
щаяся в файле CONFIG.SYS и загружающая  драйвер  псевдодиска
оставляет  некоторый свободный объем расширенной памяти, ко-
торый может использовать ваша прикладная задача.
     Прочее:   См.   также   процедуры  OvrGetBuf,  OvrInit,
OvrSetBuf.
     Пример:

  use Overlay;
  const
  begin
    OvrInit('EDITOR.OVR');
    if OvrResult <> ovrOk then
    begin
       Writeln('Подсистема управления управления оверлеями
не установлена из-за ошибки');
       Halt(1);
    end;
    OvrInitEMS;
    case OvrResult of
     ovrIOError: Writeln('Ошибка ввода-вывода при чтении
                          оверлейного файла');
     ovrNoEMSDriver: Writeln('Не установлен драйвер
                              расширенной памяти');
      ovrNoEMSMemory('Не хватает объема расширенной памяти');
    else
     Writeln('Для более быстрой работы с оверляеми
              используется расширенная память');
   end;
  end.




HOME