Dim MyTaskCounter As Integer = 0
 
'DT ist ein Object vom Typ DataTable und enthält alle Informationen über die 
' Bilder und gibt mehrere tausend Datensätze zurück
 
   For Each DR As DataRow In DT.Rows
      'Counter für das begrenzen der gleichzeitigen Tasks     
      Do Until MyTaskCounter < 50
         Application.DoEvents()
      Loop
 
      MyTaskCounter += 1
 
      Dim t As Task = Task.Run(Sub()
            Set_ImageHash(DR)
            MyTaskCounter -= 1
      End Sub)
      tasks.Add(t)
   Next

'...        
For Each DR As DataRow In DT.Rows
            Do Until MyTaskCounter < 100
                Application.DoEvents()
            Loop
 
            RunAsync(DR)
 
        Next
 
    End Sub
 
 
    Async Sub RunAsync(DR As DataRow)
 
        Try
            MyTaskCounter += 1
            Await Task.Run(Sub()
                               Set_ImageHash(DR)
                           End Sub)
        Catch ex As Exception
        End Try
        MyTaskCounter -= 1
    End Sub

Joachim

Joachim

Zitat:

Ich dachte eigentlich nicht dass die Datenbank das Problem ist. Die Funktion bekommt einen Datensatz. Dieser enthält Informationen über ein Bild, das irgendwo liegt. Das kann ein Lokaler Ort im Netzwerk sein oder (in 90%) eine Internet Adresse die per http oder FTP abgerufen wird.

Joachim

          Dim wc As New Net.WebClient()
                If DR("SourceUser") <> "" Then
                    wc.UseDefaultCredentials = True
                    wc.Credentials = New Net.NetworkCredential(DR( _
                      "SourceUser").ToString, DR("SourcePass").ToString)
                End If
                Using stream As New IO.MemoryStream(wc.DownloadData(DR( _
                  "SourceUrl").ToString))
 
                    originalBild = Image.FromStream(stream)
 
                End Using
 
'... verarbeite(originalBild)

Joachim

    Dim SourceUrls(9) As Uri '10 Urls
    Dim PictureBoxen(9) As PictureBox '10 Pictureboxen
 
    Private Async Sub Button1_Click(sender As Object, e As EventArgs) Handles _
      Button1.Click
      Button1.Enabled = False
      Await LadeBilder() 'Download
      Button1.Enabled = True
    End Sub
 
    Private Async Function LadeBilder() As Task
      Try
        '----------------------------------------------------
        'Download definieren, mit Index
        Dim td As New Dictionary(Of Task(Of Byte()), Integer)
        For i = 0 To 9
          td.Add(New Net.Http.HttpClient().GetByteArrayAsync(SourceUrls(i)), i)
        Next
        Dim tl = td.Select(Function(x) x.Key).ToList 'Taskliste
        '----------------------------------------------------
        'Download ausführen
        While tl.Count > 0
          Dim tk = Await Task.WhenAny(tl) 'Task
          Dim ba = Await tk 'Bildbytes
          tl.Remove(tk)
          '... verarbeite (originalBild), Beispiel:
          Dim i = td(tk) 'Bildindex
          PictureBoxen(i).Image = Image.FromStream(New IO.MemoryStream(ba))
        End While
        '----------------------------------------------------
      Catch ex As Exception
        '...
      End Try
    End Function

Joachim