[Bug 15781] Multiple Office/MSAccess applications fail on startup due to 'ICreateTypeInfo2_fnDeleteImplType' stub (AllInOne-Office 4.x/5.11, Acclaim Cashbook)

Wed Jun 2 04:02:05 CDT 2021

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

Anastasius Focht <focht at gmx.net> changed:

           What    |Removed                     |Added
----------------------------------------------------------------------------
            Summary|AllInOne-Office 5.11 fails  |Multiple Office/MSAccess
                   |on startup                  |applications fail on
                   |(ICreateTypeLib2_fnDeleteTy |startup due to
                   |peInfo and                  |'ICreateTypeInfo2_fnDeleteI
                   |ICreateTypeInfo2_fnDeleteIm |mplType' stub
                   |plType are stubs)           |(AllInOne-Office 4.x/5.11,
                   |                            |Acclaim Cashbook)
         Resolution|---                         |FIXED
                URL|http://www.allinone-office. |https://web.archive.org/web
                   |de/                         |/20070305053646/http://www.
                   |                            |allinone-office.de:80/Downl
                   |                            |oad/AO.zip
      Fixed by SHA1|                            |8aaa218b4731c01856e631926da
                   |                            |aee7eec0129d4
             Status|NEW                         |RESOLVED

--- Comment #11 from Anastasius Focht <focht at gmx.net> ---
Hello folks,

I've found an archived copy of AllInOne-Office:

https://web.archive.org/web/20070305053646/http://www.allinone-office.de:80/Download/AO.zip

It's an older version 4.33.8 though but still can be used to reproduce.

--- snip ---
$ 7z l AO.zip 

Scanning the drive for archives:
1 file, 17851999 bytes (18 MiB)

Listing archive: AO.zip

--
Path = AO.zip
Type = zip
Physical Size = 17851999

   Date      Time    Attr         Size   Compressed  Name
------------------- ----- ------------ ------------  ------------------------
2005-08-08 09:26:30 ....A         9521         2674  install.txt
1996-12-13 23:00:00 ....A        12288         4174  HLINKPRX.DLL
1997-02-13 11:40:04 ....A        12800         6032  FMSREG32.exe
2004-02-24 16:15:38 ....A        14297         3977  setup.STF
1996-10-14 23:00:00 ....A        15284         6093  acmsetup.hlp
2001-05-04 11:05:02 ....A        16896         6053  stdole2.tlb
1996-12-13 23:00:00 ....A        20080         8777  WINSSPI.DLL
...
2001-11-27 14:31:34 ....A          766          211  AO.ico
1996-12-13 23:00:00 ....A         1194          647  msoffice.srg
2001-11-28 00:00:00 ....A         5438          752  MISC.SRG
1996-10-15 23:00:00 ....A         6144         2561  W95FIBER.DLL
------------------- ----- ------------ ------------  ------------------------
2007-01-12 10:23:22           67851151     17845741  64 files
--- snip ---

Running 'setup.exe':

--- snip ---
013c:err:module:import_dll Library MFC40.DLL (which is needed by
L"C:\\windows\\system32\\tacomp.ocx") not found
--- snip ---

'winetricks -q mfc40'

--- snip ---
$ tree --charset=ANSI ~/.wine/drive_c/Programme/

/home/focht/.wine/drive_c/Programme/
|-- AllInOne-Office
|   |-- AO Base.mde
|   |-- AO.HLP
|   |-- AO.ico
|   |-- FMSREG32.exe
|   |-- install.txt
|   |-- MSCREATE.DIR
|   |-- Office
|   |   |-- MSACC8.OLB
|   |   |-- MSACCESS.EXE
|   |   |-- MSACCESS.SRG
|   |   |-- MSACNV30.DLL
|   |   |-- MSACNV30.EXE
|   |   |-- MSAIN800.DLL
|   |   |-- MSCREATE.DIR
|   |   |-- SOA800.DLL
|   |   `-- UTILITY.MDA
|   |-- Setup
|   |   |-- 32AUTOLE.DLL
|   |   |-- acmsetup.hlp
|   |   |-- msacccah.dll
|   |   |-- MSCREATE.DIR
|   |   |-- msodeGER.dll
|   |   |-- mssetup.dll
|   |   |-- SETUP.EXE
|   |   |-- SETUP.INF
|   |   |-- setup.ini
|   |   |-- setup.stf
|   |   `-- setup.tdf
|   |-- system.mdw
|   `-- tacomp.dep
`-- MSCREATE.DIR

3 directories, 29 files
--- snip ---

With commit
https://source.winehq.org/git/wine.git/commitdiff/8aaa218b4731c01856e631926daaee7eec0129d4
("oleaut32/typelib: Implement DeleteImplType().") it runs further - as
described in my comment #8.

--- snip ---
$ pwd
/home/focht/.wine/drive_c/Programme/AllInOne-Office

$ WINEDEBUG=+seh,+relay,+ole,+variant,+typelib \
    wine "c:\\Programme\\AllInOne-Office\\Office\\MSACCESS.EXE" \
    /Runtime "c:\\Programme\\AllInOne-Office\\AO Base.mde" \
   >>log.txt 2>&1

...
0110:trace:ole:SysAllocStringLen L"Form_Sys_AppVal_Frm_Special"
...
0110:trace:ole:ITypeInfo_fnQueryInterface (035A7C58)->(IID:
{00020405-0000-0000-c000-000000000046})
0110:trace:ole:ITypeInfo_fnAddRef (035A7C58)->ref is 1
0110:trace:ole:ITypeLib2_fnAddRef (003AE090) ref=4
0110:trace:ole:ITypeInfo_fnQueryInterface -- Interface: (0032D5EC)->(035A7C60)
0110:Call oleaut32.SysAllocString(300710f0 L"Form") ret=30070e2a
..
0110:trace:ole:SysAllocStringLen L"Form"
...
0110:Ret  oleaut32.SysAllocString() retval=035823d4 ret=30070e2a
0110:trace:ole:ITypeInfo_fnQueryInterface (035A7C58)->(IID:
{0002040e-0000-0000-c000-000000000046})
0110:trace:ole:ITypeInfo_fnAddRef (035A7C58)->ref is 2
0110:trace:ole:ITypeInfo_fnQueryInterface -- Interface: (0032D5E0)->(035A7C60)
0110:trace:ole:ICreateTypeInfo2_fnSetCustData 035A7C58
{ba65d790-9301-11cf-8d22-00aa00375384} 0032D5B8
...
0110:trace:ole:ICreateTypeInfo2_fnDeleteImplType 035A7C58 1
0110:trace:ole:ICreateTypeInfo2_fnDeleteImplType 035A7C58 0
0110:trace:ole:ITypeInfo_fnRelease (035A7C58)->(1)
0110:trace:ole:ICreateTypeInfo2_fnAddRefTypeInfo 035A7C58 035A7988 0032D5DC
0110:trace:ole:ITypeInfo_fnGetContainingTypeLib returning pIndex=0
0110:trace:ole:ITypeLib2_fnAddRef (003AE090) ref=5
0110:trace:ole:ITypeInfo_fnGetContainingTypeLib returning ppTLib=003AE090
0110:trace:ole:ITypeLib2_fnRelease (003AE090) ref=4
0110:trace:ole:ICreateTypeInfo2_fnAddImplType 035A7C58 0 0
...
0110:trace:ole:dump_TypeInfo L"Form_Sys_AppVal_Frm_Special" (null)
0110:trace:ole:dump_TypeInfo attr:{fdbce983-dbbc-409e-bca8-15365634c053}
0110:trace:ole:dump_TypeInfo kind:TKIND_COCLASS
0110:trace:ole:dump_TypeInfo fct:0 var:0 impl:2
0110:trace:ole:dump_TypeInfo wTypeFlags: 0x1000
0110:trace:ole:dump_TypeInfo parent tlb:003AE090 index in TLB:1
0110:trace:typelib:dump_TLBImplType implementing/inheriting interface hRef = 0
implflags 1
0110:trace:typelib:dump_TLBImplType implementing/inheriting interface hRef = 19
implflags 3
0110:trace:ole:ITypeInfo_fnGetRefTypeOfImplType SUCCESS -- hRef = 0x00000000
...
0110:Call user32.CreateWindowExA(00000340,30288674 "OForm",0032d920
"Sys_AppVal_Frm_Special :
Formular",46cf0000,0000004a,00000006,000001d1,000001bd,00010090,00000000,30000000,00000202)
ret=30029a57 
...
0110:Call user32.CreateWindowExA(00000000,30288668
"OFormSub",00000000,46000000,00000000,00000000,00000000,00000000,000100da,00000000,30000000,00000000)
ret=3001f892 
...
0110:trace:ole:ICreateTypeLib2_fnCreateTypeInfo 003AE090
L"IForm_Sys_AppVal_Frm_Special" 3 0032D5F0
...
0110:fixme:ole:ICreateTypeLib2_fnDeleteTypeInfo 003AE090
L"IForm_Sys_AppVal_Frm_Special" - stub
0110:trace:ole:ITypeLib2_fnQueryInterface (003AE090)->(IID:
{00020402-0000-0000-c000-000000000046})
0110:trace:ole:ITypeLib2_fnAddRef (003AE090) ref=3
...
0110:trace:ole:ITypeLib2_fnFindName (003AE090)->(L"Form_Sys_AppVal_Frm_Special"
0 0032D6B4 0032D5CC 0032D5D0) 
...
0110:Call KERNEL32.lstrcmpiA(0032d170 "Form_Sys_AppVal_Frm_Special",017f0848
"Main_Code") ret=30034c2b 
...
0110:trace:ole:dump_TypeInfo L"IForm_Sys_AppVal_Frm_Special" (null)
0110:trace:ole:dump_TypeInfo attr:{88665424-6ef0-4dee-954d-78eecdc724ed}
0110:trace:ole:dump_TypeInfo kind:TKIND_INTERFACE
0110:trace:ole:dump_TypeInfo fct:0 var:0 impl:0
0110:trace:ole:dump_TypeInfo wTypeFlags: 0x2150
0110:trace:ole:dump_TypeInfo parent tlb:003AE090 index in TLB:0
0110:trace:ole:ITypeInfo_fnGetRefTypeOfImplType FAILURE -- hresult = 0x8002802b
0110:trace:ole:ITypeLib2_fnGetTypeInfoOfGuid 003FD658
{e5135d80-8f8d-101b-af4e-00aa003f0f07} 0032D4F4
0110:trace:ole:ITypeInfo_fnAddRef (02CE7DA0)->ref is 1
0110:trace:ole:ITypeLib2_fnAddRef (003FD658) ref=4
0110:trace:ole:ICreateTypeInfo2_fnAddRefTypeInfo 035A7988 02CE7DA0 0032D5DC
0110:trace:ole:ITypeInfo_fnGetContainingTypeLib returning pIndex=133
0110:trace:ole:ITypeLib2_fnAddRef (003FD658) ref=5
0110:trace:ole:ITypeInfo_fnGetContainingTypeLib returning ppTLib=003FD658
0110:trace:ole:ITypeLib2_fnGetLibAttr (003FD658, 0032D4C4) 
...
0110:trace:ole:errorinfo_QueryInterface 035A7F90,
{1cf2b120-547d-101b-8e65-08002b2bd119}, 0032D814.
0110:trace:ole:errorinfo_AddRef 035A7F90, refcount 2.
0110:Call oleaut32.SetErrorInfo(00000000,035a7f90) ret=300208cf
0110:Call combase.SetErrorInfo(00000000,035a7f90) ret=7bc39394
0110:trace:ole:SetErrorInfo 0, 035A7F90
0110:trace:ole:errorinfo_AddRef 035A7F90, refcount 3.
0110:Ret  combase.SetErrorInfo() retval=00000000 ret=7bc39394
0110:Ret  oleaut32.SetErrorInfo() retval=00000000 ret=300208cf 
...
0110:Call KERNEL32.MultiByteToWideChar(00000000,00000000,0032cd0c "Unerwarteter
Fehler (~)",ffffffff,00000000,00000000) ret=651ad5dd 
...
0110:Call KERNEL32.lstrlenA(0032c7a4 "Sie haben als Einstellung der
Ereigniseigenschaft den Ausdruck |2 eingegeben. Dieser Ausdruck hat einen
Fehler verursacht: |1.@* Der Ausdruck gibt m\xf6glicherweise weder den Namen
eines Makros noch den Namen einer benutzerdefinierten Funktion, noch
[Ereignisprozedur] zur\xfcck.\n* Beim Aus"...) ret=30081e24 
...
0110:Call KERNEL32.lstrlenA(0032cc1c "Die Aktion | wurde abgebrochen. at Sie haben
eine Methode des DoCmd-Objekts verwendet, um in Visual Basic eine Aktion
auszuf\xfchren, haben aber dann in einem Dialogfeld auf 'Abbrechen'
geklickt.\nSie haben z.B. mit der Close-Methode ein ge\xe4ndertes Formular
geschlossen und haben dann in dem"...) ret=30081e24 
--- snip ---

After a while it continuosly displays an error window:

--- snip ---
....
0110:Call KERNEL32.MultiByteToWideChar(00000000,00000000,0023f670 "Nicht
gen\xfcgend Stapelspeicher",ffffffff,00000000,00000000) ret=651ad5dd 
--- snip ---

Translated: "not enough stack space" which makes sense. There is indeed a
recursion, leading to exhaustion of stack. But that's a different problem.

Resolving 'fixed' here.

$ sha1sum AO.zip 
630a440ff3688657dbb013f8e70bdc190b637336  AO.zip

$ du -sh AO.zip 
18M    AO.zip

$ wine --version
wine-6.9-248-g96030ce738a

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.