[Bug 31724] SolidWorks Explorer 2012 fails to install, reporting 'Could not get typeinfo of hreftype 384 for VT_USERDEFINED, hr = 0x80004005'

http://bugs.winehq.org/show_bug.cgi?id=31724

Anastasius Focht <focht(a)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(a)gmx.net> ---
Hello folks,

this is fixed by commit
http://source.winehq.org/git/wine.git/commitdiff/826980d7f414777b40128bb8501...

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.