DLL, COM. Как создать методы вызваемые из того же VBScript?

[Человек_Борща]

DLL работает только в IE.
Для меню(главного) ничего сложного нет. IOleComadTarget + IObjectWithSite.
Эта часть работает нормально, отладчик так же работает в этих методах.

Контекстное меню, тут сложнее.
пункт меню вызывает скрипт, в котором создается ссылка на ActiveX и вызываются методы этого ActiveX объекта. Вот так переписал скрипт:

<SCRIPT language="Javascript">
try {
var BHO = new ActiveXObject("IEBHO.IeSuperBHO");
    } catch (e) {
        alert('Error BHO');
    }
var win = external.menuArguments.window;
var doc = external.menuArguments.document;
BHO.Msg(doc.title);
</SCRIPT>

но при получении экземпляра ActiveX, в этом скрипте, происходит ошибка.

[eval]

при чем тут длл?
что показывает alert(е);

[Человек_Борща]

при чем тут длл?
что показывает alert(е);

Из DLL надо вызвать метод, просто хотя бы вызвать.
alert(e) показывает [Object error]

[eval]

Из DLL надо вызвать метод, просто хотя бы вызвать.

вы не поняли, для того чтобы понять в чем прикол при создании ActiveX не важно ваша длл или не ваша, да и длл ли тоже не важно, вы можете в любом тестовом проекте это проделать и смотреть что к чему

под ие тоже можно, надо открыть консоль и смотреть что за ошибка, если там не все показывает, то сделайте на делфях к примеру проектик и там в дебагере анализируйте

[Человек_Борща]

Попробовал:

procedure TForm1.Button1Click(Sender: TObject);
var
  x: OleVariant;
begin
  x := CreateOleObject('IEBHO.IeSuperBHO');
  x := x;
  x.Msg('Привет!');
end;

Пишет, что не поддерживается.

[Stilet]

не поддерживается.

Ха!. Так значит Msg() либо приватен, либо модель скомпилированной DLL не подходит для таких вызовов. Я столкнулся с этим, когда свой ActiveX делал, там есть различия моделей СОМ сервера. Я правда не помню какие именно.

[Человек_Борща]

Вот догнал, создал интерфейс с методом Msg, теперь код:

type
  IBHOCommand= interface(IUnknown)
    ['{55834FFF-E179-4A7A-919B-17472AB3589C}']
    function Msg(aMsg: WideString): HResult; stdcall;
  end;

procedure TForm1.Button1Click(Sender: TObject);
var
  x: IBHOCommand;
begin
  x := CreateComObject(Class_Interf) as IBHOCommand;
  x.Msg('Привет!');
end;

Работает. А вот в скрипте по-прежнему Object Error.

[eval]

создал интерфейс

я что-то не понял... а как вы собирались работать с комом?

[Человек_Борща]

eval, браузер дергает JavaScript код, который должен дергать мой IBHOComand, и этого не происходит.

<SCRIPT language="Javascript">
try {
var BHO = new ActiveXObject("IEBHO.MySuperIE")
    } catch (e) {
        alert(e.message); //Валит сюда и все тут
		return;
    }
var win = external.menuArguments.window;
var doc = external.menuArguments.document;
BHO.Msg(doc.title); //Метод из IBHOComand
</SCRIPT>

[Человек_Борща]

разобрался, есть сервер OLE, есть сервер COM. Контекстное меню нужно делать через Ole.