Forum: Multimedia
Delphi
by burning,
3. Jan 2004
danke...ich haette jetzt einfach das ergebnis durch 3 geteilt... :drunken:
wahrscheinlich werd ich jetzt doch einfach alle bilder auf256 farben runterrechnen zum vergleichen, damit die schleifendurchläufe geringer werden. :angle2:
Forum: Multimedia
Delphi
by burning,
2. Jan 2004
24 bit image ->
procedure CompareImages(Image1, Image2: TImage);
var
b1, b2: TBitmap;
c1, c2: PByte;
x, y, i,
different: Integer; // Counter for different pixels
begin
Forum: Multimedia
Delphi
by burning,
2. Jan 2004
aha...daneke...nur jetzt krieg ichs nichtmal mehr soweit, dass ichs kompilieren kann...
btw:
procedure TForm1.Button1Click(Sender: TObject);
var
b1, b2: TBitmap;
c1, c2: PByte;
x, y, i,
different: Integer; // Counter for different pixels
Forum: Multimedia
Delphi
by burning,
2. Jan 2004
hmm...zeig mal, wie du dir das vorstellst, so blick ich das grad ned... :wiejetzt:
Forum: Multimedia
Delphi
by burning,
2. Jan 2004
stimmt...danke.
nur sehe ich jetzt keine möglichkeit, das noch irgendwie umzuschreiben...muss wohl was neues her... :gruebel:
/EDIT2:
wie ein
image1.Picture.Bitmap.PixelFormat:=pf24bit;
image2.Picture.Bitmap.PixelFormat:=pf24bit;
wunder wirken kann...
...oder auch nicht...das Ergebnis is immernoch falsch!
Forum: Multimedia
Delphi
by burning,
2. Jan 2004
Durch Rumprobieren bin ich jetzt zu dem Ergebnis gekommen, dass ein Unterschied im ersten Pixel von links in einer Zeile genau 3 Unterschiede ergibt und ein Unterschied im zweiten Pixel von links genau 2 weitere Unterschiede ergibt. Unterschiede in den restlichen Pixeln der Bilder ergeben keine weiteren Unterschiede!
Aber hinter den Fehler bin ich immernoch nicht gekommen... :(
Forum: Multimedia
Delphi
by burning,
2. Jan 2004
Hi,
Die folgende Prozedur ist von
http://www.tipps.delphi-source.de/grafik/tut20020911-8.shtml
Wenn ich mit ihr zwei genau gleich große Bilder vergleiche, so liefert sie die absurdesten Ergebnisse...
Bsp:
1. ich liefere 2 Bilder von der Größe 5*8. Sie sind beide komplett grau, bis auf den Pixel ganz links oben im ersten Bild.
2. Das Programm gibt an, dass es 3 Unterschiede gibt, was ja...