Пишу 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]

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

http://www.rsdn.ru :)

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