Auf Pixel mit Pointer zugreifen

[vbinsider]

Erstmal danke für deinen Code.

Aber du ermittelst ja nur Zeiger auf drei der Zeilen. Alles weitere verschwindet in
Antialiasing_4x().

Vielleicht erkläre ich erstmal, was ich überhaupt vorhabe: Mein Programm soll eine BMP-Datei einlesen, Pixel für Pixel mit ScanLine und Pointern. Die Farbwerte sollen zur späteren Weiterverwendung in einem FileStream gespeichert werden und zwar mittels eines Records.

Ungefähr so:

Delphi-Quellcode:

type TPixelData = packed record
      Red,Green,Blue : Byte;
      Count : Integer;
end;

// später dann
var RecFile : TFileStream;
    Bit     : TBitmap;

begin
  Bit:= TBitmap.Create;
  Bit.LoadFromFile('c:\test.bmp');
  RecFile:= TFileStream.Create('c:\blub2.dat',fmOpenWrite);

  // Hier soll dann der Code zum Einlesen stehen

  RecFile.Free;
  Bit.Free;
end;

Im Prinzip will ich dann eine Datei haben, in der diese Records stehen. Dann wird mit diesen Records gerechnet und später soll aus den Informationen in den Records wieder ein Bitmap konstruiert werden, das müsste eigentlich auch mit ScanLine gehen.

Die Frage ist: Wie??

Hoffe, dass ihr jetzt wisst, was ich überhaupt meine.

mfg
vbinsider