Threads

Blackn0va · 12. November 2017, 12:40

@RodFromGermany jetzt hab ich so schön für jeden Drucker, Timer einen Thread gebastelt, warum wieder rausschmeißen? Ich will ja nicht das das Programm einfriert wärend er die PDF´s zum Drucker sendet.
Wie kann ich das verstehen?

RodFromGermany · 12. November 2017, 15:14

Blackn0va schrieb:

Wie kann ich das verstehen?

Wenn Dein Code in Post #1 Dein gesamter Thread-Code ist, verfahre so, wie ich es Dir geschrieben habe.
Wenn Du noch weitere Threads hast, solltest Du etwas mehr Code sehen lassen, damit wir sehen können, was tatsächlich so in Deinen Threads passiert.

Blackn0va · 12. November 2017, 15:50

Das ist so: für mein Verständnis (habe es nicht geprüft) verursachen eig alle Methoden oder Funktionen wären sie ausgeführt werden ein freeze, deswegen meine ich, alles in Threads zu packen?
Wird wohl nicht so ganz stimmen

ich hab hab einfach noch einen winzigen Thread gemacht, der einfach nur den Timer1.start() startet

RodFromGermany · 12. November 2017, 15:59

Blackn0va schrieb:

der einfach nur den Timer1.start() startet

Falls das ein Windows.Forms.Timer ist, ist das nicht sinnvoll, denn dieser Timer arbeitet im GUI-Thread.
Wenn Du einen Timer benötigst, der in einem anderen Thread arbeitet, verwende einen System.Threading.Timer, den kannst Du im GUI-Thread starten, aber seine Tick-Events kommen in einem anderen Thread.
Poste mal solch Prozeduren, die die GUI anhalten, dann werden wir sehen, wie das zu lösen ist.

Blackn0va · 12. November 2017, 17:39

Ich hab mal den ganzen code in eine Form ohne namen gepack^

also wenn man nun eine IP von einem Netzwerkdrucker eingibt, das programm startet, läuft das meiner meinung nach rund, weil die 3 Drucker je ein Tread sind.
Einfrieren tut es dann, wenn man die Threads wieder raus nimmt und wieder eine einfache Prozedur macht für das Print Object.

Sobald s.sendfile ausgeführt wird ist das Programm eingefroren bis ale dateien gesendet wurden oder ein Excaption auftritt.

Ich ziehe daraus, das die Form1 , oder die Hauptform schon ein Tread ist, das wusste ich nicht - obwohl es logisch ist wenn man den kopf anmacht.
Ein Thread in Thread macht dann also kein sinn. Bedeutet ich mache 3 klasse und die klassen sind die DruckerThreads, und rufe diese in der Hauptform auf?

Die RichTextBox hab ich jetzt vergessen zu löschen, das hab ich gefüllt anstatt alles an den drucker zu senden (bin nicht im Büro:) )

RodFromGermany · 12. November 2017, 18:17

@Blackn0va Was Du da machst ist Tinnef.
Du startest einen Thread, und das erste, was Du machst, ist, soforz in den MainThread zu invoken.

VB.NET-Quellcode

Dim DruckerRFPThread As New Threading.Thread(AddressOf DruckerRFP)
' ...
Private Sub DruckerRFP()
If Me.InvokeRequired Then
Me.Invoke(Sub() Me.DruckerRFP())
Return
End If

Timer1 ist ein Windows.Forms.Timer, siehe oben.
Fang an und gib Deinem Projekt Option Strict On.

Blackn0va · 12. November 2017, 18:22

Wenn ich Option Strict On mache startet bei mir nichts mehr ^

RodFromGermany · 12. November 2017, 18:45

Blackn0va schrieb:

startet bei mir nichts mehr

Völlig korrekt, denn es sind ja Fehler, die Du zunächst fixen musst.
Für einen cboDrucker_DrawItem() hab ich Dir übrigens in Deinem letzten Thread den korrekten Code gepostet.

Blackn0va · 12. November 2017, 19:05

Verstehe ^,
also läuft soweit wieder, nur hab ich in der ComboBox jeweils den Anfangsbuchstaben

Edit:
jetzt läuft es wieder, nun wieder zu den Threads

Spoiler anzeigen

VB.NET-Quellcode

Imports System.Drawing.Printing
Imports System.IO
Imports System.Net.Sockets
Imports System.Windows
Imports System.Threading
''' <summary>
''' *** Ein Programm, mithilfe man per DragAnd Drop oder OpenfileDialog bis zu 65.000 PDF´s an einen Drucker Senden kann ***
''' </summary>
Public Class Form1
Dim retval As DialogResult
'*** 3 Threads deklarueren ***
Private DruckerHPFThread As Thread
Private DruckerNY77Thread As Thread
Private DruckerRFPThread As Thread
Private ProgressBarThread As Thread
''' <summary>
''' *** Drucken ***
''' </summary>
''' <param name="sender"></param>
''' <param name="e"></param>
Private Sub cmdDrucken_Click(sender As Object, e As EventArgs) Handles cmdDrucken.Click
'*** MEssagebox mit einer returnValue ***
retval = MessageBox.Show("Möchten Sie wirklich Drucken?", "Hinweis", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
'*** Wennn in der Messsagebox Ja geklickt wurde dann.... ***
If retval = vbYes And cboDrucker.SelectedIndex > 0 And ListBox1.Items.Count > 0 Then
'*** Wenn Index 0 gewählt dann Ignorieren, wennn index größer 0 Dann Drucken ***
If cboDrucker.SelectedIndex = 0 Then
'*** RFP ***
ElseIf cboDrucker.SelectedIndex = 1 Then
'*** RFP Backoffice ***
'*** Dem Thread seine Sub zuweisen ***
Dim DruckerRFPThread As New Threading.Thread(AddressOf DruckerRFP)
Dim ProgressBarThread As New Threading.Thread(AddressOf ProgressBar)
DruckerRFPThread.IsBackground = True
DruckerRFPThread.Priority = Threading.ThreadPriority.Normal
DruckerRFPThread.Start()
ProgressBarThread.IsBackground = True
ProgressBarThread.Priority = Threading.ThreadPriority.Normal
ProgressBarThread.Start()
System.Threading.Thread.Sleep(200)
'*** NY77 ***
ElseIf cboDrucker.SelectedIndex = 2 Then
'*** NY77 Backoffice ***
'*** Dem Thread seine Sub zuweisen ***
Dim DruckerNY77Thread As New Threading.Thread(AddressOf DruckerNY77)
Dim ProgressBarThread As New Threading.Thread(AddressOf ProgressBar)
DruckerNY77Thread.IsBackground = True
DruckerNY77Thread.Priority = Threading.ThreadPriority.Normal
DruckerNY77Thread.Start()
ProgressBarThread.IsBackground = True
ProgressBarThread.Priority = Threading.ThreadPriority.Normal
ProgressBarThread.Start()
System.Threading.Thread.Sleep(200)
'*** HPF ***
ElseIf cboDrucker.SelectedIndex = 3 Then
'*** Dem Thread seine Sub zuweisen ***
Dim DruckerHPFThread As New Threading.Thread(AddressOf DruckerHPF)
Dim ProgressBarThread As New Threading.Thread(AddressOf ProgressBar)
DruckerHPFThread.IsBackground = True
DruckerHPFThread.Priority = Threading.ThreadPriority.Normal
DruckerHPFThread.Start()
ProgressBarThread.IsBackground = True
ProgressBarThread.Priority = Threading.ThreadPriority.Normal
ProgressBarThread.Start()
System.Threading.Thread.Sleep(200)
End If
'** Textfeld nach abschiocken an den Drucker wieder leeren ***
Else
MessageBox.Show("Bitte Wählen Sie einen Drucker aus und fügen Sie eine PDF hinzu.", "Hinweis", MessageBoxButtons.OK, MessageBoxIcon.Information)
End If
End Sub
'*** HPF Backoffice ***
Private Sub DruckerHPF()
If Me.InvokeRequired Then
Me.Invoke(Sub() Me.DruckerHPF())
Return
End If
'** Deklaration eines Druckers im Lokalem netzwerk ***
Using s As New Socket(AddressFamily.InterNetwork, SocketType.Stream, ProtocolType.Tcp)
For Each zeile As String In Me.ListBox1.Items
s.Connect("IP VOM DRUCKER", 9100)
'*** Senden e ines Srings an den Drucker ****
s.SendFile(zeile)
Next
Me.ListBox1.Items.Clear()
End Using
End Sub
'*** RFP Backoffice Thread ***
Private Sub DruckerRFP()
If Me.InvokeRequired Then
Me.Invoke(Sub() Me.DruckerRFP())
Return
End If
'** Deklaration eines Druckers im Lokalem netzwerk ***
Using s As New Socket(AddressFamily.InterNetwork, SocketType.Stream, ProtocolType.Tcp)
For Each zeile As String In Me.ListBox1.Items
s.Connect("IP VOM DRUCKER", 9100)
'*** Senden e ines Srings an den Drucker ****
s.SendFile(zeile)
Next
Me.ListBox1.Items.Clear()
End Using
End Sub
'*** NY77 Backoffice Thread ***
Private Sub DruckerNY77()
If Me.InvokeRequired Then
Me.Invoke(Sub() Me.DruckerNY77())
Return
End If
'** Deklaration eines Druckers im Lokalem netzwerk ***
Using s As New Socket(AddressFamily.InterNetwork, SocketType.Stream, ProtocolType.Tcp)
For Each zeile As String In Me.ListBox1.Items
s.Connect("IP VOM DRUCKER", 9100)
'*** Senden e ines Srings an den Drucker ****
s.SendFile(zeile)
Next
Me.ListBox1.Items.Clear()
End Using
End Sub
'*** Thread für die Progressbar die den Timer startet ***
Private Sub ProgressBar()
If Me.InvokeRequired Then
Me.Invoke(Sub() Me.ProgressBar())
Return
End If
Timer1.Start()
End Sub
'*** Fertige Methoden ***
''' <summary>
''' '*** Load ereignis ListBox Füllen, Timer Starten ***
''' </summary>
''' <param name="sender"></param>
''' <param name="e"></param>
Private Sub PDFPrint_Load(sender As Object, e As EventArgs) Handles MyBase.Load
''*** cboBox Befüllen ***
cboDrucker.SelectedIndex = 0
cboDrucker.DrawMode = DrawMode.OwnerDrawFixed
'*** Timer2 Starten ***
Timer2.Start()
End Sub
''' <summary>
''' *** Dateien Hinzufügen ***
''' </summary>
''' <param name="sender"></param>
''' <param name="e"></param>
Private Sub cmdAddFiles_Click(sender As Object, e As EventArgs) Handles cmdAddFiles.Click
Dim OpenFileDialog1 As New OpenFileDialog
'*** Multiselect Aktivieren ***
OpenFileDialog1.Multiselect = True
'*** Filter der Dialogbox ***
OpenFileDialog1.InitialDirectory = (Environment.GetFolderPath(System.Environment.SpecialFolder.Desktop))
OpenFileDialog1.FileName = ""
'*** Wir möchten bitte nur PDF´s sehen ***
OpenFileDialog1.Filter = "PDF (*.pdf)|*.pdf|PDF (*.PDF)|*.PDF"
OpenFileDialog1.FilterIndex = 2
OpenFileDialog1.RestoreDirectory = True
'*** FileDialog anzeigen ***
' OpenFileDialog1.ShowDialog()
Dim result = OpenFileDialog1.ShowDialog()
If result = DialogResult.OK Then
'*** Für jede Datei einen Pfad in die Richtextbox schreiben ***
For Each b As String In OpenFileDialog1.FileNames
'*** Gibt jeweils eine Zeile in der txtxBox aus ***
ListBox1.Items.Add(b)
Next
Else
End If
End Sub
''' <summary>
''' *** Drag and Drop Aktivieren ***
''' </summary>
''' <param name="sender"></param>
''' <param name="e"></param>
Private Sub ListBox1_DragDrop(sender As Object, e As DragEventArgs) Handles ListBox1.DragDrop
'*** Nur PDF´S erlauben bei Drag and Drop***
Dim s() As String = CType(e.Data.GetData("FileDrop", False), String())
For i = 0 To s.Length - 1
If s(i).ToLower().EndsWith(".pdf") Then
ListBox1.Items.Add(s(i))
End If
Next i
End Sub
''' <summary>
''' *** Drag and Drop enable und Effekt ***
''' </summary>
''' <param name="sender"></param>
''' <param name="e"></param>
Private Sub ListBox1_DragEnter(sender As Object, e As DragEventArgs) Handles ListBox1.DragEnter
If (e.Data.GetDataPresent(DataFormats.FileDrop)) Then
e.Effect = DragDropEffects.All
Else
e.Effect = DragDropEffects.None
End If
End Sub
''' <summary>
''' *** Timer für die PrGBar ***
''' </summary>
''' <param name="sender"></param>
''' <param name="e"></param>
Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
'*** Progressbar Value erhöhen um jeweils 1 ***
prgBar.Increment(1)
'*** Wenn Value der ProgressBar 100 erreicht, dann Meldung ausgeben und dateien schicken ***
If prgBar.Value = 100 Then
'*** Timer stoppen ***
Timer1.Stop()
'*** Hinweis das alle dateien an den Drucker gesendet wurden ****
MessageBox.Show("Die Dateien wurden gedruckt.", "Hinweis", MessageBoxButtons.OK, MessageBoxIcon.Information)
'*** Value zurücksetzen ***
prgBar.Value = 0
End If
'*** Prozentangabe im label ***
lblStatus.Text = prgBar.Value & (" %")
End Sub
''' <summary>
''' *** Bei DoppelKlick Markierten eintrag Öffnen ***
''' </summary>
''' <param name="sender"></param>
''' <param name="e"></param>
Private Sub ListBox1_MouseDoubleClick(sender As Object, e As MouseEventArgs) Handles ListBox1.MouseDoubleClick
If ListBox1.SelectedItem Is Nothing = False Then
'*** Ausgewählten index Starten in AdobeReader ***
Process.Start(ListBox1.SelectedItem.ToString())
End If
End Sub
''' <summary>
''' *** Der Zähler für die Anzahl der ListBox einträge ***
''' </summary>
''' <param name="sender"></param>
''' <param name="e"></param>
Private Sub Timer2_Tick(sender As Object, e As EventArgs) Handles Timer2.Tick
'*** Items in der listbox zählen und Ausgeben ***
Dim zähler As Integer = 0
zähler = ListBox1.Items.Count
cmdDrucken.Text = zähler.ToString() + " Dateien Drucken"
If zähler = 0 Then
cmdDrucken.Enabled = False
cmdLeeren.Enabled = False
Else
cmdDrucken.Enabled = True
cmdLeeren.Enabled = True
End If
End Sub
''' <summary>
''' *** Form Closing and Close - Müll einsammeln ***
''' </summary>
''' <param name="sender"></param>
''' <param name="e"></param>
Private Sub PDFPrint_FormClosed(sender As Object, e As FormClosedEventArgs) Handles Me.FormClosed
'*** Wir sammeln den Müll ein ***
GC.Collect()
End Sub
''' <summary>
''' *** Müll wegbringen ***
''' </summary>
''' <param name="sender"></param>
''' <param name="e"></param>
Private Sub PDFPrint_FormClosing(sender As Object, e As FormClosingEventArgs) Handles Me.FormClosing
'*** Wir sammeln den Müll ein ***
GC.Collect()
End Sub
''' <summary>
''' *** Müll wegbringen ***
''' </summary>
''' <param name="sender"></param>
''' <param name="e"></param>
Private Sub cmdLeeren_Click(sender As Object, e As EventArgs) Handles cmdLeeren.Click
'*** Textfeld leeren ***
ListBox1.Items.Clear()
'*** Wir bringen den Müll raus ***
GC.Collect()
End Sub
''' <summary>
''' *** Farblicher Effekt bei dem Drucker ***
''' </summary>
''' <param name="sender"></param>
''' <param name="e"></param>
Private Sub cboDrucker_DrawItem(sender As Object, e As DrawItemEventArgs) Handles cboDrucker.DrawItem
'*** VAriablendeklaration ***
Dim sItem As String = CStr(cboDrucker.Items(e.Index))
Dim b As New SolidBrush(Color.Black)
Select Case e.Index
Case 0
b = New SolidBrush(Color.Red)
Case 1
b = New SolidBrush(Color.Black)
Case 2
b = New SolidBrush(Color.Black)
Case 3
b = New SolidBrush(Color.Black)
End Select
e.DrawBackground()
e.Graphics.DrawString(sItem, e.Font, b, e.Bounds.X, e.Bounds.Y)
e.DrawFocusRectangle()
'*** Text ausgeben ***
'e.Graphics.DrawString(sender.items(e.Index), e.Font, b, e.Bounds.X, e.Bounds.Y)
End Sub
''' <summary>
''' *** Bei Key Down Backspacce Taste Freischalten, wenn diese Gedrückt, dann mMarkierten eintrag löschen ***
''' </summary>
''' <param name="sender"></param>
''' <param name="e"></param>
Private Sub ListBox1_KeyDown(sender As Object, e As KeyEventArgs) Handles ListBox1.KeyDown
If e.KeyCode = Keys.Back Then
'*** Markiertes Item Löschen ***
ListBox1.Items.Remove(ListBox1.SelectedItem)
End If
End Sub
End Class

ist das hier auch noch wichtig? hab ich gerade in einem Video gesehen..

VB.NET-Quellcode

Control.CheckForIllegalCrossThreadCalls = False

RodFromGermany · 12. November 2017, 19:31

Blackn0va schrieb:

ist das hier auch noch wichtig?

Lass das einfach sein, das verleitet zu unsauberer Programmierung.

Blackn0va schrieb:

nur hab ich in der ComboBox jeweils den Anfangsbuchstaben

Dein neuer Code bei mir nicht:

====================
GC.Collect() sollte hier nicht erforderlich sein!

Blackn0va · 12. November 2017, 19:33

Ja :)) ich hab den post editiert

Und denn Müll bring ich auch gerne raus ^

VB.NET-Quellcode

GC.Collect()

Und welche Zeile meinst du?

Blackn0va · 13. November 2017, 09:48

Guten Morgen zusammen,

also, der aktuelle stand ist, das die Anwendung eine PDF an den Drucker sendet, aber bei mehreren Dateien bekomme ich einen laufzeitfehler.

VB.NET-Quellcode

if s.connected = falste then
s.close()

?

Nofear23m · 13. November 2017, 09:51

Hallo

Ist das nicht klar? Wenn du in einer Schleife das zweite mal durchgehst passiert das. Du musst ja entweder nur einmal connecten (ausserhalb des ForEach) oder die Connection vor nochmaligen durchlaufen schliessen.

Grüße
Sascha

PS: Hat das noch was mit dem Thema zu tun?

Blackn0va · 13. November 2017, 09:57

Doch klar.. oh man ^
Nein ich glaube nicht das das noch mit dem Thema zu tun hat

danke für die Hilfe !

Nofear23m · 13. November 2017, 10:26

Blackn0va schrieb:

Doch klar.. oh man ^

Haha, ich kenn das. Oft verheddert man sich und sieht offensichtliches nicht obwohl man drei mal nachsieht.

Grüße

Blackn0va · 13. November 2017, 11:45

Aber jetzt, ich hab hier einen Code aus dem Internet Kopiert, das sind 2 Threads, einmal ein zähler der in einem Label ausgegeben wird von 0 - 1000 und der 2. Thread ist die ProgressBar 0 - 10000

Ich glaube das ist ein gutes beispiel für den Falschen aufruf eines Threads, was Ihr ständig meint, oder?

Wie wäre dann der Aufruf zu formulieren?

Spoiler anzeigen

VB.NET-Quellcode

Option Strict On
Imports System.Threading
Public Class Form1
Dim aufgabe1 As System.Threading.Thread
Dim aufgabe2 As System.Threading.Thread
Private Sub zaehler()
If Me.InvokeRequired Then
Me.Invoke(Sub() Me.zaehler())
End If
Dim i As Integer = 0
Do Until i = 1001
lbl1.Text = CStr(i)
i = i + 1
Me.Refresh()
Loop
End Sub
Private Sub pb()
If Me.InvokeRequired Then
Me.Invoke(Sub() Me.pb())
End If
Dim ii As Integer = 0
Do Until ii = 10000
ProgressBar1.Value = ii
ii = ii + 1
Loop
End Sub
Private Sub cmdAufgabe1_Click(sender As Object, e As EventArgs) Handles cmdAufgabe1.Click
aufgabe1 = New System.Threading.Thread(AddressOf zaehler)
aufgabe1.Start()
End Sub
Private Sub cmdAufgabe2_Click(sender As Object, e As EventArgs) Handles cmdAufgabe2.Click
aufgabe2 = New System.Threading.Thread(AddressOf pb)
aufgabe2.Start()
End Sub
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
Control.CheckForIllegalCrossThreadCalls = False
End Sub
End Class

Denn hier werden die Threads schön sauber nacheinander abgearbeitet.

Nofear23m · 13. November 2017, 12:24

Blackn0va schrieb:

CheckForIllegalCrossThreadCalls

Gaaanz schlecht.

Vorallem, Beispiel hin oder her, die Sinnhaftigkeit soll mir mal wer erklären.

Blackn0va · 13. November 2017, 12:25

Ja das hat sich schon so Böse gelesen

aber das hatten wir gestern schon ^

Edit:

Aber die Frage für mich ist, wie muss ich die Threads nun aufrufen, damit sie auch als Threads behandelt werden und kein Illegaler aufruf stattfindet ^

RodFromGermany · 13. November 2017, 12:50

@Blackn0va Überlege Dir zunächst, was in Deinem Thread passieren soll, jedenfalls keine GUI-Interaktion, da knallt es nämlich.
In Deinem Programm sehe ich keine Notwendigkeit, mit Threads zu arbeiten :!:

Blackn0va · 13. November 2017, 14:11

Ja das weiß ich , hatte ich am anfang auch erwähnt das die Threads nicht wirklich sinnvoll sind, aber eine möglichkeit bissl zu lernen ^ weil wenn ich mir mein iPhone ohne Threads vorstelle, gehen die lichter aus ^

Threads

Blackn0va schrieb:

Blackn0va schrieb:

VB.NET-Quellcode

Blackn0va schrieb:

VB.NET-Quellcode

VB.NET-Quellcode

Blackn0va schrieb:

Blackn0va schrieb:

VB.NET-Quellcode

VB.NET-Quellcode

Blackn0va schrieb:

VB.NET-Quellcode

Blackn0va schrieb:

Tags

Ähnliche Themen

5 Benutzer haben hier geschrieben