用程序启动Inventor失败的原因和解决方法

有时候用 "CreateObject("Inventor.Application")"来启动Inventor会失败，但是随后再执行这个命令时Inventor又会成功启动，这是怎么回事？下面是我们的技术专家的解释以及解决办法：

Inventor starts up very slowly when none of its DLLs are in the system's file cache. Restarting the computer clears the file cache so that the first instantiation of Inventor takes a very long time to initialize. When Inventor is started via automation,it must call CoRegisterClassObject within two minutes of the process starting,or else COM assumes the process failed to start and raises a CO_E_SERVER_EXEC_FAILURE 0x80080005 exception in the calling program. This has the effect of killing the inventor.exe process providing the caller with a useless pointer/reference and potentially an unhandled exception. Subsequent attempts to start inventor.exe will use the DLLs in the file cache and the process generally starts much more quickly and does not time out

You can pre-load the libraries by running and exiting Inventor prior to running a utility program. This process is generally needed only one time after each computer restart; subsequent use of the utility programs will reuse the cached libraries loaded earlier in the Windows session. If you have multiple releases of Inventor installed,be sure to run and exit the Inventor release that matches the version number of the utility program you would like to run. Running and exiting a specific release of Inventor will set a value in the Windows registry so the utility programs can detect which installation is active.

An alternative solution is to launch Inventor as a local COM server: in this case the timeout can be up to three minutes and it is generally enough to allow the process to run. The following VB.NET sample shows how to accomplish this.

解决办法如下：

Imports Microsoft.Win32

Public Class clsLocalSrv

Public Shared Function StartAsLocalServer(ByVal ProgId As String,_

ByVal nMilliSeconds As Integer,_

ByRef oApplication As Object) As Boolean

Dim enUS As New Globalization.CultureInfo("en-US")

Threading.Thread.CurrentThread.CurrentCulture = enUS

Dim commandName As String = ""

Dim arguments As String = ""

Dim oRegKey As Microsoft.Win32.RegistryKey,oCls As Microsoft.Win32.RegistryKey

Dim oVal As Object,sName As String,oDir As Object

Try

oCls = Registry.ClassesRoot

oRegKey = oCls.OpenSubKey(ProgId + "//CLSID",False)

oVal = oRegKey.GetValue("",Nothing)

oRegKey = oCls.OpenSubKey("CLSID//" & oVal & "//LocalServer32",False)

oDir = oRegKey.GetValue("",Nothing)

oRegKey.Close()

oCls.Close()

sName = oDir

Dim nIndex As Long

nIndex = Microsoft.VisualBasic.InStrRev(sName,"/automation",CompareMethod.Text)

commandName = Microsoft.VisualBasic.Left(sName,nIndex - 1)

arguments = Microsoft.VisualBasic.Right(sName,(sName.Length() - nIndex + 1))

Catch ex As Exception

MsgBox(ex.Message)

Exit Function

End Try

' Start the program

Dim oProcess As Process = Process.Start(commandName,arguments)

' Loop until run out of time or get the process's object.

Dim Start,Finish As Double

Start = Microsoft.VisualBasic.DateAndTime.Timer

Finish = Start + (nMilliSeconds / 1000)

Do While Microsoft.VisualBasic.DateAndTime.Timer < Finish

Try

oApplication = System.Runtime.InteropServices.Marshal.GetActiveObject(ProgId)

If Not oApplication Is Nothing Then

Return True

End If

Catch ex As Exception

' Keep trying until run out of time

End Try

System.Threading.Thread.Sleep(100)

Loop

' Failed to get the running object,stop the process

oProcess.Kill()

Return False

End Function

End Class

在你的程序里调用上面的方法：

If clsLocalSrv.StartAsLocalServer("Inventor.Application",120000,m_inventorApp) = True Then

'...

End If

如果你用的不是VB.NET，而是VB，那么替换的办法也许是用定时器(Timer)来替代上面的Thread，并用GetObject来替换上面的System.Runtime.InteropServices.Marshal.GetActiveObject来做类似的工作。