Пользовательские программы управления динамически распределяемой памятью
Для модуля Graph предусмотрены две программы управления ди- намически распределяемой областью GraphFrееМем и GraphGetМем. Первая из них освобождает память, распределенную для драйверов, а вторая - распределяет память для драйверов графических устройств. Стандартные программы имеют следующий вид:
procedure GraphGetMem(var P : Pointer; Size : word); { выделить память для драйверов графических устройств }
procedure GraphFreeMem(var P : Pointer; Size : word); { освободить память для драйверов графических устройств }
В модуле Graph имеются два указателя, которые по умолчанию указывают на две описанные здесь стандартные подпрограммы. Эти указатель определяются следующим образом:
var GraphGetMemPtr : pointer; { указатель на программу распределения памяти } GraphFreeMemPtr : pointer; { указатель на программу освобождения памяти }
Во время инициализации модуля Graph эти указатели ссылаются на стандартные графические программы распределения/освобождения, которые определяются в секции реализации модуля Graph. Память распределятся в трех различных целях:
* для многоцелевых графических буферов, размер которых уста- навливается вызовов SegGraphBufSize (по умолчанию это 4К);
* для драйвера устройства, загружаемого InitGraph (файлы *.BGI);
* для файла векторного шрифта, загруженного SetTextStyle (файлы *.CHR).
Графический буфер всегда выделяется в динамически распреде- ляемой области памяти. Память для драйвера устройства выделяется в динамической памяти, если программа не загружает его или не компонуется с ним вызовом RegisterBGIdriver. При выборе векторно- го шрифта с помощью SetTextStyle также выделяется память в дина- мически распределяемой области (если ваша программа не компонует- ся со шрифтом и не использует RegisterBGIfont).
Чтобы задать ваше собственное управление памятью, в модуле Graph вы можете изменить значения этих указателей так, чтобы они ссылались на ваши собственные программы. Программы, заданные пользователем, должны иметь тот же список параметров, что и стан- дартные программы, и должны иметь дальний тип вызова. Приведем далее пример заданных пользователем программ распределения и ос- вобождения памяти. Заметим, что при использовании процедуры Eхit автоматически вызывается процедура CloseGraph.
program UserHeapManegement; { программа показывает, как пользователь может работать с подпрограммами управления динамически распределяемой об- ластью памяти, используемыми в модуле Graph } uses Graph; var GraphDriver, GraphMode : Integer; ErrorCode : Integer; { используется для сохранения кода возврата функции GraphResult } PreGraphExitProc : Pointer { используется для сох- ранения исходной процедуры выхода } { процедуры пользователя должны использовать дальний тип обращения } procedure MyGetMem(var P : Pointer; Size : word); far; { выделить память для драйверов графических устройств } begin Write('Была вызвана процедура ', 'MyGetMem, нажмите <Enter>:'); GetMem(P, Size); end; { MyGetMem }
procedure MyFreeMem(ver P : Pointer; Size : word); far; { освободить память, занятую драйверами графических устройств } begin RestoreCRTMode; Write('Была вызвана процедура MyFreeMem, нажмите ', '<Enter>:'); Readln; if P <> Nil Then { не освобождать пустые указатели } begin FreeMem(P, Size); P := Nil; end; { MyFreeMem }
procedure MyExitProc; far; { процедура всегда получает вызов при прекращении работы программы } begin ExitProc := PreGraphExitProc; { восстановить исходную процедуру выхода } CloseGraph; { очистить динамически распределяемую область } end; { MyExitProc }
begin { инициализировать программу очистки памяти } PreGraphExitProc := ExitProc; ExitProc := @MyExitProc;
GraphGetMemPtr := @MyGetMem ; { заменить распределение памяти } GraphFreeMemPtr := @MyFreeMem ; { заменить освобождение памяти } GraphDriver := Detect; InitGraph(GraphDriver, GraphMode, ''); ErrorCode := GraphResult; if ErrorCode <> grOk then begin Writeln('Графическая ошибка: ' GraphErrorMsg(ErrorCode); Readln; Halt(1); end; Line(0, 0, GetMaxX, GetMaxY); OutText(1, 1, 'Нажмите клавишу <Enter>:'); Readln; end. { UserHeapManegement }
Если целевой платформой является защищенный режим DOS, то при использовании подобных программ следует иметь в виду следую- щее: вы должны обеспечить, что любой возвращаемый GetMem указа- тель должен иметь нулевое смещение. Сделать это можно с помощью функции GlobalAllocPtr:
procedure MyGetMem(var P: Pointer; Size: Word); far; var P: Pointer; bagin P:= GlobalAllocPtr(HeapAllocFlags, Size); GetMem(P, 4096); end; { MyGetMem }
