https://bugs.winehq.org/show_bug.cgi?id=14617
Anastasius Focht focht@gmx.net changed:
What |Removed |Added ---------------------------------------------------------------------------- URL| |https://daneasoft.s3.amazon | |aws.com/demo/dpm_demo0518.e | |xe CC| |focht@gmx.net Summary|VB ActiveX component |Multiple Visual Basic 5/6 |depends on StdType typelib |applications using ActiveX |from olepro32.dll which is |components depend on |missing |Standard OLE Types Typelib | |which is missing from | |'olepro32.dll'
--- Comment #11 from Anastasius Focht focht@gmx.net --- Hello folks,
also encountered with 'Danea Pro Manager' v5 (VB5 app).
Download: https://daneasoft.s3.amazonaws.com/demo/dpm_demo0518.exe
Prerequisite: 'winetricks -q mfc42'
--- snip --- err:module:import_dll Library MFC42.DLL (which is needed by L"C:\windows\system32\Vcfi32.ocx") not found --- snip ---
Relevant part of trace log:
--- snip --- $ pwd /home/focht/.wine/drive_c/Program Files/DaneaProManager5
$ WINEDEBUG=+tid,+seh,+relay,+variant,+ole wine ./dpm5.exe >>log.txt 2>&1 ... 0023:Ret window proc 0xf04480e (hwnd=0x100ee,msg=LB_SETTOPINDEX,wp=00000016,lp=00000000) retval=00000000 0023:Ret window proc 0x7e9d7a81 (hwnd=0x100ec,msg=CB_SETCURSEL,wp=00000016,lp=00000000) retval=00000016 0023:Ret user32.CallWindowProcA() retval=00000016 ret=0f01c887 ... 0023:trace:ole:ITypeInfo_fnInvoke (0x19e8e30)(0xd155f0,id=-512,flags=0x00000003,0x33f6c4,0x33f748,0x33f6a0,0x33f6c0) 0023:trace:ole:dump_DispParms args=0 named args=0 0023:trace:ole:ITypeInfo2_fnGetVarIndexOfMemId 0x19e8e30 -512 0x33f2f0 0023:trace:ole:ITypeInfo2_fnGetTypeKind (0x19e8e30) type 0x3 0023:trace:ole:ITypeInfo_fnAddRef (0x1a58348)->ref is 1 0023:trace:ole:ITypeLib2_fnAddRef (0x210330) ref=4 0023:trace:ole:ITypeInfo_fnGetRefTypeInfo (0x19e8e30) hreftype 0x0c80 loaded SUCCESS (0x1a58348) 0023:trace:ole:ITypeInfo_fnInvoke (0x1a58348)(0xd155f0,id=-512,flags=0x00000003,0x33f6c4,0x33f748,0x33f6a0,0x33f6c0) 0023:trace:ole:dump_DispParms args=0 named args=0 0023:trace:ole:ITypeInfo2_fnGetVarIndexOfMemId 0x1a58348 -512 0x33eff0 0023:trace:ole:ITypeInfo2_fnGetTypeKind (0x1a58348) type 0x4 0023:trace:ole:ITypeInfo_fnAddRef (0x1a35b90)->ref is 1 0023:trace:ole:ITypeLib2_fnAddRef (0x210330) ref=5 0023:trace:ole:ITypeInfo_fnGetRefTypeInfo (0x1a58348) hreftype 0x0bb8 loaded SUCCESS (0x1a35b90) 0023:trace:ole:ITypeInfo_fnInvoke (0x1a35b90)(0xd155f0,id=-512,flags=0x00000003,0x33f6c4,0x33f748,0x33f6a0,0x33f6c0) 0023:trace:ole:dump_DispParms args=0 named args=0 0023:trace:ole:ITypeInfo_fnInvoke invoking: L"Font"(1) parm0: L"pFont" memid is fffffe00 Param 0: tdesc.vartype 26 (ptr to ptr to VT_USERDEFINED ref = 19) u.paramdesc.wParamFlags PARAMFLAG_FOUT PARAMFLAG_FRETVAL u.paramdesc.lpex (nil) funckind: 1 (pure virtual) invkind: 2 (property get) callconv: 4 (stdcall) oVft: 76 cParamsOpt: 0 wFlags: 0 elemdescFunc (return value type): tdesc.vartype 25 (VT_HRESULT) u.paramdesc.wParamFlags PARAMFLAGS_NONE u.paramdesc.lpex (nil) helpstring: L"Gets/sets the properties of the Font object." entry: invalid ... 0023:trace:ole:ITypeInfo_fnGetRefTypeInfo typeinfo in imported typelib that isn't already loaded ... 0023:Call KERNEL32.EnumResourceNamesW(00000000,7e823f4a L"TYPELIB",7e77eb71,0033eab8) ret=7e77f17d 0023:Ret KERNEL32.EnumResourceNamesW() retval=00000000 ret=7e77f17d 0023:Call KERNEL32.FindActCtxSectionGuid(00000000,00000000,00000006,0021a0e0,0033e758) ret=7e76af6a 0023:Ret KERNEL32.FindActCtxSectionGuid() retval=00000000 ret=7e76af6a ... 0023:Call advapi32.RegOpenKeyExW(80000000,0033e66c L"Typelib\{BEF6E001-A874-101A-8BBA-00AA00300CAB}",00000000,00020019,0033e654) ret=7e76a9cb 0023:Ret advapi32.RegOpenKeyExW() retval=00000002 ret=7e76a9cb ... 0023:Call KERNEL32.CreateFileW(0033e7ce L"C:\windows\system32\olepro32.dll",80000000,00000000,00000000,00000003,00000080,00000000) ret=7e772376 0023:Ret KERNEL32.CreateFileW() retval=00000120 ret=7e772376 ... 0023:Call KERNEL32.LoadLibraryExW(0033e7ce L"C:\windows\system32\olepro32.dll",00000000,0000000b) ret=7e7714c0 0023:Ret KERNEL32.LoadLibraryExW() retval=7e300000 ret=7e7714c0 0023:Call KERNEL32.FindResourceW(7e300000,00000001,7e823a22 L"TYPELIB") ret=7e7714fb 0023:Ret KERNEL32.FindResourceW() retval=00000000 ret=7e7714fb 0023:trace:ole:TLB_PEFile_Open No TYPELIB resource found 0023:Call KERNEL32.FreeLibrary(7e300000) ret=7e771415 0023:Ret KERNEL32.FreeLibrary() retval=00000001 ret=7e771415 ... 0023:trace:ole:LoadTypeLibEx returns 80029c4a 0023:trace:ole:ITypeInfo_fnGetRefTypeInfo (0x1a35b90) hreftype 0x0019 loaded FAILURE ((nil)) 0023:err:ole:userdefined_to_variantvt Could not get typeinfo of hreftype 19 for VT_USERDEFINED, hr = 0x80029c4a 0023:err:ole:typedescvt_to_variantvt cannot convert type 26 into variant VT ... 0023:trace:ole:ITypeInfo_fnInvoke -- 0x80020008 0023:trace:ole:ITypeInfo_fnRelease (0x1a35b90)->(0) 0023:trace:ole:ITypeLib2_fnRelease (0x210330) ref=4 0023:trace:ole:ITypeInfo_fnRelease (0x1a58348)->(0) 0023:trace:ole:ITypeLib2_fnRelease (0x210330) ref=3 0023:trace:ole:ITypeInfo_fnRelease (0x19e8e30)->(1) ... 0023:Call KERNEL32.RaiseException(c000008f,00000001,00000002,0033f604) ret=0f004248 0023:trace:seh:raise_exception code=c000008f flags=1 addr=0x7b83b30f ip=7b83b30f tid=0023 0023:trace:seh:raise_exception info[0]=deadcafe 0023:trace:seh:raise_exception info[1]=deadcafe 0023:trace:seh:raise_exception eax=7b826f95 ebx=7b8bf000 ecx=deadcafe edx=0033f564 esi=0033f604 edi=0033f5d0 0023:trace:seh:raise_exception ebp=0033f5a8 esp=0033f544 cs=0023 ds=002b es=002b fs=0063 gs=006b flags=00000283 0023:trace:seh:call_stack_handlers calling handler at 0x40c316 code=c000008f flags=1 ... 0023:Call ole32.CreateErrorInfo(0033f004) ret=0f05b8ca 0023:Ret ole32.CreateErrorInfo() retval=00000000 ret=0f05b8ca ... 0023:trace:ole:ICreateErrorInfoImpl_SetDescription (0x1a382b0): L"Variable uses an Automation type not supported in Visual Basic" ... 0023:Call KERNEL32.RaiseException(c000008f,00000001,00000002,0033f700) ret=0f004248 0023:trace:seh:raise_exception code=c000008f flags=1 addr=0x7b83b30f ip=7b83b30f tid=0023 0023:trace:seh:raise_exception info[0]=deadcafe 0023:trace:seh:raise_exception info[1]=deadcafe 0023:trace:seh:raise_exception eax=7b826f95 ebx=7b8bf000 ecx=deadcafe edx=0033f654 esi=0033f700 edi=0033f6c0 0023:trace:seh:raise_exception ebp=0033f698 esp=0033f634 cs=0023 ds=002b es=002b fs=0063 gs=006b flags=00000283 0023:trace:seh:call_stack_handlers calling handler at 0x40c316 code=c000008f flags=1 ... 0023:Call user32.MessageBoxIndirectA(0033f544) ret=0f0aee19 ... 0023:Call winex11.drv.SetWindowText(00030224,019b5138 L"Si \00e8 verificato un errore durante l'elaborazione. \r\rCodice errore: 458\rDescrizione: Variable uses an Automation type not supported in Visual Basic\rProcedura: modMain!bApriDB") ret=7e950809 ... --- snip ---
Visual Basic project file, showing TLB reference:
--- snip --- Reference=*\G{BEF6E001-A874-101A-8BBA-00AA00300CAB}#2.0#0#C:\WINDOWS\system32\olepro32.dll#Standard OLE Types --- snip ---
Various VB apps suffer from it and this is easy to fix.
$ sha1sum dpm_demo0518.exe eae94c1de60252f9514f46ef3f17ca59c7e78a5c dpm_demo0518.exe
$ du -sh dpm_demo0518.exe 6.3M dpm_demo0518.exe
$ wine --version wine-1.7.33-146-g102d893
Regards