Thema: Delphi RGB -> Bitmap

Einzelnen Beitrag anzeigen

Phantom1

Registriert seit: 20. Jun 2003
282 Beiträge
 
Delphi 10.4 Sydney
 
#18

Re: RGB -> Bitmap

  Alt 12. Aug 2006, 14:30
Das iss normal das das Bild auf dem Kopf steht, wenn man ScanLine[Bmp.Height-1] benutzt.

probiere es mal so hier:
Delphi-Quellcode:
var lBitmap: TBitmap;
    lPtr : Pointer;
    i : Integer;
begin
  lBitmap := TBitmap.Create;
  lBitmap.Width := WidthOfTheStreamBmp;
  lBitmap.Height := HeightOfTheStreamBmp;
  lBitmap.PixelFormat := pf24bit;
  for i:=0 to lBitmap.Height-1 do begin
    lPtr := lBitmap.ScanLine[i];
    DeinStream.Read(lPtr^, lBitmap.Width*3);
  end;
end;
  Mit Zitat antworten Zitat