Timeout für langwierigen Vorgang

  • VB.NET

Es gibt 15 Antworten in diesem Thema. Der letzte Beitrag () ist von Samus Aran.

    Timeout für langwierigen Vorgang

    Ich hab hier ein Programm, das die Durchschnittsfarbe des aktuellen Wallpapers berechnet.
    Das Problem ist: Wenn sich das Programm darin aufhängt und nichts mehr funktioniert, lässt sich das Wallpaper nicht mehr ändern, da mein Programm noch Zugriff darauf nimmt.
    Der Vorgang, mit dem die Farbe berechnet wird, läuft NICHT in nem separaten Thread, deshalb meine Frage: Wie lass ich nen Thread laufen, in dem mehrmals Properties von threadfremden Objekten überprüft werden, und der am Ende nen Wert zurückgeben soll? Wenn der Thread länger als ca. 5 Sekunden beschäftigt ist, soll er abgebrochen werden und ein generischer Wert zurückgegeben werden.
    Ich bin mit Threading und solchem Kram heillos überfordert, deshalb frag ich :D

    ich würde auch den backgroundworker verwenden da er:
    1. einen fortschritt meldet
    2. abbrechbar ist (der timer kann also nach 5 sekunden sagen "ätsch! zu spät")
    3. du kannst in dem backgroundworker auf variablen zugreifen und diese ändern, ist einfacher als sich selbst einen thread zu basteln und mit invokes rumzuschlagen

    und nochwas: sieh dir Lockbits an bzw benutze die Fastbitmap Lib aus dem forum hier. bringt die ein geschwindigkeitszuwachs (sofern du getpixel der bitmapklasse verwendest) von faktor 10!

    Ich nutz weder GetPixel noch LockBits, das Problem ist nur, dass meine Methode ab und zu random Exceptions wirft, die bei nem erneuten Aufruf nicht geworfen werden.
    Immer, wenn ne Exception kommt, ruf ich die Methode erneut auf, das führt manchmal zu längeren Schleifen ^^

    cool, wie funktioniert das sonst wenn ich fragen darf? iwo müssen ja die random exceptions herkommen xD
    sollte dann aber trotzdem kein problem sein das ganze in mit backgroundworker unterstüztung zu realisieren. ein BGW ist ja streng genommen nichts anderes als ein Thread mit ein paar erweiterungen die dem user das nutzen vereinfachen..

    Kopier Dir das BackgroundBild in eine eigene Bitmap (nicht über New Bitmap(FILE), sondern über einen Stream), mit der kannst Du machen, was immer Du willst, ohne dass das Wallpaper behelligt wird.
    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!

    Was passiert denn mit dieser, wenn Du eine eigene Bitmap verwendest?
    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!

    Kleines Workaround mit Timer:
    Spoiler anzeigen

    VB.NET-Quellcode

    1. Public Class Form1
    2. WithEvents t As New Timers.Timer
    3. Public AbbruchFlag As Boolean = False
    4. Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
    5. t.Interval = 1000 * 5
    6. t.Start()
    8. For q = 1 To 100000
    9. For w = 1 To 1000000
    10. For z = 1 To 100000
    11. REM
    12. If AbbruchFlag Then Exit For
    13. Next
    14. If AbbruchFlag Then Exit For
    16. Next
    17. If AbbruchFlag Then Exit For
    19. Next
    21. MessageBox.Show("Vorgang ist fertig...")
    23. End Sub
    25. Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
    26. Button1.Text = "Starte langen Vorgang..."
    27. End Sub
    30. Sub goforit() Handles t.Elapsed
    31. AbbruchFlag = True
    32. End Sub
    34. End Class

    @RodFromGermany: Ich weiß gerade nicht, was du meinst, aber laut IntelliTrace werden entweder OutOfRange oder OutOfMemory-Exceptions geworfen.
    Edit:

    VB.NET-Quellcode

    1. Dim fs As New IO.FileStream(GetCurrentWallpaper, IO.FileMode.Open, IO.FileAccess.Read)
    2. Dim orig As Bitmap = CType(Bitmap.FromStream(fs, True, False), Bitmap)
    3. fs.Close()
    4. fs.Dispose()
    So mach ichs derzeit.

    @der_Kurt: Das werd ich mal probieren, danke.

    Samus Aran schrieb:

    @RodFromGermany: Ich weiß gerade nicht, was du meinst

    Nimm ein Bild, das nicht Wallpaper ist.
    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!

    so, ich habe mich mal an einer "async-get-Durchschnittsfarbe"-funktion versucht. Dauert der Vorgang zu lange wird er automatisch (hier nach 5 sekunden) abgebrochen.
    Damit der Programmierer am anderen ende weiß was passiert gibt es einige events: Statusreport in prozent, Timeout-event das aufgerufen wird wenn der vorgang wegen zeitüberschreitung abgebrochen werden musste, ein ergebnis-event das die durchschnittsfarbe zurückgibt und ein event für benutzungsfehler (angegebene datei existiert nicht, der backgroundworker ist bereits beschäftigt).

    hier mein code (einfach eine formsanwendung erstellen, ein label und einen button platzieren und den code einfügen. der rest sollte selbsterklärend sein.

    Spoiler anzeigen

    VB.NET-Quellcode

    1. Option Strict On
    3. Public Class Form1
    6. Public WithEvents DFB As New Durchschnittsfarbenberechner
    9. Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    10. With New OpenFileDialog
    11. If .ShowDialog = Windows.Forms.DialogResult.OK Then
    12. DFB.Berechne(.FileName)
    13. Button1.Enabled = False
    14. End If
    15. End With
    16. End Sub
    17. Private Sub DFB_Ergebnis(ByVal col As System.Drawing.Color) Handles DFB.Ergebnis
    18. MsgBox("Farbe erfolgreich berechnet!")
    19. Button1.BackColor = col
    21. Button1.Enabled = True
    23. End Sub
    24. Private Sub DFB_Fehler(ByVal msg As String) Handles DFB.Fehler
    25. MsgBox("ERROR: " & msg)
    26. Button1.Enabled = True
    27. End Sub
    28. Private Sub DFB_Statusreport(ByVal Status As Integer) Handles DFB.Statusreport
    29. Label1.Text = Status.ToString & " %"
    30. End Sub
    31. Private Sub DFB_Timeout() Handles DFB.Timeout
    32. MsgBox("Der Vorgang dauerte zu lange!")
    33. Button1.Enabled = True
    34. End Sub
    38. End Class
    40. Public Class Durchschnittsfarbenberechner
    42. Public TimeoutTime As Integer = 5 'Timeout in Sekunden
    43. Dim TimeoutCounter As Integer = 0 'zählervariable
    45. WithEvents BGW As New System.ComponentModel.BackgroundWorker
    46. WithEvents TimeoutTimer As New Timer
    48. Public Event Ergebnis(ByVal col As Color)
    49. Public Event Fehler(ByVal msg As String)
    50. Public Event Timeout()
    51. Public Event Statusreport(ByVal Status As Integer) 'statusreport in 0-100%
    53. Public Sub New()
    55. BGW.WorkerReportsProgress = True
    56. BGW.WorkerSupportsCancellation = True
    57. TimeoutTimer.Interval = 1000
    59. End Sub
    61. Public Sub Berechne(ByVal Path As String)
    63. If BGW.IsBusy = True Then
    64. RaiseEvent Fehler("Der Backgroundworker ist bereits beschäftigt!")
    65. 'alternativ die arbeit einstellen und die neue aufgabe wahrnehmen
    66. Else
    68. If My.Computer.FileSystem.FileExists(Path) = False Then
    69. RaiseEvent Fehler("Die Datei existiert nicht!")
    70. Else
    72. 'Die arbeit beginnen...
    74. 'Timerreset
    75. TimeoutCounter = 0
    76. TimeoutTimer.Start()
    78. 'backgroundworker anschmeißen
    79. CancelBGW = False
    80. BGW.RunWorkerAsync(Path)
    83. End If
    85. End If
    88. End Sub
    90. Dim Durchschnittsfarbe As Color
    91. Dim CancelBGW As Boolean = False
    92. Private Sub BGW_DoWork(ByVal sender As Object, ByVal e As System.ComponentModel.DoWorkEventArgs) Handles BGW.DoWork
    95. Dim path As String = CStr(e.Argument)
    96. Dim tmp As Bitmap
    97. Using Str As New IO.StreamReader(path)
    98. tmp = New Bitmap(Str.BaseStream)
    99. End Using
    101. Dim dR As Integer = 0
    102. Dim dG As Integer = 0
    103. Dim dB As Integer = 0
    105. Dim Counter As Integer = 0
    106. Dim MaxCount As Integer = tmp.Size.Width * tmp.Size.Height
    111. 'hier alternativ Lockbits verwenden oder die Fastbitmap Lib aus dem Forum!
    112. For x = 0 To tmp.Size.Width - 1
    113. If CancelBGW Then Exit For
    114. For y = 0 To tmp.Size.Height - 1
    115. If CancelBGW Then Exit For
    116. With tmp.GetPixel(x, y)
    117. dR += .R
    118. dG += .G
    119. dB += .B
    120. End With
    121. Next
    122. Counter += tmp.Size.Height
    123. BGW.ReportProgress(CInt((Counter / MaxCount) * 100))
    124. Next
    129. Durchschnittsfarbe = Color.FromArgb(255, CByte(dR / MaxCount), CByte(dG / MaxCount), CByte(dB / MaxCount))
    132. End Sub
    133. Private Sub BGW_ProgressChanged(ByVal sender As Object, ByVal e As System.ComponentModel.ProgressChangedEventArgs) Handles BGW.ProgressChanged
    134. RaiseEvent Statusreport(e.ProgressPercentage)
    135. End Sub
    136. Private Sub BGW_RunWorkerCompleted(ByVal sender As Object, ByVal e As System.ComponentModel.RunWorkerCompletedEventArgs) Handles BGW.RunWorkerCompleted
    137. TimeoutTimer.Stop()
    138. TimeoutCounter = 0
    139. If CancelBGW = False Then RaiseEvent Ergebnis(Durchschnittsfarbe)
    140. End Sub
    142. Private Sub TimeoutTimer_Tick(ByVal sender As Object, ByVal e As System.EventArgs) Handles TimeoutTimer.Tick
    144. TimeoutCounter += 1
    146. If TimeoutCounter = TimeoutTime Then
    147. If BGW.IsBusy = True Then
    149. 'BGW.CancelAsync()
    150. CancelBGW = True
    152. TimeoutTimer.Stop()
    153. TimeoutCounter = 0
    154. RaiseEvent Timeout()
    155. End If
    156. End If
    159. End Sub
    161. End Class



    Das Problem ist: Wenn sich das Programm darin aufhängt und nichts mehr funktioniert, lässt sich das Wallpaper nicht mehr ändern, da mein Programm noch Zugriff darauf nimmt.

    Wenn du meine klasse mit der Fastbitmap lib oder lockbits verbesserst sollte die farbe in wenigen sekunden berechnet sein.
    Alternativ könntest du das bild in ein temp-verzeichnis deiner anwendung kopieren, dann wäre das win-wallpaper nicht belastet und du hättest alle zeit der welt für die berechnung

    Dieser Beitrag wurde bereits 2 mal editiert, zuletzt von „FreakJNS“ ()

Facebook
Telefonspende