Timer threadübergreifend starten/stoppen??

  • VB.NET

Es gibt 3 Antworten in diesem Thema. Der letzte Beitrag () ist von ErfinderDesRades.

    Timer threadübergreifend starten/stoppen??

    Hallo zusammen,

    ich habe vor einiger Zeit begonnen, einen Server-Manager zu programmieren, der auf einem Root-Server läuft. Weitere Infor hier: List Of <Class>, vorherige Elemente werden überschrieben
    Soweit funktioniert auch (fast) alles.

    Als Vorabinfo zu meinem aktuellen Problem noch folgendes:
    Der Servermanager kann sowohl lokal über Buttons usw. direkt bedient werden, als auch über ein Web-Interface gesteuert werden. Für die Kommunikation mit dem Web-Interface läuft ein eigener Thread. Es gibt eine Funktion, die die Server updaten soll. Dazu muss ein externes Kommandozeilen-Programm aufgerufen werden, das den Server updatet und sich danach beendet.
    Um festzustellen, wann der Updater fertig ist, läuft ein Timer, der zyklisch prüft, ob der Prozess beendet ist (vielleicht nicht die beste Variante, funktioniert aber). Das Update wird über die Funktion UpdateGameServer(..) gestartet, die eben den Updater und danach den Timer startet. Diese Funktion wird sowohl lokal über einen Button, als auch über das Web-Interface aufgerufen. Der Updater wird in beiden Fällen gestartet, der Timer allerdings nur, wenn die Funktion lokal über den Button ausgeführt wird.

    Daher meine Frage: Kann ein Timer standardmäßig nicht threadübergreifend gestartet werden? Wie bekomme ich das hin, dass der Timer auch aus dem anderen Thread heraus gestartet wird (bzw warum wird die Funktion ausgeführt, nur das Starten des Timers nicht?)?

    Vielen Dank schon mal im Vorraus!

    cya Igel


    Form Load:

    VB.NET-Quellcode

    1. Public Class Hauptfenster
    2. Private Delegate Sub UpdateTextDelegate(RTB As RichTextBox, txt As String)
    4. Private Sub Hauptfenster_Load(sender As Object, e As EventArgs) Handles MyBase.Load
    5. Me.Text = "ServerManager - " & "V" & FileVersionInfo.GetVersionInfo(IO.Path.GetFileName(Application.ExecutablePath)).FileVersion.ToString
    7. If System.Diagnostics.Process.GetProcessesByName("ServerManager").Count > 1 Then
    8. Dim proc As Process = System.Diagnostics.Process.GetCurrentProcess()
    10. MessageBox.Show(Me, "Eine Instanz des ServerManagers läuft bereits.", "ServerManager", MessageBoxButtons.OK, MessageBoxIcon.Exclamation)
    12. proc.Kill()
    13. End If
    15. CheckForIllegalCrossThreadCalls = False
    17. LoadServerList()
    19. TCPServer = New TCPControl("127.0.0.1", 4305)
    20. AddHandler TCPServer.MessageReceived, AddressOf ValidateRequestAndRespond
    22. TxtServername.Text = "-- kein Server ausgewählt --"
    24. If ProgramData.Servers.Count = 0 Then
    25. ServerBearbeitenToolStripMenuItem.Enabled = False
    26. ServerLöschenToolStripMenuItem.Enabled = False
    27. End If
    29. If ProgramData.Settings.AllowRemoteControl = True Then
    30. TCPServer.StartServer()
    31. Else
    32. TCPServer.StopServer()
    33. TaReceive.Enabled = False
    34. End If
    36. TimGameServerMonitoring.Enabled = True
    38. TimApplicationRunningCheck.Enabled = True ' UpdateProcessTimer - 5 sec
    39. .
    40. .
    41. .
    42. End Sub
    43. .
    44. .


    Timer:

    VB.NET-Quellcode

    1. Private Sub TimApplicationRunningCheck_Tick(sender As Object, e As EventArgs) Handles TimApplicationRunningCheck.Tick ' 5 Sekunden
    2. Dim updateCount As Integer = 0
    4. Console.WriteLine("TimApplicationRunningCheck_Tick...")
    6. For srvIdx As Integer = 0 To ProgramData.Servers.Count - 1
    8. If Not ProcessIsRunning(ProgramData.Servers(srvIdx).SteamCMDPID) Then
    9. If ProgramData.Servers(srvIdx).Serverstate = ServerStatus.UpdatingStart Then
    10. Dim status As Boolean = CBool(StartGameServer(ProgramData.Servers(srvIdx).ID, True))
    12. If status = True Then
    13. SetServerControls(ServerStatus.Running, ProgramData.Servers(srvIdx).ID)
    14. Else
    15. SetServerControls(ServerStatus.Stopped, ProgramData.Servers(srvIdx).ID)
    16. End If
    17. ProgramData.Servers(srvIdx).SteamCMDPID = 0
    18. ElseIf ProgramData.Servers(srvIdx).Serverstate = ServerStatus.Updating Then
    19. SetServerControls(ServerStatus.Stopped, ProgramData.Servers(srvIdx).ID)
    20. ProgramData.Servers(srvIdx).SteamCMDPID = 0
    21. End If
    22. Else
    23. updateCount += 1
    24. End If
    25. Next
    27. If updateCount = 0 Then
    28. TimApplicationRunningCheck.Enabled = False
    29. End If
    30. End Sub


    Update-Funktion:

    VB.NET-Quellcode

    1. Function UpdateGameServer(ServerID As Integer, Optional ByVal SilentMode As Boolean = False) As Integer
    2. Dim procID As Integer = 0
    3. Dim srvIdx As Integer = ProgramData.GetSrvIdx(ServerID)
    5. If System.IO.File.Exists(ProgramData.Settings.SteamCmdPath) Then
    6. Dim procProp As New ProcessStartInfo
    8. If Not ProcessIsRunning(ProgramData.Servers(srvIdx).SteamCMDPID) Then
    9. Try
    10. procProp.FileName = ProgramData.Settings.SteamCmdPath
    11. procProp.Arguments = "+login anonymous +force_install_dir " & ProgramData.Servers(srvIdx).Path & " +app_update " & ProgramData.Settings.AppID & " validate +quit"
    12. procProp.WindowStyle = ProcessWindowStyle.Minimized
    14. procID = Process.Start(procProp).Id
    16. ProgramData.Servers(srvIdx).SteamCMDPID = procID
    18. Hauptfenster.TimApplicationRunningCheck.Enabled = True
    20. ServerLogFiles(srvIdx).Add("SERVER STATUS", "UpdateGameServer(): Server updating")
    22. Catch ex As Exception
    23. procID = 0
    24. If SilentMode = False Then MsgBox("Es ist ein unbekannter Fehler beim Starten von SteamCMD aufgetreten!", vbCritical, "Update-Status")
    26. ServerLogFiles(srvIdx).Add("SERVER STATUS", "UpdateGameServer(): Unkown error occured!")
    27. End Try
    28. Else
    29. procID = 0
    30. If SilentMode = False Then MsgBox("Es läuft bereits eine Update-Routine.", vbExclamation, "Update-Status")
    32. ServerLogFiles(srvIdx).Add("SERVER STATUS", "UpdateGameServer(): Update already running.")
    33. End If
    35. Else
    36. If SilentMode = False Then MsgBox("Das Update konnte nicht gestartet werden, da der angegebene SteamCMD-Pfad nicht korrekt ist." & vbCrLf & vbCrLf & "Bitte Einstellungen überprüfen!", vbExclamation, "Fehler beim Starten des Updates")
    38. ServerLogFiles(srvIdx).Add("SERVER STATUS", "UpdateGameServer(): Update could not be started - Wrong SteamCMD path.")
    39. End If
    41. ServerLogFiles(srvIdx).Save()
    43. Return procID
    44. End Function


    Kommunikation mit dem Web-Interface:

    VB.NET-Quellcode

    1. ' --------------------------------------------------------------------------------------------------------------------
    2. ' --------- TCP VERBINDUNG -------------------------------------------------------------------------------------------
    3. ' --------------------------------------------------------------------------------------------------------------------
    5. Sub ValidateRequestAndRespond(sender As TCPControl, ByVal request As String)
    6. If TCPServer.ServerStatus = True Then
    7. Dim command As String = ""
    8. Dim parameter As String = ""
    9. Dim SrvIdx As Integer = -1
    10. Dim GameServerStatus As Boolean = False
    12. If request.IndexOf("(") > -1 And request.IndexOf(")") > request.IndexOf("(") Then
    13. command = request.Substring(0, request.IndexOf("("))
    14. parameter = request.Substring(request.IndexOf("(") + 1, request.IndexOf(")") - (request.IndexOf("(") + 1))
    15. Else
    16. command = request
    17. parameter = ""
    18. End If
    20. Select Case command
    22. Case "SetServerUpdate"
    23. SrvIdx = ProgramData.GetSrvIdx(CInt(parameter))
    25. If IsNumeric(parameter) And SrvIdx > CONST_INVALID Then
    26. GameServerStatus = CBool(UpdateGameServer(CInt(parameter), True))
    28. If GameServerStatus = True Then
    29. SetServerControls(ServerStatus.Updating, CInt(parameter))
    30. TCPServer.SendToClient("success")
    31. Else
    32. TCPServer.SendToClient("failed")
    33. End If
    34. UpdateText(TaReceive, request)
    35. ServerLogFiles(SrvIdx).Add("REMOTE CONTROL", "SetServerUpdate received")
    36. ServerLogFiles(SrvIdx).Save()
    37. Else
    38. TCPServer.SendToClient("wrong ID")
    39. End If
    41. ' ...
    43. Case Else
    44. 'Me.TaReceive.Text = request
    45. UpdateText(TaReceive, "WRONG CMD: " & request)
    46. AppLogFile.Add("REMOTE CONTROL", request & " received (wrong command)")
    47. AppLogFile.Save()
    48. TCPServer.SendToClient("wrong command")
    49. End Select
    50. End If
    51. End Sub
    53. ' UPDATE TEXTBOX
    54. Private Sub UpdateText(RTB As RichTextBox, txt As String)
    55. If RTB.InvokeRequired Then
    56. RTB.Invoke(New UpdateTextDelegate(AddressOf UpdateText), New Object() {RTB, txt})
    57. Else
    58. If txt IsNot Nothing Then RTB.AppendText("[" & Format(Now, "dd.MM.yyyy HH:mm:ss") & "] " & txt & vbCrLf)
    59. RTB.ScrollToCaret()
    60. End If
    61. End Sub

    Igel schrieb:

    Kann ein Timer standardmäßig nicht threadübergreifend gestartet werden?
    Was meinst du mit "threadübergreifend gestartet"?
    Den Timer aus einem NebenThread starten (also die 2. Frage)?
    Das geht mit einem Winforms-Timer nicht, weil der WinForms-Timer ist ein Gui-Element, und alle Gui-Elemente dürfen nur vom Gui-Thread angesprochen werden.

    Aber es gibt noch andere Timer.
    Die kann man durchaus von verschiedenen Threads aus starten/stoppen, allerdings muss man dazu einen SyncLock setzen (Threading ist nunmal so).

    Igel schrieb:

    Wie bekomme ich das hin, dass der Timer auch aus dem anderen Thread heraus gestartet wird?
    Für einen Winforms-Timer verwendet man Control.BeginInvoke, für einen Timers.Timer oder Thread.Timer einen SyncLock-Block.


    Zu deim Code kannichnix nuir allgemein sagen, sieht verworren aus, und ich weiss nicht, welche Methode im Client läuft, und welche im Server - ich weiss nichtmal, ob du unter Client/Server das gleiche verstehst wie ich.

    Danke für deine Antwort ^^

    Der ServerManager ist der Server, der Client ist komplett in php programmiert, also ist alles, was VB ist der Server ;)

    Ich hab das jetzt einfach so gelöst, dass der Timer immer läuft und nur wenn die notwendigen Bedingungen bestehen (Status auf update, aber Prozess schon beendet), was im Timer ausgeführt wird. Das klappt nun, egal von wo die Funktion aufgerufen wird. :thumbup:

    cya Igel

    (hmm - scheints verstehen wir unter Client tatsächlich was anneres.
    Weil meines Wissens kann man mit PHP keinen Client programmieren.)

    Aber ansonsten scheint mir deine Lösung höchst sinnvoll: Der Timer tickt kontinuirlich, aber Jobs werden nur ausgeführt, wenn bestimmte Bedingungen dafür vorliegen.

Facebook
Telefonspende