[Bug 31724] SolidWorks Explorer 2012 fails to install, reporting 'Could not get typeinfo of hreftype 384 for VT_USERDEFINED, hr = 0x80004005'
wine-bugs at winehq.org
wine-bugs at winehq.org
Sat Mar 8 09:20:04 CST 2014
https://bugs.winehq.org/show_bug.cgi?id=31724
Anastasius Focht <focht at gmx.net> changed:
What |Removed |Added
----------------------------------------------------------------------------
Status|UNCONFIRMED |NEW
CC| |focht at gmx.net
Summary|SolidWorks Explorer 2012: |SolidWorks Explorer 2012
|Rollback at the end of |fails to install, reporting
|installation |'Could not get typeinfo of
| |hreftype 384 for
| |VT_USERDEFINED, hr =
| |0x80004005'
Ever confirmed|0 |1
--- Comment #10 from Anastasius Focht <focht at gmx.net> ---
Hello folks,
confirming, still present.
--- snip ---
$ WINEDEBUG=+tid,+seh,+relay,+msi,+vbscript,+ole,+variant,+scrrun wine
./setup.exe >>log.txt 2>&1
...
0026:trace:msi:ACTION_CustomAction Handling custom action
L"CreateAutoCADR161AddInEntries" (406 L"NewBinary22"
L"AddAutoCADR161PlugInFile")
...
0043:Starting thread proc 0x7ece4e4c (arg=0x12df024)
0043:trace:msi:ScriptThread custom action (43) started
0043:trace:msi:ACTION_CallScript function L"AddAutoCADR161PlugInFile", script
L"' Copyright (C) 1999-2003 Solidworks Corporation\r\n' All rights
reserved.\r\n\r\nFunction AddAcadRXEntry (ByVal inACADSupportDir, ByVal
inEntryToAdd)\r\n\tDim fso, acadRXFileWrite, acadRXFileRead, strFileName,
needToWriteLine, line\r\n\tSet fso =
CreateObject(\"Scripting.FileSystemObject\")\r\n\r\n\t"...
...
0043:trace:vbscript:interp_icall
0043:trace:vbscript:interp_short 8
0043:trace:vbscript:interp_bool true
0043:trace:vbscript:interp_icall
0043:trace:vbscript:interp_mcall
0043:trace:vbscript:disp_get_id using IDispatch
0043:Call oleaut32.LoadRegTypeLib(f6781c8c,00000001,00000000,00000800,0579e210)
ret=f677fac6
...
0043:Call KERNEL32.LoadLibraryExW(0579de6e
L"C:\\windows\\system32\\scrrun.dll",00000000,0000000b) ret=7e5c81fa
0043:Ret KERNEL32.LoadLibraryExW() retval=f6770000 ret=7e5c81fa
...
0043:Ret oleaut32.LoadRegTypeLib() retval=00000000 ret=f677fac6
...
0043:Call KERNEL32.lstrcmpiW(012f31ec L"OpenTextFile",013022d4 L"OpenTextFile")
ret=7e5d1bff
0043:Ret KERNEL32.lstrcmpiW() retval=00000000 ret=7e5d1bff
...
0043:trace:scrrun:filesys_QueryInterface 0xf673aa8c
{a6ef9860-c720-11d0-9337-00a0c90dcaa9} 0x9b9e360
0043:trace:scrrun:filesys_QueryInterface Interface IDispatchEx not supported -
returning NULL
0043:trace:vbscript:disp_call using IDispatch
0043:trace:scrrun:filesys_Invoke (0xf673aa8c)->(1100
{00000000-0000-0000-0000-000000000000} 0 3 0x9b9e3f4 0x9b9e440 0x9b9e340
0x9b9e33c)
0043:trace:ole:ITypeInfo_fnInvoke
(0x12f1e88)(0xf673aa8c,id=1100,flags=0x00000003,0x9b9e3f4,0x9b9e440,0x9b9e340,0x9b9e33c)
0043:trace:ole:dump_DispParms args=3 named args=0
0043:trace:ole:dump_DispParms args:
0043:trace:ole:dump_Variant 0x12e7c38->{VT_BOOL,TRUE}
0043:trace:ole:dump_Variant 0x12e7c48->{VT_I2,8}
0043:trace:ole:dump_Variant 0x12e7c58->{VT_VARIANT|VT_BYREF,0x12e7c00}
0043:trace:ole:ITypeInfo2_fnGetVarIndexOfMemId 0x12f1e88 1100 0x9b9dff8
0043:trace:ole:ITypeInfo2_fnGetTypeKind (0x12f1e88) type 0x4
0043:trace:ole:ITypeInfo_fnAddRef (0x12f06e8)->ref is 1
0043:trace:ole:ITypeLib2_fnAddRef (0x12e7fa0) ref=2
0043:trace:ole:ITypeInfo_fnGetRefTypeInfo (0x12f1e88) hreftype 0x0514 loaded
SUCCESS (0x12f06e8)
0043:trace:ole:ITypeInfo_fnInvoke
(0x12f06e8)(0xf673aa8c,id=1100,flags=0x00000003,0x9b9e3f4,0x9b9e440,0x9b9e340,0x9b9e33c)
0043:trace:ole:dump_DispParms args=3 named args=0
0043:trace:ole:dump_DispParms args:
0043:trace:ole:dump_Variant 0x12e7c38->{VT_BOOL,TRUE}
0043:trace:ole:dump_Variant 0x12e7c48->{VT_I2,8}
0043:trace:ole:dump_Variant 0x12e7c58->{VT_VARIANT|VT_BYREF,0x12e7c00}
0043:trace:ole:ITypeInfo_fnInvoke invoking:
L"OpenTextFile"(5)
parm0: L"FileName"
parm1: L"IOMode"
parm2: L"Create"
parm3: L"Format"
parm4: L"ppts"
memid is 0000044c
Param 0:
tdesc.vartype 8 (VT_BSTR)
u.paramdesc.wParamFlags PARAMFLAG_FIN
u.paramdesc.lpex (nil)
Param 1:
tdesc.vartype 29 (VT_USERDEFINED ref = 384)
u.paramdesc.wParamFlags PARAMFLAG_FIN PARAMFLAG_FOPT
PARAMFLAG_FHASDEFAULT
u.paramdesc.lpex 0x12f1c18
Param 2:
tdesc.vartype 11 (VT_BOOL)
u.paramdesc.wParamFlags PARAMFLAG_FIN PARAMFLAG_FOPT
PARAMFLAG_FHASDEFAULT
u.paramdesc.lpex 0x12f1c30
Param 3:
tdesc.vartype 29 (VT_USERDEFINED ref = 3e8)
u.paramdesc.wParamFlags PARAMFLAG_FIN PARAMFLAG_FOPT
PARAMFLAG_FHASDEFAULT
u.paramdesc.lpex 0x12f1c48
Param 4:
tdesc.vartype 26 (ptr to ptr to VT_USERDEFINED ref = 44c)
u.paramdesc.wParamFlags PARAMFLAG_FOUT PARAMFLAG_FRETVAL
u.paramdesc.lpex (nil)
funckind: 1 (pure virtual)
invkind: 1 (func)
callconv: 4 (stdcall)
oVft: 124
cParamsOpt: 3
wFlags: 0
elemdescFunc (return value type):
tdesc.vartype 25 (VT_HRESULT)
u.paramdesc.wParamFlags PARAMFLAGS_NONE
u.paramdesc.lpex (nil)
helpstring: (null)
entry: invalid
0043:fixme:ole:ITypeInfo_fnGetRefTypeInfo Can't find pRefType for ref 384
0043:trace:ole:ITypeInfo_fnGetRefTypeInfo (0x12f06e8) hreftype 0x0384 loaded
FAILURE ((nil))
0043:err:ole:userdefined_to_variantvt Could not get typeinfo of hreftype 384
for VT_USERDEFINED, hr = 0x80004005
0043:trace:ole:ITypeInfo_fnInvoke -- 0x80004005
0043:trace:ole:ITypeInfo_fnRelease (0x12f06e8)->(0)
0043:trace:ole:ITypeLib2_fnRelease (0x12e7fa0) ref=1
0043:trace:ole:ITypeInfo_fnRelease (0x12f1e88)->(4294967295)
0043:trace:scrrun:filesys_Release 0xf673aa8c
0043:warn:vbscript:exec_script Failed 80004005
...
0043:trace:msi:ACTION_CallScript script returned 1603
0043:trace:msi:ScriptThread custom action (43) returned 1603
...
--- snip ---
The extracted VBScript code in question ('append' iomode passed to
fso.OpenTextFile()):
--- snip ---
Function AddAcadRXEntry (ByVal inACADSupportDir, ByVal inEntryToAdd)
Dim fso, acadRXFileWrite, acadRXFileRead, strFileName, needToWriteLine,
line
Set fso = CreateObject("Scripting.FileSystemObject")
strFileName = inACADSupportDir & "\" & "acad.rx"
' If the file doesn't exist, the FileSystemObject will create
' and open an empty file
Set acadRXFileWrite = fso.OpenTextFile(strFileName, 8, True)
Set acadRXFileRead = fso.OpenTextFile(strFileName, 1, True)
needToWriteLine = True
Do While acadRXFileRead.AtEndOfStream <> True
line = acadRXFileRead.ReadLine
If line = inEntryToAdd Then
needToWriteLine = False
Exit Do
End If
Loop
If needToWriteLine Then
acadRXFileWrite.WriteLine(inEntryToAdd)
End If
acadRXFileRead.Close
acadRXFileWrite.Close
AddAcadRXEntry = 0
End Function
--- snip ---
$ wine --version
wine-1.7.14
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