BitMap zeichnen per API

[turboPASCAL]

Eine Möglichkeit könnte ich mir so vorstellen:

Delphi-Quellcode:

var
  theBitmapBitArray: array of dword;  // das array vom OleVariant

procedure TForm ...;
var
  theBitmap: HBITMAP;
  pBmpBits: Pointer;
  bi: BITMAPINFO;

  bmpWidth: integer;
  bmpHeight: integer;

begin
  bmpWidth  := 320;
  bmpHeight := 240;

  setlength(theBitmapBitArray, bmpWidth * bmpHeight);

  // ----------------------------------------------------------- //

  ZeroMemory(@bi, sizeof(BITMAPINFO));
  with bi.bmiHeader do
  begin
    biSize := sizeof(BITMAPINFOHEADER);
    biWidth := bmpWidth;
    biHeight := -bmpHeight;
    biCompression := BI_RGB;
    biBitCount := 32;
    biPlanes := 1;
    biXPelsPerMeter := 0;
    biYPelsPerMeter := 0;
    biClrUsed := 0;
    biClrImportant := 0;
  end;

  theBitmap := CreateDIBSection(0, bi, DIB_RGB_COLORS, pBmpBits, 0, 0);

  pBmpBits := @theBitmapBitArray[0];

  SetDIBits(0, theBitmap, 0, bi.bmiHeader.biHeight * -1, pBmpBits, bi, DIB_RGB_COLORS);

  image1.Picture.Bitmap.Handle := theBitmap;
  image1.Refresh;
end;

[sintronic86]

Vielen Dank für die vielen Antworten.

Da ich aber auf dem "Zu-Fuss"-Weg nicht wirklich weitergekommen bin, habe ich mich einmal mit der Funktion StretchDIBits() genauer auseinander gesetzt.
Und siehe da: Es funktioniert.

Code:

  if FCanDraw then 
  begin
    TmpBitMap        := TBitmap.Create;
    TmpBitMap.Width  := FWidth_Cam;
    TmpBitMap.Height := FHeight_Cam;


    test2 := AOleVariant; 

    SetStretchBltMode(TmpBitMap.Canvas.Handle, COLORONCOLOR);
    StretchDIBits(TmpBitMap.Canvas.Handle,
                  0,
                  0,
                  FWidth_Cam,
                  FHeight_Cam,
                  0,
                  0,
                  FWidth_Cam,
                  FHeight_Cam,
                  test2,
                  TmpBI,
                  DIB_RGB_COLORS,
                  SRCCOPY);



    AImage.Picture.Assign(TmpBitMap); 
    TmpBitMap.Free; 
  end
  else
  begin
    AImage.Picture.Assign(NIL);
  end;