Ich habe jetzt was schnelles gedunden:
Delphi-Quellcode:
for Y := 0 to Image1.Height-1 do
ListBox1.Items.Add('');
G.MaxValue := Image1.Height-1;
for Y := 0 to Image1.Height-1 do begin
G.Progress := Y;
S := '';
for X := 0 to Image1.Width-1 do begin
Insert('|'+ColorToString(Image1.Canvas.Pixels[X, Y]), S, Length(S)-1);
end;
ListBox1.Items[Y] := S;
end;
G ist eine Gauge, damit ich weiß, wo er gerade steckt.
Das ganze hat einen großen Nachteil: ich kann damit nur BITMAPS "konvertieren".
Wie könnte ich es am geschicktesten anstellen, auch JPGS rein zu bringen.
Danke Sanchez, aber das mit ScanLine ist ganzschön schwierig, wobei ich ja Anfänger bin und mich mit Arrays noch nicht richtig beschäftigt habe, und mit Byytes und Pointern erst recht nicht!
Eine Frage noch:
Wie kann ich das ganze schnell und zuverlässig wieder umwandeln, denn sobald mal ein richtiges rot dabei ist, würde es ja clred heißen, und schon wäre es micht mehr genau 9 bzw. mit Trenner 10 Zeichen lang?.