t_id
1038
t_adddate
2003/10/14
Flag
t_graph
set
t_result
0
t_knownrunerror
0
Record count: 50
Total = 50
OK=0 Percentage= 0.00
Skipped=50 Percentage= 100.00
{ %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.