mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-11 04:38:02 +02:00
34 lines
660 B
ObjectPascal
34 lines
660 B
ObjectPascal
{ %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.
|