| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Пишу Addin для Outlook

Chlavik ©   (2004-10-07 12:20:00) 

Привет! 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;

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

---

Poirot   (2004-10-15 12:38:00) [1]

http://www.rsdn.ru:)

---

Chlavik   (2004-10-08 13:28:00) [2]

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

---

VMcL   (2004-10-07 12:55:00) [3]

>> Chlavik ©  (07.10.04 12:20)

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

---

Наверх