Форум: "Corba";
Текущий архив: 2005.07.25;
Скачать: [xml.tar.bz2];

Вниз

Пишу Addin для Outlook   Найти похожие ветки 

← →
Chlavik ©   (2004-10-07 12:20) [0]

Привет! Nакая ситуация Есть процедура ( я думаю всем извесная)

procedure TOutlookAddin.OnConnection(const Application: IDispatch;
 ConnectMode: ext_ConnectMode; const AddInInst: IDispatch;
 var custom: PSafeArray);
begin                    
MsgBox("Connect",Variant(Application).Name); //
Сдесь показывается MessageBox с загловком "Outlook" и текстом "Connect" - т.е. все пашет  
OutlookApp:=TOutlookApplication.Create(Application);
end;

НО!

Вот конструктор TOutlookApplication


constructor TOutlookApplication.Create(svrIntf: IInterface);
begin
MsgBox("Create",Variant(svrIntf).Name); // И ТУТ ВЫЛЕТАЕТ Variant do not reference to Automation object
inherited;
end;

Почему это же одна и та же перменная! Почему до кнтсркутора всё пашет а после нет ?? Помогите пожалуйста!

---

← →
VMcL ©   (2004-10-07 12:55) [1]

>>Chlavik ©  (07.10.04 12:20)

В первом случае IDispatch, во втором - IInterface. Возможно QueryInterface спасет отца русской демократии.

---

← →
Chlavik ©   (2004-10-08 13:28) [2]

А как его юзать ?

---

← →
Poirot ©   (2004-10-15 12:38) [3]

http://www.rsdn.ru :)

---

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

Форум: "Corba";
Текущий архив: 2005.07.25;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.44 MB
Время: 0.015 c