Bisher, bei den Dingen die ich bisher so in Threads gemacht habe, und Bitmaps waren dabei, war es eigentlich immer so, dass Ressourcen die ich in einem Thread-Kontext nutzen will, diese auch dort erzeugt werden müssen. Das heisst insbesondere bei der Delphi-RTL-Implementierung "TThread": Etwas, was im Konstruktor erzeugt wird, ist NICHT im Thread-Kontext, sonderm im Hauptthread erzeugt. Nur Dinge die in der Execute-Methode erstellt werden sind auch wirklich im Thread-Kontext, und gerade bei so manchen Systemressourcen, und insbesondere bei GDI-Zeug scheint das recht wichtig zu sein. (Ich habe mir den Code jetzt nicht angeschaut um zu wissen ob das hier zutrifft, ich sollte eigentlich schleunigst ins Bett.) Und so lange man ein Bitmap in Thread-Kontext im selben Kontext auf die Platte schreibt, und nicht etwa noch fix auf einem Formular darstellen will, muss man sich imho nichtmals um irgendwelche Synchronisierungen kümmern.
Meine Erfahrungen decken sich hier nicht mit Marcos Aussage.

Zitat von Medium:

Bisher (...) war es eigentlich immer so, dass Ressourcen die ich in einem Thread-Kontext nutzen will, diese auch dort erzeugt werden müssen. (...) Nur Dinge die in der Execute-Methode erstellt werden sind auch wirklich im Thread-Kontext, und gerade bei so manchen Systemressourcen, und insbesondere bei GDI-Zeug scheint das recht wichtig zu sein. (...) Und so lange man ein Bitmap in Thread-Kontext im selben Kontext auf die Platte schreibt, und nicht etwa noch fix auf einem Formular darstellen will, muss man sich imho nichtmals um irgendwelche Synchronisierungen kümmern. (...)

Den Code hatte ich im ersten Post angehängt.
Aus diesen Gründe läuft es im Prinzip so, dass das Hauptprogramm die Bitmaps als Dateien im Temp-Verzeichnis ablegt. Dem Thread übergebe ich jeweils nur den Dateinamen als String.
In Execute erzeuge ich dann in jeder Schleife ein Bitmap. Verkürzt sieht das so aus:

zusammenfalten · markieren

Delphi-Quellcode:

Procedure TWorkThread.Execute;
Var
   I : Integer;
   aBMP : TBitmap;
Begin
   While (Not Terminted) Do
   Begin
      For I:=0 To Pred(Length(fArray)) Do
      Begin
         If (Not fArray[I].Done) Then
         Begin
            fArray[I].Done:= True;
            aBMP:= TBitmap.Create;
            Try
               aBMP.LoadFromFile(fArray[I].FileName);
               With TPngImage.Create Do
               Try
                  Assign(aBMP); // Bild übernehmen
                  SaveToFile(fArray[I].DestName);
               Finally
                  Free;
               End;
            Finally
               aBMP.Free;
            End;
         End;
      End;
   End;
End;