blob: ece2fb1f627b2ab9a464e5a473ad3e5569e06fec (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
|
{ %FAIL }
program intftest;
{$mode objfpc} {$H+}
uses
Classes, SysUtils;
type
{$INTERFACES CORBA}
IMyCorba = interface
['{11111111-1111-1111-1111-111111111111}']
procedure A;
end;
{$INTERFACES DEFAULT}
TMyCorba = class(TObject, IMyCorba)
procedure A;
end;
procedure TMyCorba.A;
begin
WriteLN('A: Who called me ?');
end;
var
I: IUnknown;
C: IMyCorba;
begin
C := TMyCorba.Create;
I := C as IUnknown;
// Supports(C, IUnknown); <- gives atleast some error
end.
|
