GetMem Problem

[blablab]

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 ???