Thema: Delphi RGB -> Bitmap

Einzelnen Beitrag anzeigen

Benutzerbild von SirThornberry
SirThornberry
(Moderator)

Registriert seit: 23. Sep 2003
Ort: Bockwen
12.235 Beiträge
 
Delphi 2006 Professional
 
#16

Re: RGB -> Bitmap

  Alt 12. Aug 2006, 11:28
@Neutral General: weißt die die Größe des Bitmaps welches in dem Strea mit "RGBRGBRGB..." steht?
Woher kommt der Stream. Wenn du die Größe weißt geht es so:
Delphi-Quellcode:
var lBitmap: TBitmap;
    lPtr : Pointer;
begin
  lBitmap := TBitmap.Create;
  lBitmap.Width := WidthOfTheStreamBmp;
  lBitmap.Height := HeightOfTheStreamBmp;
  lBitmap.PixelFormat := pf24bit;
  lPtr := lBitmap.ScanLine[lBitmap.Height - 1];
  DeinStream.Read(lPtr^, BytesOfBitmap);
end;
Jens
Mit Source ist es wie mit Kunst - Hauptsache der Künstler versteht's
  Mit Zitat antworten Zitat