Einzelnen Beitrag anzeigen

Benutzerbild von Matze
Matze
(Co-Admin)

Registriert seit: 7. Jul 2003
Ort: Schwabenländle
14.929 Beiträge
 
Turbo Delphi für Win32
 
#7

Re: aus TImage Pixelwerte auslesen

  Alt 1. Apr 2008, 06:44
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
  Mit Zitat antworten Zitat