Текущий архив: 2005.01.23;
Скачать: CL | DM;

Вниз

COM сервер и два интерфейса (можно3 )   Найти похожие ветки 

← →
malkolinge ©   (2004-04-05 17:11) [0]

Когда ком объект реализует ДВА интерфейса, QueryInterface для второго дает Nil.

Почему и как бороться ?

---

← →
Матлабист   (2004-04-05 17:25) [1]

Вот мой код:

type
 I1 = interface
 ["{C86505A6-D299-4386-A90F-60F9A7973CBD}"]
   procedure Test1;
 end;

 I2 = interface
 ["{55FA6144-BACE-4E38-98C1-FF17FB6A23F8}"]
   procedure Test2;
 end;

 TSomeObj = class(TInterfacedObject, I1, I2)
 public
   procedure Test1;
   procedure Test2;
 end;

procedure TSomeObj.Test1;
begin
 ShowMessage("1");
end;

procedure TSomeObj.Test2;
begin
 ShowMessage("2");
end;

procedure TForm1.Button1Click(Sender: TObject);
var
 X1: I1;
 X2: I2;
begin
 X1 := TSomeObj.Create as I1;
 X1.QueryInterface(I2, X2);
 X2.Test2;
end;

А твой?

---

Страницы: 1 вся ветка

Текущий архив: 2005.01.23;
Скачать: CL | DM;

Наверх

Память: 0.46 MB
Время: 0.061 c