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));