Turbo Pascal Documentation

Процедура GetImage

Модуль Graph

     Функция: Сохраняет в буфере двоичный образ заданной об-
ласти экрана.
     Описание:  GetImage(х1,  у1,  х2,  у2,  :   word;   var
бит_масс)
      Примечания: Параметры х1, у1, х2, у2 определяют прямоу-
гольную область экрана. Параметр "бит_масс" является нетипи-
зованным параметром, который должен быть больше или равен 4,
плюс  размер  памяти,  отведенный для области экрана. Первые
два слова параметра "бит_масс" зарезервированы для ширины  и
высоты области экрана:

width  := x2 - x1 + 1;                        { ширина }
heignt := y2 - y1 + 1;                        { высота }

     Оставшаяся часть параметра "бит_масс" используется  для
сохранения  самого двоичного образа. Для определения размера
памяти, необходимой для  параметра  "бит_масс",  используйте
фунцию ImageSize.
     Ограничения: Должен использоваться графический режим.
     Прочее: См. также процедуры ImageSize, PutImage.
     Пример:

var
   P    : pointer;
   Size : word;
   Gd, Gm : pointer;
  begin
   Gd := Detect;
   InitGraph(Gd, Gm, '');
   if GraphResult <> grOk then
      Halt(1);
  Bar(0, 0, GetMaxX, GetMaxY);
  Size := ImageSize(10,20,30,40);
  GetMem(p,Size);         { выделить память в динамически
                            распределяемой области }
  GetImage(10,20,30,40,p^);
  Readln;
  ClearDevice;
  PutImage(100, 100, P^, NormalPut);
  Readln;
  CloseGraph;
end.