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.

zusammenfalten · markieren

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);

Irgendwelche Ideen?

Viele Grüße
Zacherl

CreateDIBSection() aus Thread heraus schlägt fehl

CreateDIBSection() aus Thread heraus schlägt fehl

Forumregeln