Hallo NG,
ich brauche mal wieder Hilfe von Fachleuten!
Ich habe ein Programm, das läuft schon seit vielen Jahren auf einer Menge Rechner. Der Quellcode wurde von mir nicht geändert.
Ich habe verschiedene Rechner auf Windows 10 umgestellt, möglicherweise ist der Fehler erst dadurch sichtbar geworden.
Im Debug-Betrieb in Visual Studio auf meinem Rechner kommt der Fehler nicht vor. Das Programm funktioniert problemlos. Nach der Installation auf dem gleichen Rechner kommt es zu einem Laufzeitfehler: Runtime Error! Program:C:\Program File … R6025-pure virtual
function call
Das Programm arbeitet mit einem API von Autodesk Inventor zusammen. Wenn ich die Informationen im Internet richtig verstehen, dann rufe ich die API Funktion auf, bevor sie vom Compiler erzeugt worden ist.
Frage: Wie kann ich den Programmierfehler beheben?
Ich zeige hier mal den Code, auch wenn das wahrscheinlich nicht hilft:
Public Sub GetAllReferentedDocuments(ByVal FullDateiname As String, ByRef Liste As Hashtable)
Try
Dim Info2 As New System.IO.FileInfo(FullDateiname)
If Info2.Exists Then
Dim oAS As New Inventor.ApprenticeServerComponent
Dim oAD As Inventor.ApprenticeServerDocument
oAD = oAS.Open(FullDateiname)
Dim oADC As Inventor.ApprenticeServerDocuments
oADC = oAD.AllReferencedDocuments
Dim DocDesEnum As Inventor.DocumentDescriptorsEnumerator
DocDesEnum = oAD.ReferencedDocumentDescriptors
If DocDesEnum.Count > 0 Then
Dim DocDes As Inventor.DocumentDescriptor
For Each DocDes In DocDesEnum
If Not Liste.Contains(DocDes.FullDocumentName) Then
Dim info As New System.IO.FileInfo(DocDes.FullDocumentName)
Dim Zeichnungsname As String = info.FullName.Substring(0, info.FullName.Length - info.Extension.Length)
& ".idw"
Debug.WriteLine(Zeichnungsname)
Liste.Add(DocDes.FullDocumentName, Zeichnungsname)
End If
GetAllReferentedDocuments(DocDes.FullDocumentName, Liste)
Next
End If
oAS.Close()
End If
Catch ex As Exception
MessageBox.Show("GetAllReferentedDocumentsInventorDatei" & Chr(10) & ex.ToString, "Fehler 1062", MessageBoxButtons.OK)
End Try
End Sub
Mit freundlichen Grüßen Dipl. Ing. Joachim Schmäck
