Здравствуйте, Vi2, Вы писали:
Vi2>Приведи declare-код на VB, который определяет CreateObjectFromFile.
Сейчас декларация выглядит так:
Private Declare Function CreateObjectFromFile Lib "D:\WorkFlow\OrderFW\OrderFW\Debug\OrderFW.dll" (ByVal strLibrary As String, ByVal strClassName As String, ByVal ArrayDwordsPtr20 As Long) As Object
Функция выглядит так:
IUnknown** __stdcall CreateObjectFromFile(LPCOLESTR strLibrary, LPCOLESTR strClassName, DWORD * ResPtr)
{
IUnknown** newobj =new IUnknown* ;// NULL;
//.......
CreateInstance (NULL,IID_IUnknown,(void**)newobj) ;
//.......
return (newobj);
}
вызыватель:
Dim nObj As Object
Set nObj = CreateObjectFromFile(s1, s2, VarPtr(a(0)))
nObj.TestMethod("123") 'ашыпка
проверку возвр. значений ф-ций, само собой, делаю, просто не привел чтоб не нагромождать код. указатель на инстанс я получаю... только дальше...
я явно где-то тут элементарно затупил.. надо взгляд со стороны
Не страшно, если ты один.
Страшно — если ты ноль.