1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
|
{ %GRAPH }
{ %TARGET=go32v2,win32,linux }
{ Old file: tbs0195.pp }
{ Problem with Getimage, crash of DOS box, even with dpmiexcp!! (PFV) Not a bugs, you must use p^. }
uses graph;
var
GDriver, GMode: Integer;
w:word;
p:pointer;
begin
GDriver := $FF;
GMode := $101;
InitGraph(GDriver, GMode, '');
if (GraphResult <> grOK) then
Halt(0);
rectangle(0,0,getmaxx,getmaxy);
w := imagesize(0,0,111,111);
getmem(p, w);
{---runtime-error!------}
{ getimage(0,0,111,111, p); }
{-----------------------}
{ This is the correct usage (PFV) }
getimage(0,0,111,111, p^);
freemem(p, w);
closegraph;
readln;
end.
|
