Ich hab endlich ein Workaround!
Delphi-Quellcode:
GetMem(buf1, 2*biSizeImage);
buf2 := Pointer(Integer(buf1) + biSizeImage);
Das ich da nicht schon früher draufgekommen bin...
Ich kapier den Fehler aber immer noch nicht. Es hängt jedenfalls mit der Größe des reservierten Speichers zusammen.
Mit einem 100x100 Pixel Bild funktionierts immer bei 200x300 klappts nurnoch zu ca. 50%, und bei 300x300 gar nicht mehr.
Hier ist der gesamte Test-Quellcode:
(meine Test-Anwendung besteht nur aus einem Knopf mit diesem Code)
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
var
compHBmp: HBITMAP;
compDC, deskDC: HDC;
ssBmpInfo: TBitmapInfo;
buf1, buf2: array of Byte;
begin
deskDC := GetWindowDC(GetDesktopWindow);
ZeroMemory(@ssBmpInfo, SizeOf(ssBmpInfo));
with ssBmpInfo.bmiHeader do begin
biSize := SizeOf(TBitmapInfoHeader);
biWidth := 300;
biHeight := 300;
biPlanes := 1;
biBitCount := 24;
biSizeImage := biHeight * (((biWidth * biBitCount) + 31) and not 31);
compDC := CreateCompatibleDC(deskDC);
compHBmp := CreateCompatibleBitmap(deskDC, biWidth, biHeight);
SelectObject(compDC, compHBmp);
BitBlt(compDC, 0, 0, biWidth, biHeight, deskDC, 0, 0, SRCCOPY);
SetLength(buf1, biSizeImage);
SetLength(buf2, biSizeImage);
if GetDIBits(compDC, compHBmp, 0, biHeight, buf1, ssBmpInfo, DIB_RGB_COLORS) = 0 then begin
ShowMessage('buf1');
end;
if GetDIBits(compDC, compHBmp, 0, biHeight, buf2, ssBmpInfo, DIB_RGB_COLORS) = 0 then begin
ShowMessage('buf2');
end;
end;
end;
Hier bekomme ich die Meldung 'buf2'.
Setze ich biWidth und biHeight auf 100 funktionierts...
Ob es funktioniert oder nicht entscheidet sich beim Programmstart. Das heißt, wird das Programm gestartet funktioniert es entweder immer oder nie, egal wie oft man den Knopf drückt.
Ist doch komisch, oder ???