Durchschnittsfarbe eines Bitmap "schnell" ermitteln

[KodeZwerg]

@Michael II
Nun passiert da was... aber mein Ergebniss ist falsch.

Delphi-Quellcode:

function GetAvgGDIColor(const Filename: string): TColor;
var
  gr: TGPGraphics;
  Bmap: TGPBitmap;
  col: TGPColor;
begin
  Result := 0;
  bmap := TGPBitmap.Create(Filename);
  try
    gr := TGPGraphics.Create( bmap );
    try
      gr.ScaleTransform( 1/bmap.GetWidth, 1/bmap.GetHeight );
      gr.DrawImage( bmap, 0,0 );
      bmap.GetPixel(0,0, col);
      Result := RGB(GetRValue(col), GetGValue(col), GetBValue(col));
    finally
      gr.Free;
    end;
  finally
    bmap.Free;
  end;
end;

Falls Du Dich nochmal reinklinken könntest um mich zu korrigieren, das wäre nett!

Zitat von himitsu:

Es ist ein DWORD, dass aus 3+1 Bytes besteht

Mein Fehler!