0
Ferz
07.12.11
✎
12:21
|
нужно внешнее событие
procedure AddInObject.Log(const sLog: string);
var
obj : IDispatch;
struct: OleVariant;
begin
obj := OleVariant(i1cv7).AppDispatch;
obj._AddRef;
struct := Variant(obj).NewObject('Структура');
struct.Insert('Log',sLog);
Self.iEvent.ExternalEvent(c_AddinName, '-', Variant(obj).ValueToStringInternal(struct));
end
|
|