CreateDIBSection() aus Thread heraus schlägt fehl

[Zacherl]

Hey,

ich habe es nun hinbekommen ein Bitmap per API zu erstellen und kann dieses auch auf der Festplatte speichern. Jetzt habe ich ein kurioses Problem. Und zwar schlägt CreateDIBSection() in unregelmäßigen Abständen fehl, wenn ich als Farbtiefe 8 bit verwende. Das ausschließlich bei 8 bit. Höhere oder tiefere Werte funktionieren einwandfrei.

Edit: Habe das mal weiter verfolgt und festgestellt, dass der Aufruf nur dann fehlschlägt, wenn er aus einem Thread heraus erfolgt. Hierbei ist es egal, ob der Thread die Delphi Kapselung TThread verwendet oder per CreateThread() oder BeginThread() erstellt wurde.

Der ErrorCode ist, wenn es fehlschlägt immer: ERROR_INVALID_PARAMETER.

Delphi-Quellcode:

// Canvas erstellen
  FCanvas := CreateCompatibleDC(0);
  // Bitmap erstellen
  FillChar(BMI, SizeOf(BMI), #0);
  with BMI do
  begin
    bmiHeader.biSize := SizeOf(BITMAPINFOHEADER);
    bmiHeader.biWidth := FWidth;
    bmiHeader.biHeight := FHeight;
    bmiHeader.biPlanes := 1;
    bmiHeader.biBitCount := PixelFormatToBitCount(FFormat);
    bmiHeader.biCompression := BI_RGB;
    bmiHeader.biSizeImage := 0;
    bmiHeader.biXPelsPerMeter := 0;
    bmiHeader.biYPelsPerMeter := 0;
    bmiHeader.biClrUsed := 0;
    bmiHeader.biClrImportant := 0;
  end;
  FBitmap := CreateDIBSection(FCanvas, BMI, DIB_RGB_COLORS, FMemory, 0, 0);
  if FBitmap = 0 then
  begin
    WriteLn(SysErrorMessage(GetLastError);
  end;
  SelectObject(FCanvas, FBitmap);

:arrow: Irgendwelche Ideen?

Viele Grüße
Zacherl

[Zacherl]

Ich konnte das Problem nun weiter eingrenzen und habe festgestellt, dass der Aufruf nur dann fehlschlägt, wenn er aus einem Thread heraus aufgerufen wird. Was läuft da schief?

[Zacherl]

Ich finde einfach nicht die Fehlerursache. Kennt sich hiermit wirklich niemand aus? :(

[turboPASCAL]

Könnte es nicht sein das CreateDIBSection einfach nicht Threadsicher ist ?
( mir war so, als hät ich da mal etwas gelesen :gruebel: )

[Zacherl]

Das wäre höchst ungut, da in meiner Konsolenanwendung komischerweise keine Thread Synchronization funktioniert :?

[turboPASCAL]

Kannst du mal beschreiben was du mit deinem Programm machen möchtest ?

[SirThornberry]

Also das eine Api-Funktion nicht Threadsave ist währe mir neu. Das man Objekte (im Sinne der WIN-API) nicht einfach von einem Thread in einem anderen Thread nutzen kann wäre noch glaubhaft. Aber das man bestimmte API-Funktionen nur im zuerst erstellten Thread eines Prozesses verwenden kann habe ich noch nie gehört.
Das "nicht Threadsave" kenne ich so eigentlich nur von der Delphi-VCL durch Verwendung globaler Objekte die im Hauptthread initialisiert wurden (und somit an diesen Thread gebunden sind) oder eben das etwas nicht gegen den gleichzeitigen Zugriff von mehreren Threads aus abgesichert ist.

[Zacherl]

Kanns mir irgendwie auch nicht vorstellen, dass die API aus einem Thread heraus nicht funktionieren soll. Ich will im Programm eigentlich nur einen Screenshot erstellen und speichern können:
http://www.delphipraxis.net/152315-w...speichern.html

Dies habe ich ja mittlerweile nun hinbekommen. Allerdings soll das Ganze in der Konsolenanwendung nun periodisch in einem Thread geschehen, wobei es aber sein kann, dass sich die Bildschirmauflösung oder Farbtiefe ändert. Deshalb scheidet ein Erzeugen des Bitmaps vor dem Thread-Start leider aus.