Threadsafes TBitmap?

[creality]

Hallo Forum,

meine Frage an Euch lautet: Gibts ein Threadsafes TBitmap? Mir ist bekannt, dass das GDI nicht Threadsafe ist. Man müsste also einen anderen Image Container benutzen nur welchen?

Das GDI Problem tritt auf, wenn in Threads Bitmapoperationen durchgeführt werden. Beim Anfragen nach einem Handle TBitmap.Canvas.Handle wird eine OUT OF SYSTEMRESOURCES EXCEPTION gerissen.

Nach einigen Sekunden krachts hier: [Anzahl der Threads: 2-8]

Delphi-Quellcode:

procedure TWorkerThread.Execute;
var
  I: Integer;
  ResultImage: TBitmap;
begin
  QueryPerformanceFrequency(c);
  FThreadID := GetCurrentThreadId;

  while not Terminated do
    case WaitForSingleObject(FControlSemaphore, 100) of
      WAIT_OBJECT_0:
        begin
          if not (Terminated) and
            (TAMImageCore.GetInstance.FQueueList <> nil) and
            (TAMImageCore.GetInstance.JobList.GetQueueCount > 0) then
          begin
            ResultImage := TBitmap.Create;
            ResultImage.HandleType := bmDIB;
            Synchronize(Self, ThreadStart);
            { begin here -------------------}
            BitBlt(IRGENDEIN_BTMAP.Canvas.Handle, 0, 0, IRGENDEIN_BTMAP.Width, IRGENDEIN_BTMAP.Height, IRGENDEIN_BTMAP.Canvas.Handle, 0, 0, SRCCOPY);
            { end here ---------------------}
            Synchronize(Self, ThreadDone);
            FreeAndNil(ResultImage);
            FreeAndNil(TempQueueItem);
            FreeAndNil(AMImageProcessor);
          end;
        end;
      WAIT_TIMEOUT:
        begin
          OutputDebugString(PChar(Format('Worker [%d] gone to bed.', [FThreadID])));
          Self.Suspend;
        end;
    end;
end;

[QuickAndDirty]

Ich bin nicht der so der Multithreading experte aber soweit ich weiß kannst du das in einer TCriticalsection ausführen.
so das der Thread in dieser nicht unterbrochen wird.

[creality]

Richtig. Das is aber nur ein Beispiel. Eigentlich steht statt BITBLT eine Klasse die Image Analysis durchführt. Das zu Syncen würde keinen Sinn mehr machen...denn dann wäre es keine Multithread Anwendung mehr.

[OlafSt]

Das GDI nicht threadsafe ? Das bezweifle ich sehr. Jede Zeichenoperation auf dem Desktop findet notgedrungen mit dem GDI statt, also auch wenn mehrere Prozesse zugleich wild herumzeichnen. Ohne threadsafety wäre das unmöglich.

Ich tippe auf den Code, der zwischen "Begin here" und "End here" steht - der dürfte nicht threadsafe sein ;)

[Edit]
...wenn es sich denn überhaupt um ein Threadproblem handelt. OUT OF RESOURCES läßt mich annehmen, das du hier >9999 GDI-Handles in deinem Prozeß alloziert hast. Dieses Problem habe ich auch schon gehabt und es führt unter Windows XP zu den absonderlichsten Fehlern...

[Gandalfus]

IRGENDEIN_BTMAP.lock();

[Muetze1]

Das Problem ist eher, das die VCL Grafikfunktionen nicht ansatzweise threadsafe sind. Dadurch kann es sehr gut zu einer solchen EOutOfResources kommen, schon allein aus dem Fakt, dass die VCL diese Exception grundsätzlich schmeisst bei einer abschlägig beantworteten WinAPI GDI Funktion, ohne näher zu schauen, ob es wirklich ein solches Resources Problem ist.

Mit anderen Worten: nutze kein TBitmap sondern direkt die GDI Objekte, also HBITMAP, etc