Из Activex dll вызвать процедуру вызвавшего ее exe-ника.

[Matew]

Приложение (на дельфи, но это имеет мало значения, кроме того, что там я не нашел GetRef) вызывает Activex dll. Надо теперь из Activex dll вызвать процедуру прложения. В какую сторону копать?

[Хакер]

Что значит "приложение вызывает ActiveX dll" ?

[keks-n]

Matew
Передаёшь указатель и вызываешь

[Sebas]

в DLL должен быть опредлён класс (интерфейс), EXE должен его имплементировать и передать ссылку на класс в ДЛЛ.
Длл вызовет любой метод думая чтоэто её класс.))) ну, вот так объяснил.))))


ДЛЛ-----
Public Class DllClass
Sub Go
End Sub
end Class

--класс который уже вызвал ехе, тоесть он уже есть у Тебя

Public Class MainClass
sub RegisterCallBack(cb as dllclass)
--сюда приходит класс из ехе, который предоставляет медоды в самом ЕХЕ
end sub
end class


EXE---------------------------

Public EXEClass
implements DLLCLASS

Sub Go
'процедура вызываемая из ДЛЛ
end sub
ed class


Sub Main
Dim dll as new mainclass ' подымае класс в длл

dll.RegisterClassBack(new exeClass) 'отсылаем в длл объект обратного вызова


всё)

[jangle]

Приложение (на дельфи, но это имеет мало значения, кроме того, что там я не нашел GetRef) вызывает Activex dll. Надо теперь из Activex dll вызвать процедуру прложения. В какую сторону копать?

В DLL, передаешь указатель на функцию EXE файла которую надо вызывать, затем уже из DLL файла, вызываешь функцию экзешника, используя указатель на вызываемую функцию

[ANDLL]

Нормальный способ сказал Sebas. Единственный комментарий - можно обойтись без особого интерфейса, если использовать автоматизацию.

[Matew]

Хакер, понимаю, что не правильно выразился. Вот так вызываю:
Set dll = CreateObject("Dll.class")
call dll.sub()
keks-n, jangle, пробовал. Вот примерно так(тут все попытки):
ЕХЕ:

Код: Выделить всё


//function tests(S: string):integer;stdcall;
//begin
//  showmessage(s);
//end;
H:=GetModuleHandle(0);
//H:=GetModuleHandle('unit1');
  P:=GetProcAddress(H,'tests');
  dll.test(h,p('d'));


Длл:

Код: Выделить всё

Sub Ignore(parametr)
End Sub

Public Function Test(ByVal Handler, ByVal proc)
'    CallWindowProc Handler, 0&, 0&, 0&, 0&
'Dim pa
'    pa = GetProcAddress(Handler, "tests")
'    pa ("Yflj")
CallWindowProc proc, frmMain.hwnd, 0&, 0&, 0&
'     Ignore (proc("dfs"))
End Function


Не вышло. Как надо?
Sebas, спасибо, на ВБ работает.
ANDLL, а можно про способ без интерфейсов по подробнее, а то чувствую с портированием на дельфи будут проблемы?

[Хакер]

Matew
Вообще то, адрес callback-а нужно определять средствами Delphi ( addr: = @tests(); )? а ни каким не GetProcAddress. GetProcAddress делает следующее:
1) Проверяет, действительно ли ModuleHandle - адрес загруженного модуля. Проверяет, действительно ли по указанному адресу лежит MZ-хеадер. Если так, смотрит lfanew, проверяет, действительно ли там лежит PE-хеадер. Если да, ищет в таблице экспорта RVA функции, чьё имя совпадает со вторым аргументом. Когда находит RVA, прибавляет к нему первый аргумент и полученный результат возвращает тебе.
У твоего EXE таблицы экспорта нет. Даже если и есть, функции tests там скорее всё равно нет.

Так что GetProcAddress в данном случае бесполезен, а его использование вызывает улыбку на лице


Передавать нужно только его (никаких Handler-ов, хотя само слово Handler здесь неуместо).

Почему аргументы у метода Test имеют тип Variant? Разве есть такая необходимость?

Вобщем:
Delphi:

Код: Выделить всё

function tests(S: BSTR, nullart1: integer, nullarg2: integer, nullarg3: integer):integer;stdcall;
begin
  showmessage(s);
end;

// ... ... ...

MyPtr: Pointer

// ...

MyPtr:=@tests;

dll.test(integer(MyPtr));


VB:

Код: Выделить всё

Public Function Test(ByVal lProcAddress As Long)
  CallWindowProc lProcAddress ,StrPtr("Мама мыла раму"), 0&, 0&, 0&
End Function


[Matew]

2 ALL, код, предложенный Хакером работает для ActiveX dll, но не работает для ActiveX EXE(а мне надо имеенно для него, т.к. http://bbs.vbstreets.ru/viewtopic.php?t=35711) . Так что вопрос остается открытым.

[Andrey Fedorov]

Ну а почему никто не подумал про события?

[Matew]

Andrey Fedorov, про события подумал Хакер в личной беседе. На Вб все работает, а вот как из Дельфи ловить события АктивИкс-ов я не знаю.

[Andrey Fedorov]

Andrey Fedorov, про события подумал Хакер в личной беседе. На Вб все работает, а вот как из Дельфи ловить события АктивИкс-ов я не знаю.

Когда-то я делал DLL-ку которую юзали под Delphi - события там были и все работало без проблем. Но Дельфийскую часть делал не я, так что ничего об этом сказать не могу...