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:

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:

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:

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

[Muetze1]

Auch möchte ich hier nochmal darauf hinweisen, dass TImage.Width und TImage.Height ist die Grösse der Komponente, nicht des Bildes!. Wenn AutoSize auf true steht, dann passt sich das TImage immer der Grösse des Bildes an, aber das ist eine Ausnahme. Wenn du also die Bildgrösse haben bzw. verändern willst, dann nutze TImage.Picture.Width und TImage.Picture.Height!

[EccoBravo]

Danke Muetze,

so tragt Ihr successive zu meinem Wissen bei, ich danke Euch.
Hatte nämlich in der Vergangenheit die Bildgrößen mit einem eigenen bilinearen Formalismus transformiert. Dieser hatte hier und da so seine Probleme. Und so suchte ich nach bereits vorhandenen Mitteln.

Also nochmals Danke

E. B.

[EccoBravo]

Danke und

Schiete, Kommando zurück,

TImage.Picture.Width und TImage.Picture.Height haben Nur-Lesen-Eigenschaft.
Schade - war mal ne Idee - geht aber nicht.

Gibt es nicht irgend eine andere Komponente / Tool zur (bikubischen) Bild-Transformation
(AAAxBBB --> 512x512)?

Danke usw. E. B.

[DeddyH]

StretchBlt?

[Muetze1]

Zitat:

Zitat von EccoBravo

TImage.Picture.Width und TImage.Picture.Height haben Nur-Lesen-Eigenschaft.
Schade - war mal ne Idee - geht aber nicht.

Och mein Gott, ein Blick in die Hilfe und die Sache wäre auch gegessen. Wodran es liegt wurde gesagt, somit sollte die Lösung doch nicht so schwer zu finden sein.

Mit anderen Worten: Füge noch ein Graphic. vor dem Width und Height ein.

[EccoBravo]

Hallo Muetze1,

Danke, Dein Vorschlag (musste erst 2x hingucken) ist genial. I'll do it!
Bin eben kein professioneller Informatiker sondern nur ein "Freizeitprogrammierer"
(-Ammatör-).

Nochmals vielen Dank und Grüsse
E. B.