Durchschnittsfarbe eines Bitmap "schnell" ermitteln

[Amateurprofi]

Zitat von KodeZwerg:

Hier habe ich noch einen Code gefunden, aber wie es ausschaut machen die den gleichen Ansatz:

Ja, außer dass die vor dem eigentlichen "Zählen" die Daten aus der Bitmap in ein Array kopieren.

[KodeZwerg]

Danke skybibo und Amateurprofi ich werde es nach her mal durch-testen!

So werde ich vorgehen, hoffentlich ist das soweit okay, habe es selbst noch nicht getestet da ich gerade bemüht bin dutzende von methoden aus einer vcl-haupt-unit in eine seperate unit auszulagern.

Hier mein Code der vor Eurem geschaltet wird:

Delphi-Quellcode:

function FilenameToBmp(const AFilename: string; out ABmp: TBitmap): Boolean;
var
  wic: TWICImage;
begin
  if ((not FileExists(AFilename)) or (nil = ABmp)) then
    Exit(false);
  wic := TWICImage.Create;
  try
    ABmp.Dormant;
    ABmp.FreeImage;
    ABmp.ReleaseHandle;
    wic.LoadFromFile(AFilename);
    ABmp.Assign(wic);
    ABmp.PixelFormat := pf24bit;
    Result := Assigned(ABmp);
  finally
    wic.Free;
  end;
end;

[himitsu]

OUT?

VAR Ohne (bzw. CONST) !!!

Es kommt was rein, also ist mindestens es IN-OUT,
aber eigentlich geht auch garnichts raus,
denn die Instanz/Variable/Parameter ändert sich garnicht.

Nur der Inhalt der Instanz ändert sich, aber das hat mit dem Objektzeiger nichts zu tun.

[KodeZwerg]

Zitat von himitsu:

OUT?

VAR Ohne (bzw. CONST) !!!

Es kommt was rein, also ist mindestens es IN-OUT,
aber eigentlich geht auch garnichts raus,
denn die Instanz/Variable/Parameter ändert sich garnicht.

Nur der Inhalt der Instanz ändert sich, aber das hat mit dem Objektzeiger nichts zu tun.

Also function FilenameToBmp(const AFilename: string; const ABmp: TBitmap): Boolean; so?
Danke fürs Lesen und Fehler erkennen!

[himitsu]

Jupp, wobei das CONST optional ist. (nach außen hin ist OHNE und CONST gleich)

[Michael II]

Hier gibt es Infos zum Berechnen der Durchschnittsfarbe eines Bildes; einmal simpel via Mittelwert (wie hier besprochen, Resultat oft ein etwas "dumpfer" Farbton) und einmal etwas anders anders (in vielen Situationen bessere Beachtung von Helligkeit & Kontrast). Bild1 zeigt den Unterschied.

https://sighack.com/post/averaging-r...-the-right-way

Weitere Infos zu Farbabstandsmessung gibt's überall, u.a. hier:
https://www.compuphase.com/cmetric.htm
Unter Beachtung der Infos von Link2 (Gewichtung der Farbwerte) würde die Berechnung bei Link1 noch einmal etwas anders aussehen.

Ich habe noch bei Adobe gesucht, den in ihren Produkten verwendeten Algorithmus jedoch nicht gefunden.