Problem mit LokSimServer

Hi,
ich habe ein seltsames Problem mit dem AutoServer in VB:
Ich bekomme die Fehlermeldung

Zitat

Die COM-Klassenfactory für die Komponente mit CLSID {64CF4CD3-FA44-4606-B7FD-279BB59C51CA} konnte aufgrund des folgenden Fehlers nicht abgerufen werden: 80040154 Klasse nicht registriert (Ausnahme von HRESULT: 0x80040154 (REGDB_E_CLASSNOTREG)).

wenn ich mit

Loksim = New LoksimControl.LoksimAutoServer

den AutoServer initialisiere.
Wie lässt sich das beheben?
mbfan

System: LokSim 2.7.2, LokSim 2.8 Beta (14.1.)

Hi,
hatte ich davor auch schonmal, aber nach einem neuen Versuch hat es funktioniert. Danke.
mbfan

Hi,

der LokSimServer spielt bei mir jetzt vollkommen verrückt. Er erkennt aus einem Konsolenprogramm herraus aufgerufen keinen meiner LokSims. Er startet das Programm zwar, aber "Loksim.SimulationIsRunning" ist immer false, egal ob ich den alten LokSim starte oder die Beta.
Woran kann das liegen?
mbfan

Ich meinte eigentlich LoksimIsRunning
mbfan

Ja. Kann der Server vllt. nicht mit mehreren LokSims zurecht kommen?
mbfan

Hi,
auf meinem neuen Rechner (Win7 64-bit, LokSim 2.8 RC 3) habe ich immernoch dieses Problem. Der LokSimServer meldet mir, selbst wenn kein Loksim gestartet ist:
[Blockierte Grafik: http://ls3d.hwprog.org/download/Bugs/OLE-Problem.png]
Weiter als bis zur Codezeile darunter kommt er auch nicht.
Ich habe den Server mindestens ein Dutzend Mal neu registriert, immer in einem Unterverzeichnis des Loksims.
Dasselbe Problem habe ich auch mit der beigelegten exe (VB.NET)
mbfan

OK, jetzt scheint es zu funktionieren - aber ich weiß nicht wielange.

Hi,
weiß ich nicht - und funktionieren würde ich es auch nicht nennen. Das Programm und der Loksim stocken extrem. Ich probiere es jetzt mal mit dem originalen Programm, villeicht ist mein Code einfach zu überlastet.
mbfan

Edit: So wie es aussieht war mein Code überladen - Danke für die Hilfe.
mbfan

Hi,
ich habe den Fehler schon gefunden: Meine Subroutine für das Zusammenfügen von Buchfahrplan und Fahrplan in eine Listview war zu lang. Ich habe sie jetzt verbessert und schon flutscht das Programm ...
mbfan

Hi,
da ich eine Listview zur Anzeige benutze, füge ich sie über die Listview zusammen. Ich benutze folgenden Code in VB.NET, um es zusammenzufügen. Der Timer sollte einen Zyklus von ca. 1000 ms haben und nur dann gestartet werden, wenn die Verbindung zum Loksim steht.
(Listview2 ist meine listview)

Private Sub tim_fahrplan_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tim_fahrplan.Tick
        Dim Params As String = ""
        LoksimHelper.AddParam(Params, LoksimHelper.cLOK_COMMON_BUCHFAHRPLAN)
        LoksimHelper.AddParam(Params, LoksimHelper.cLOK_COMMON_FAHRPLAN)
        Dim RetParams As String = Loksim.GetSimData(Params)
        If fpl_to_lv_act = True Then
            Exit Sub
        End If
        fpl_to_lv(LoksimHelper.GetParamString(RetParams, LoksimHelper.cLOK_COMMON_FAHRPLAN), LoksimHelper.GetParamString(RetParams, LoksimHelper.cLOK_COMMON_BUCHFAHRPLAN))
    End Sub
    Dim fpl_to_lv_act As Boolean = False
    Dim fahrplan_ext As String = ""
    Dim buchfahrplan As String = ""
    Sub fpl_to_lv(ByVal neu_fahrplan As String, ByVal neu_buchfahrplan As String)
        If fpl_to_lv_act = True Or (buchfahrplan = neu_buchfahrplan And fahrplan_ext = neu_fahrplan) Then
            Exit Sub
        End If
        fpl_to_lv_act = True
        buchfahrplan = neu_buchfahrplan
        fahrplan_ext = neu_fahrplan
        ListView2.Items.Clear()
        Dim fp1 As String() = neu_buchfahrplan.Split(CChar(vbLf))
        For Each item In fp1
            Dim fps2 As String() = item.Split(CChar(vbTab))
            With ListView2.Items.Add(fps2(0))
                Try
                    .SubItems.Add(fps2(1))
                    .SubItems.Add(fps2(2))
                Catch
                End Try
            End With
        Next
        Dim fp2 As String() = neu_fahrplan.Split(CChar(vbLf))
        For Each item In fp2
            Dim fps3 As String() = item.Split(CChar(vbTab))
            For Each km As ListViewItem In ListView2.Items
                Try
                    If km.Text = fps3(0) And km.SubItems(1).Text = fps3(1) Then
                        km.SubItems.Add(fps3(2))
                        km.SubItems.Add(fps3(3))
                    End If
                Catch
                End Try
            Next
        Next
        fpl_to_lv_act = False
    End Sub

Ist jetzt villeicht nicht der feinste Code, aber er funktioniert ganz ordentlich. Er aktualisiert die Listview nur, wenn es wirklich neue Sachen gibt, denn das aktualisieren einer Listview verursacht zwangsläufig ein Flackern.
mbfan