t_id
911
t_version
1.1
t_adddate
2003/10/03
t_result
0
t_knownrunerror
0
tr_id | run | tr_ok | tr_skip | tr_result |
---|---|---|---|---|
1022216280 | 1027293 | True | False | Successfully run |
Record count: 1
{ %version=1.1 } { Source provided for Free Pascal Bug Report 2177 } { Submitted by "Rimgaudas" on 2002-10-14 } { e-mail: rimga@ktl.mii.lt } {$ifdef fpc}{$mode delphi}{$endif} uses SysUtils; type ii= interface ['{616D9683-88DC-4D1C-B847-1293DDFBACF7}'] procedure Show;stdcall; end; Twii= class(TObject, ii) s: string; function QueryInterface(const IID: TGUID; out Obj): Integer; stdcall; function _AddRef: Integer; stdcall; function _Release: Integer; stdcall; procedure Show;stdcall; end; {________doomy interfaces______} function Twii.QueryInterface(const IID: TGUID; out Obj): Integer; stdcall; begin result:= -1; end; function Twii._AddRef: Integer; stdcall; begin result:= -1; end; function Twii._Release: Integer; stdcall; begin result:= -1; end; {________doomy interfaces______} procedure Twii.Show;stdcall; begin WriteLn(s); end; var wii: twii; i: ii; begin try wii:= Twii.create; wii.s:='OK'; i:= ii(wii); i.Show; except //excepts on EAccessViolation do WriteLn('Access Violation'); else WriteLn('Problem'); halt(1); end; end.