Bitmap aus Array selbst erstellen und speichern

[Alex_ITA01]

Hallo zusammen,
ich habe folgendes Problem:

Ich habe ein Array of Byte (die Größe des Array's kenne ich).
Jetzt möchte ich mir aus diesen Byte-Informationen eine Bitmap erstellen und diese abspeichern als Datei.


Das ist mein Source bisher:

Delphi-Quellcode:

var
  BitmapInfo: TBitmapInfo;
begin
  ZeroMemory(@BitmapInfo, SizeOf(TBitmapInfo));
  with BitmapInfo.bmiHeader do
  begin
    biSize        := SizeOf(TBitmapInfoHeader);
    biWidth       := 10;
    biHeight      := 10;
    biPlanes      := 1;
    biBitCount    := 24;
    biCompression := BI_RGB;
  end;

  with BitmapInfo.bmiColors[0] do
  begin
    rgbBlue  := 0;
    rgbGreen := 0;
    rgbRed   := 1;
  end;

Wie erstelle ich jetzt eine Bitmap, die ich dann als Datei abspeichern kann?
Ich hoffe ihr könnt mir helfen.
Danke
Alex

[shmia]

Warum so umständlich? Nimm doch einfach die Klasse TBitmap.
So ganz grob:

Delphi-Quellcode:

var
  bm : TBitmap;
begin
  bm := TBitmap.Create;
  bm.Width := 300;
  bm.Height := 200;
  bm.Pixelformat := pf24bit
  bm.Canvas.Pixel[10,20] := clRed;

  bm.SaveToFile(...);

[Alex_ITA01]

Stimmt, werde es gleich mal prüfen.
Danke für den Tip.
MFG Alex