mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-28 15:27:47 +02:00
50 lines
832 B
ObjectPascal
50 lines
832 B
ObjectPascal
{ %GRAPH }
|
|
|
|
{ Old file: tbs0195.pp }
|
|
{ Problem with Getimage, crash of DOS box, even with dpmiexcp!! (PFV) Not a bugs, you must use p^. }
|
|
|
|
{$ifdef go32v2}
|
|
{$define OK}
|
|
{$endif}
|
|
{$ifdef linux}
|
|
{$define OK}
|
|
{$endif}
|
|
{$ifdef win32}
|
|
{$define OK}
|
|
{$endif}
|
|
|
|
{$ifdef OK}
|
|
uses graph
|
|
{$ifdef go32v2}
|
|
,dpmiexcp
|
|
{$endif go32v2};
|
|
var
|
|
GDriver, GMode: Integer;
|
|
w:word;
|
|
p:pointer;
|
|
{$endif OK}
|
|
begin
|
|
{$ifdef OK}
|
|
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;
|
|
{$endif OK}
|
|
end.
|