CreateBitmap

[omata]

Gut, ich hatte ein bißchen experimentiert und bekomme etwas gezeichnet. Allerdings sieht das nicht so aus wie mein Bild, weil ich dein kompischen Konzept nicht nachvollziehen kann. Aber vielleicht hilft es dir, weil du die Parameter für CreateBitmap besser kennst...

Delphi-Quellcode:

var Datei:TFileStream;
    Buffer:Pointer;
    bmp:HBITMAP;
    _hDC, hDC:windows.hDC;
    nWidth, nHeight:integer;
begin
  Datei:=TFileStream.Create('Bild.bmp', 0);
  try
    GetMem(Buffer, Datei.Size);
    Datei.ReadBuffer(Buffer^, Datei.size);
    _hDC := GetDC(Self.Handle);
    hDC := CreateCompatibleDC(_hDC);
    bmp := CreateBitmap(100, 100, 1, GetDeviceCaps(hDC, BITSPIXEL), Buffer);
    SelectObject(hDC, bmp);
    BitBlt(_hDC, 0, 0, 100, 100, hDC, 0, 0, cmSrcCopy);
    FreeMem(Buffer, datei.Size);
  finally
    Datei.free;
  end;
end;

MfG
Thorsten