Image Pixelweise durcharbeiten

[qb-tim]

Hi,

ich möchte mit Delphi folgendes Zustande bringen:

Das Programm soll eine Bilddatei pixelweise analysieren und die Farbwerte der Pixel in folgendem Array ausgeben:

Array: PicturePixel[X, Y, Farbe]

Umgekehrt soll es auch in der Lage sein aus einem gegebenen PicturePixel-Array eine Bilddatei zu erstellen.

Weitere Angaben: Das Programm soll auch mit True Color Bildern funktionieren;


Für jede Hilfe bin ich äußerst dankbar,

TIM

[SirThornberry]

wie sieht dein bisheriger Quelltext aus? An welcher Stelle hakt es genau?

[MrKnogge]

Schau dir mal TBitmap an. Damit kannst du auf jedes Pixel zugreifen.

[qb-tim]

OK... TBitmap sieht vielversprechend aus, aber wie lade ich z.B. eine gif, jpg oder png Datei?

[bitsetter]

Zitat von qb-tim:

OK... TBitmap sieht vielversprechend aus, aber wie lade ich z.B. eine gif, jpg oder png Datei?

Hallo,

jpg kannst du mit einem TJPEGImage laden. Für gif und png benötigst du noch andere Komponenten wie TPngImage und TGifImage.

[soulies]

hoi,

um das Bild schnell zu durchlaufen - um an die Pixelwerte zu kommen,

würd ich dir  Scanline empfehlen ...


cya

[himitsu]

Zitat:

Array: PicturePixel[X, Y, Farbe]

meinst du nicht PicturePixel: Array[X, Y] of Farbe?

Var PicturePixel: Array of Array of TColor; aber TBitMap und Co. wäre da schon besser.

PS: schau dir mal TPicture an, dieses vereint mehere Bildformate in sich.
TBitMap ist immer drin und die anderen Formate wie TJPEGImage, TPngImage und TGifImage können (wenn gewünscht) auch darüber angesprochen werden.