[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
Tue Mar 11 18:26:01 CDT 2014
http://bugs.winehq.org/show_bug.cgi?id=31724
Anastasius Focht <focht at gmx.net> changed:
What |Removed |Added
----------------------------------------------------------------------------
Fixed by SHA1| |826980d7f414777b40128bb8501
| |65a635c90d8b6
Status|NEW |RESOLVED
Resolution|--- |FIXED
Severity|minor |normal
--- Comment #20 from Anastasius Focht <focht at gmx.net> ---
Hello folks,
this is fixed by commit
http://source.winehq.org/git/wine.git/commitdiff/826980d7f414777b40128bb850165a635c90d8b6
Thanks Nikolay
--- quote ---
As I said 'inACADSupportDir' is not set for me, so even if OpenTextFile() was
implemented it will fail cause requested patch doesn't exist.
--- quote ---
The actual VBScript code run from msi script action:
--- 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
...
Function AddAutoCADR161PlugInFile
On Error Resume Next
Dim strSupportDir
' AutoCAD version R16.1 (2005)
strSupportDir = Session.Property("CustomActionData")
'MsgBox strSupportDir
AddAcadRXEntry strSupportDir, "pdmwAutoCADAddIn2005.arx"
AddAutoCADR161PlugInFile = 0
End Function
...
--- snip ---
inACADSupportDir -> strSupportDir = Session.Property("CustomActionData")
There are some limitations on being able to access the session properties.
MSDN says these are only available to deferred execution custom actions,
immediate ones do not have access to it.
'CustomActionData' property is empty for this script action.
The installer failure is bug 31968 (textstream_get_AtEndOfStream method stub).
$ wine --version
wine-1.7.14-52-g31faed5
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