bitmap pf8bit jedes pixel nur mit einem byte speichern

[etom291272]

guten tag zusammen

Ist es möglich ein 256 farben bitmap so in einem stream zu speichern dass die farbe jedes pixel nur mit einem einzelnen byte representiert wird

ich versuche über scanline einen zeiger auf die linie zu erhalten und lese dann jeden teil des arrays (was ja dann eigentlich das byte sein müsste aus)

Delphi-Quellcode:

P, P2: PByteArray;
...
for x := 0 to Bitm1.Width - 1 do
    begin
      if (P[x] <> P2[x]) then
     begin
        Inc(CountFalsePixel);
        Inc(aLauf);
        Daten[aLauf].Farbe:= P2[x];
...

in daten i sind dann auch werte zwischen 0 und 255 aber ich fürchte dass entspricht nicht der farbe

in anderes bitmap einlesen dann so

Delphi-Quellcode:

  for i:=0 to 200000 do    //Length(Daten) -1 do
  begin
    inc(AktSpalte);
    Image2.Picture.Bitmap.Canvas.Pixels[AktZeile,AktSpalte]:=Daten[i].Farbe;
    if AktSpalte = 100 then inc(AktZeile);
    if AktSpalte>100 then AktSpalte:=-1;
  end;
  ShowMessage('fertig'+' Anzahl Items Liste: '+inttostr(ListBox1.Items.Count));

er zeichnet zwar aber nur rot warscheinlich weil dass dann nur der rotanteil ist
kann man nur mit einem byte eine farbe bei einem pf8bit bitmap abspeichern

[Flocke]

Du benötigst zusätzlich auch die Palette - bei einer 8-Bit-Bitmap ist die Farbe der Pixelwert (0-255) nur ein Index in die Farbtabelle (Palette).

[etom291272]

danke für die schnelle antwort

wo bekomme ich die richtige palette her und wie weise ich dann die entsprechende farbe
dem pixel zu ???

[etom291272]

hat sich erledigt

Delphi-Quellcode:

var
  MeinePalette:HPALETTE;
...
MeinePalette:=Image3.Picture.Bitmap.Palette;

Image4.Picture.Bitmap.Palette:=MeinePalette;
Image4.Picture.Bitmap.Canvas.Pixels[AktZeile,AktSpalte]:=PaletteIndex(Daten[i].Farbe);