Hash eines Bildes?

[gandime]

das einzige sinnvolle was ich gefunden habe is folgendes:

Zitat:

Zunächst mußt du das bild laden. Danach verkleinerst du das Bild auf z.b. 16x16. Anschliessend liest du alle pixel des bildes aus, je nach farbe getrennt. Das ist dein Bildhash. Wenn du jetzt bilder mit einander vergleichst, mußt du die differenzen beider hasches über die stringlänge zusammen addieren und durch die anzahl der bytes teilen. Dann mußt du über den dreisatz einmal ermitteln, wie viel proznt das sind. Anhand der prozentzahl siehst du, ob die bilder gleich sind oder nicht. Bei mir hat sich herrausgestellt, das ein Schwellwert von 4% am besten geeignet ist

quelle: http://entwickler-forum.de/archive/i...p/t-25168.html

bis jetzt habe ich folgendes:

Delphi-Quellcode:

  for I := 0 to b_temp.Width - 1 do
  begin
    for ii := 0 to b_temp.Height - 1 do
    begin
      i_z_wert:=b_temp.Pixel[i,ii]//hier


    end;
  end;

an der Makierten stelle ist meine erste Frage wie bekomme ich von dem Pixel die rot blau gelb Werte und wie werden sie zusammengerechnet?

edit:
hab ich das so jetzt richtig gemacht?

Delphi-Quellcode:

var
  b_temp:tbitmap32;
  i,ii,i_size,i_z_wert:integer;
  r_temp:real;
  st_temp:tmemorystream;
  s_temp:string;
begin
  b_temp:=tbitmap32.create;
  b_temp.LoadFromFile('a.bmp');
  i_z_wert:=0;
  for I := 0 to b_temp.Width - 1 do
  begin
    for ii := 0 to b_temp.Height - 1 do
    begin
      i_z_wert:=i_z_wert+GetRValue(b_temp.pixel[i,ii]);
      i_z_wert:=i_z_wert+GetGValue(b_temp.pixel[i,ii]);
      i_z_wert:=i_z_wert+GetBValue(b_temp.pixel[i,ii]);
    end;
  end;
  st_temp:=tmemorystream.create;
  b_temp.SaveToStream(st_temp);
  i_size:=st_temp.Size;
  st_temp.free;
  b_temp.Free;
  s_temp:=inttostr(i_z_wert);
  r_temp:=length(s_temp)/i_size;
  showmessage(floattostr(r_temp));