Einzelnen Beitrag anzeigen

Benutzerbild von sx2008
sx2008

Registriert seit: 15. Feb 2008
Ort: Baden-Württemberg
2.332 Beiträge
 
Delphi 2007 Professional
 
#3

AW: MemoryStream / Bitmap header

  Alt 4. Jan 2014, 04:39
Ich habe mein selbst erstelltes Bitmap jetzt in einem Memory Stream kopiert.
Wie hast du das gemacht? Sourcecode?
Ich hätte es so gemacht:
Delphi-Quellcode:
var
  bm : TBitmap;
  Line : PRGB32Array;
  y : integer;
begin
  bm := TBitmap.Create;
  try
    bm.PixelFormat := pf32bit;
    bm.Width := ...;
    bm.Height := ...;
    ZeigeraufZeilenDaten := ...;
    for y := 0 to bm.Height-1 do
    begin
      Line := bm.Scanline[y];
      Move(ZeigeraufZeilenDaten^, Line^, bm.Width*sizeof(integer));
      // ZeigeraufZeilenDaten auf nächste Zeile der Quelldaten bewegen
    end;
    bm.SaveToFile('C:\Test.bmp');
    // oder alternativ
    bm.SaveToStream(meinMemoryStream);
  finally
    bm.Free;
  end;
fork me on Github
  Mit Zitat antworten Zitat