Forum: Multimedia
Delphi
by xy124,
3. Nov 2008
Juhuuuuuuuuu ich hab' die Lösung! Danke vor allem dir Blup! das kopieren deines Codes in mein Projekt und dann das "synchronisieren" mit meinem Code brachte die Lösung!
in meinem code fehlten nur 2 zeilen:
procedure vergleichebilder2;
var x,y,d1, d2: integer;
begin
///////////////////////////////
bmp1.pixelformat:= pf24bit;//an diesen beiden Zeilen liegt's
bmp2.pixelformat:=...
Forum: Multimedia
Delphi
by xy124,
3. Nov 2008
also erstmal größten dank für eure Antworten! :thumb:
@chest3rs: wie inherited schon gesagt hat ist mir das zu langsam
@inherited: mit form3.image3.Picture.Bitmap.assign(bmp2) passiert genau das gleiche wie mit Picture.Bitmap := bmp2
so jetzt mal mehr code:
type
pixel = array of byte;
Forum: Multimedia
Delphi
by xy124,
2. Nov 2008
was mach' ich falsch?
procedure vergleichebilder2;
var x,y,d1, d2: integer;
begin
for y:=1 to 239 do begin
farbe1 := bmp1.ScanLine;
farbe2 := bmp2.ScanLine;
for x:= 1 to 319 do begin
d1:=round((farbe1^+farbe1^+farbe1^)/3);