[Bug 14617] Multiple Visual Basic 5/6 applications using ActiveX components depend on Standard OLE Types Typelib which is missing from 'olepro32.dll'

wine-bugs at winehq.org wine-bugs at winehq.org
Tue Jan 6 15:49:55 CST 2015


https://bugs.winehq.org/show_bug.cgi?id=14617

Anastasius Focht <focht at gmx.net> changed:

           What    |Removed                     |Added
----------------------------------------------------------------------------
                URL|                            |https://daneasoft.s3.amazon
                   |                            |aws.com/demo/dpm_demo0518.e
                   |                            |xe
                 CC|                            |focht at 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 at 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

-- 
Do not reply to this email, post in Bugzilla using the
above URL to reply.
You are receiving this mail because:
You are watching all bug changes.



More information about the wine-bugs mailing list