Форум: "Основная";
Текущий архив: 2002.04.18;
Скачать: [xml.tar.bz2];
ВнизInterface и указатель Найти похожие ветки
← →
NDelphist (2002-04-04 20:10) [10]Заработала! Хе-хе.
TIClass=class
function QueryInterface(const IID: TGUID; out Obj): HResult; stdcall;
function _AddRef: Integer; virtual; stdcall;
function _Release: Integer; virtual; stdcall;
function Funct:integer; virtual;
end;
...
var
i:integer;
cl:TMyClass;
p:TIClass;
begin
i:=0;
cl:=TMyClass.Create;
cl.GetInterface(IMyInterface,p);
p.QueryInterface(IMyInterface,p1);
i:=p.Funct;
...
end;
Как я и предпологал. Еще раз спасибо Dimka! :)
Страницы: 1 вся ветка
Форум: "Основная";
Текущий архив: 2002.04.18;
Скачать: [xml.tar.bz2];
Память: 0.44 MB
Время: 0.005 c