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