Programm friert ein.help?

Malte · 17. Februar 2007, 13:20

hi!
Isch schreib gradn kleines prog.....wenn es viel zu tun bekommt friert es ein oder im debugging mode von VB2005 Express Edition kommt die Meldung:
ContextSwitchDeadlock was detected
Message:
The CLR has been unable to transition from COM context 0x1b0f50 to COM context 0x1b10c0 for 60 seconds. The thread that owns the destination context/apartment is most likely either doing a non pumping wait or processing a very long running operation without pumping Windows messages. This situation generally has a negative performance impact and may even lead to the application becoming non responsive or memory usage accumulating continually over time. To avoid this problem, all single threaded apartment (STA) threads should use pumping wait primitives (such as CoWaitForMultipleHandles) and routinely pump messages during long running operations.
-------------
Kann mir einer von euch helfen?

Greetz Malte

Mad Andy · 17. Februar 2007, 14:40

Hi!

Wie wärs mit etwas Quellcode? Wir sind keine Hellseher!

mfG Andy

MrSamurai · 17. Februar 2007, 16:06

Hi Malte und willkommen im Forum !

Jaaa... wie Andy schon sagte, etwas Quellcode wäre schon schön

Ansonsten empfehle ich die Seiten zu besuchen :
blogs.msdn.com/jmstall/archive…ontextSwitchDeadLock.aspx
msdn2.microsoft.com/en-us/library/ms172233.aspx

schöne Grüße
Samu

Malte · 17. Februar 2007, 16:23

VB.NET-Quellcode

Imports System
Imports System.Runtime.InteropServices
Public Class Form2
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Me.FolderBrowserDialog1.ShowDialog()
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Me.ProgressBar1.Visible = True
Me.ListBox1.Visible = True
Me.Button1.Enabled = False
Me.Button2.Text = "In Arbeit..."
Me.Button2.Enabled = False
Me.Button3.Enabled = False
Dim mypath = Me.FolderBrowserDialog1.SelectedPath
Me.BringToFront()
Me.ListBox1.Items.Add("*Dateien unbenannt:*")
For Each foundFiles2 As String In _
My.Computer.FileSystem.GetFiles(mypath, FileIO.SearchOption.SearchAllSubDirectories)
Dim entpatht22 = My.Computer.FileSystem.GetFileInfo(foundFiles2).Name
Dim allF = My.Computer.FileSystem.GetFiles(mypath, FileIO.SearchOption.SearchAllSubDirectories).Count
Dim MyF = MyF + 1
Dim name122 = entpatht22.replace("A", "a")
Dim name222 = name122.replace("B", "b")
Dim name322 = name222.replace("C", "c")
Dim name422 = name322.replace("D", "d")
Dim name522 = name422.replace("E", "e")
Dim name622 = name522.replace("F", "f")
Dim name722 = name622.replace("G", "g")
Dim name822 = name722.replace("H", "h")
Dim name922 = name822.replace("I", "i")
Dim name1022 = name922.replace("J", "j")
Dim name1122 = name1022.replace("K", "k")
Dim name1222 = name1122.replace("L", "l")
Dim name1322 = name1222.replace("M", "m")
Dim name1422 = name1322.replace("N", "n")
Dim name1522 = name1422.replace("O", "o")
Dim name1622 = name1522.replace("P", "p")
Dim name1722 = name1622.replace("Q", "q")
Dim name1822 = name1722.replace("R", "r")
Dim name1922 = name1822.replace("S", "s")
Dim name2022 = name1922.replace("T", "t")
Dim name2122 = name2022.replace("U", "u")
Dim name2222 = name2122.replace("V", "v")
Dim name2322 = name2222.replace("W", "w")
Dim name2422 = name2322.replace("X", "x")
Dim name2522 = name2422.replace("Y", "y")
Dim newFile = name2522.replace("Z", "z")
My.Computer.FileSystem.RenameFile(foundFiles2, newFile & "1")
My.Computer.FileSystem.RenameFile(foundFiles2 & "1", newFile)
If MyF = allF Then
Me.Label6.Text = "READY"
Else
Me.Refresh()
End If
Me.ListBox1.Items.Add(foundFiles2)
Next
If Me.Label6.Text = "READY" Then
Me.ListBox1.Items.Add("*Ordner unbenannt:*")
For Each founddir As String In _
My.Computer.FileSystem.GetDirectories(mypath, FileIO.SearchOption.SearchAllSubDirectories)
Dim entpatht2 = My.Computer.FileSystem.GetDirectoryInfo(founddir).Name
Dim allD = My.Computer.FileSystem.GetFiles(mypath, FileIO.SearchOption.SearchAllSubDirectories).Count
Dim MyD = MyD + 1
Dim name12 = entpatht2.replace("A", "a")
Dim name22 = name12.replace("B", "b")
Dim name32 = name22.replace("C", "c")
Dim name42 = name32.replace("D", "d")
Dim name52 = name42.replace("E", "e")
Dim name62 = name52.replace("F", "f")
Dim name72 = name62.replace("G", "g")
Dim name82 = name72.replace("H", "h")
Dim name92 = name82.replace("I", "i")
Dim name102 = name92.replace("J", "j")
Dim name112 = name102.replace("K", "k")
Dim name122 = name112.replace("L", "l")
Dim name132 = name122.replace("M", "m")
Dim name142 = name132.replace("N", "n")
Dim name152 = name142.replace("O", "o")
Dim name162 = name152.replace("P", "p")
Dim name172 = name162.replace("Q", "q")
Dim name182 = name172.replace("R", "r")
Dim name192 = name182.replace("S", "s")
Dim name202 = name192.replace("T", "t")
Dim name212 = name202.replace("U", "u")
Dim name222 = name212.replace("V", "v")
Dim name232 = name222.replace("W", "w")
Dim name242 = name232.replace("X", "x")
Dim name252 = name242.replace("Y", "y")
Dim newdir = name252.replace("Z", "z")
My.Computer.FileSystem.RenameDirectory(founddir, entpatht2 & "1")
My.Computer.FileSystem.RenameDirectory(founddir & "1", newdir)
If MyD = allD Then
Me.Label5.Text = "READY"
Else
Me.Refresh()
End If
Me.ListBox1.Items.Add(founddir)
Next
End If
If Me.Label5.Text = "READY" And Me.Label6.Text = "READY" Then
Me.Hide()
My.Forms.Form3.Show()
End If
End Sub
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
My.Forms.Form1.Close()
Me.Close()
End Sub
End Class

Mad Andy · 17. Februar 2007, 19:04

Hi!

Welche Zeile wird denn markiert, wenn die Exception geworfen wird?

mfG Andy

Malte · 17. Februar 2007, 20:20

die aktionen wo die Dateien und Ordner unbenannt werden

Agent · 18. Februar 2007, 12:16

Ich kenn mich zwar mit .net nicht so aus, aber ich könnte mir vorstellen, das bei der For Each Schleife bei jedem Durchlauf die GetDirectories Methode ausgeführt wird. Vielleicht einfach vorher in ein Array packen und dann dieses Array durchlaufen. Zumal finde ich es sehr unsauber, wie du die Großbuchstaben in klein umwandelst. Hier legst du gleich 25 Strings an und außerdem gibt es sicher auch eine LCase Funktion wie in VB6. Das alles summiert sich zusammen und könnte deine Fehlermeldung erklären, dass dein Programm sich aufhängt.

Malte · 22. Februar 2007, 07:44

ah...ok ich werde da mal mit dem array probieren.....aber en beispiel währ auch jut gewese^^

Mad Andy · 22. Februar 2007, 08:15

Hi!

Alle Buchstaben in Kleinbuchstaben umwandeln geht in .net so:

VB.NET-Quellcode

Dim String1, String2 as String
String2 = String1.ToLower()

Für Großbuchstaben verwendet man .ToUpper()

mfG Andy

Programm friert ein.help?

Programm friert ein.help?

VB.NET-Quellcode

VB.NET-Quellcode

Ähnliche Themen

2 Benutzer haben hier geschrieben