Здравствуйте, ZAMUNDA, Вы писали:
ZAM>Здравствуйте, NewEmptyName, Вы писали:
ZAM>ZAM>IUnknown** __stdcall CreateObjectFromFile(LPCOLESTR strLibrary, LPCOLESTR strClassName,/*для отладки*/ DWORD* ResPtr)
ZAM>{
ZAM>;/*blah blah blah*/;
ZAM>}
ZAM>
Не уверен. Судя по всему, StdOle.IUnknown (в VB6) соответствует IUnknown*. такой вывод я сделал, в частности, исходя из вот таких строк:
Public Function CreateObjectFromFile1(ByVal strLibrary As String, ByVal strClassName As String) As stdole.IUnknown
Dim newobj As stdole.IUnknown
'................
Call CallPointer (udtCF.CreateInstance, obj, 0, VarPtr(IID_IUnknown), VarPtr(newobj)) 'VarPtr(newobj) equ IUnknown** ???
'................
Set CreateObjectFromFile1 = newobj
End Function
вызыватель делает:
Dim o as object
Set o = CreateObjectFromFile1 ("MyTest.dll", "clsTestClass")
o.TestMetod ("123")
и как-бы работает....
Не страшно, если ты один.
Страшно — если ты ноль.
