vb@rchiv
VB Classic
VB.NET
ADO.NET
VBA
C#
Mails senden, abrufen und decodieren - ganz easy ;-)  
 vb@rchiv Quick-Search: Suche startenErweiterte Suche starten   Impressum  | Datenschutz  | vb@rchiv CD Vol.6  | Shop Copyright ©2000-2025
 
zurück

 Sie sind aktuell nicht angemeldet.Funktionen: Einloggen  |  Neu registrieren  |  Suchen

VB.NET - Fortgeschrittene
Re: Benachrichtigung an eigenständigen Threads 
Autor: Messiahs
Datum: 17.08.07 17:31

Danke für den Tipp !

In vb würde das ganze dann in etwa so aussehen:

Friend Function GetDistItem() As CWorkItem
Dim nextWi As CWorkItem = Nothing
Do
SyncLock __distQueue.SyncRoot
If __distQueue.Count > 0 Then
nextWi = CType(__distQueue.Dequeue(), CWorkItem)
End If
End SyncLock
If nextWi Is Nothing Then
If CTrace.TraceOn Then
CTrace.Trace1("DistThread waiting for work", "Distrib")
End If
__distEvent.WaitOne()
If CTrace.TraceOn Then
CTrace.Trace1("DistThread received work", "Distrib")
End If
End If
Loop While nextWi Is Nothing And Not _app.CloseDown
If _app.CloseDown Then
If CTrace.TraceOn Then
CTrace.Trace1("DistThread woken for system closedown", "Distrib")
End If
Else
If CTrace.TraceOn Then
CTrace.Trace1("DistThread item obtained from queue", "Distrib")
End If
End If
Return nextWi
End Function 'GetDistItem

' GetDistItem()
Private Sub postDistItem(ByVal wi As CWorkItem)
SyncLock __distQueue.SyncRoot
If CTrace.TraceOn Then
CTrace.Trace1("Posting work item for DistThread", "Distrib")
End If
__distQueue.Enqueue(wi)
If __distQueue.Count > NWStats.MaxQueuedDistItems Then
NWStats.SetMaxQueuedDistItems(__distQueue.Count)
End If
If __distQueue.Count = 1 Then
If CTrace.TraceOn Then
CTrace.Trace1("Waking up DistThread", "Distrib")
End If ' Post (maybe) waiting distribution thread
__distEvent.Set()
End If
End SyncLock
End Sub 'postDistItem ' postDistItem()
alle Nachrichten anzeigenGesamtübersicht  |  Zum Thema  |  Suchen

 ThemaViews  AutorDatum
Benachrichtigung an eigenständigen Threads825Messiahs16.08.07 19:05
Re: Benachrichtigung an eigenständigen Threads564Messiahs16.08.07 21:46
Re: Benachrichtigung an eigenständigen Threads554Melkor16.08.07 21:55
Re: Benachrichtigung an eigenständigen Threads560Messiahs17.08.07 17:31
Re: Benachrichtigung an eigenständigen Threads1.067Melkor17.08.07 18:32
Re: Benachrichtigung an eigenständigen Threads590ModeratorDaveS17.08.07 22:21
Re: Benachrichtigung an eigenständigen Threads557Messiahs17.08.07 23:55

Sie sind nicht angemeldet!
Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden.

Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  GesamtübersichtSuchen 

nach obenzurück
 
   

Copyright ©2000-2025 vb@rchiv Dieter Otter
Alle Rechte vorbehalten.
Microsoft, Windows und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein.

Diese Seiten wurden optimiert für eine Bildschirmauflösung von mind. 1280x1024 Pixel