t_id
1038
t_adddate
2003/10/14
Flag
t_graph
set
t_result
0
t_knownrunerror
0
tr_id | run | tr_ok | tr_skip | tr_result |
---|---|---|---|---|
949659685 | 1015615 | False | True | Skipping test because it uses graph |
Record count: 1
{ %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.