aus TImage Pixelwerte auslesen

[EccoBravo]

Hallo,

kann ich aus einem TImage Pixelwerte auslesen (zB. Pixelwert für x=7 und y=9 ...)?
Wenn ich ein Bild im TImage habe, will ich die Pixelwerte entlang der 9 Pixelzeile auslesen.
Ebenfalls will ich die Stretch Funktion (Image1.stretch:=true nutzen, um große Bildmatrizen in kleine Bildmatrizen umzurechnen.
Falls es mit dem TImage nicht gehen sollte, womit kann ich dieses sonst machen?

Grüße

E. B.

[Fussball-Robby]

Zitat von EccoBravo:

kann ich aus einem TImage Pixelwerte auslesen (zB. Pixelwert für x=7 und y=9 ...)?

Guck dir mal TCanvas.Pixels[x,y] an.

Mfg

[elundril]

wobei scanline die schnellere methode ist wenn man viele pixel auslesen will.

lg elundril

[Muetze1]

Zitat von elundril:

wobei scanline die schnellere methode ist wenn man viele pixel auslesen will.

Welche aber nur bei einem TBitmap vorhanden ist und da nach TImage gefragt wurde, kann dies von einem TMetafile bis zu einem TPingObject alles mögliche sein...

[elundril]

ja aber bei TImage gibt ne property TBitmap mit der man auf das bild zugreifen kann soweit ich weiß.

lg elundril

[Muetze1]

Zitat von elundril:

ja aber bei TImage gibt ne property TBitmap mit der man auf das bild zugreifen kann soweit ich weiß.

Nur, wenn auch eine TBitmap Instanz drinne ist...

Somit: nur wenn es ein Bitmap ist.

[Matze]

Hallo,

da man hier, wie erwähnt, ohne weiteres nicht direkt mit dem TImage arbeiten kann, würde ich das Bild in ein TBitmap einlesen und damit weiterarbeiten. Das hat auch den positiven Nebeneffekt, dass es schneller gehen müsste, da der Zugriff auf die VCL relativ langsam ist, vor allem, wenn man hunderte bzw. tausende Zugriffe hat, was bei großen Bildern der Fall wäre:

Delphi-Quellcode:

var
  Bmp: TBitMap;
begin
  Bmp := TBitMap.Create;
  try
    Bmp.Assign(Image1.Picture.Graphic);

    // nun enthält das TBitmap die Grafik aus dem TImage und du
    // kannst hier mittels "Bmp.Canvas.Pixels[]" auf die einzelnen
    // Farbwerte der Pixel zugreifen
  finally
    FreeAndNil(Bmp);
  end;
end;

Grüße

[EccoBravo]

Ja, prima,

der vorgeschlagene Code funktioniert wunderbar.

Danke

E. B.

PS.:
die von Fussball-Robby in der Signatur angehangene Antimonie ist genial.

[EccoBravo]

Danke Matze,

Habe nun ein Bild im TImage dem BMP zugewiesen.
Nun will ich über TCanvas.Pixels einzelne Pixel Farbwerte auslesen.
Dabei wundere ich mich, denn die ausgelesenen Farbwerten entsprechen nicht dem angezeigten Bildinhalt.

(Bevor ich das Bild über den TCanvas.Pixels untersuchte, habe ich es mit Image1.Width und Image1.Height in der Größe verändert.)
(Warum dieser Zirkus?
Ich will ein 800x800 Pixelbild in ein 512x512 Pixelbild zur weiteren Verarbeitung umwandeln, da ich nicht unbedingt eine bikubische Bildtransformation programmieren will.)

Nun meine Frage:
Welcher Fokus.Cursor ist mit X und Y in TCanvas.Pixels[x,y] zum Farbauslesen des Bildes gemeint, der des aktuell angezeigten Bildes (512x512) oder der des Originalbildes (800x800), das ich ursprünglich in das TImage.Picture eingelesen habe?

Danke für Hilfe, Ideen und Tips

E. B.

PS.:
Und wie mache ich das, wenn ich in dem TImage (welches ich hier gerade knete) einen Bildpunkt zur Markierung/Kontrolle hinein setzten will?

[Matze]

Hallo,

möchtest du manuell eine Funktion programmieren um die Bildgröße zu ändern?
Das kannst du beispielsweise mit BitBlt recht einfach machen.

Grüße