Hier mein Source :
Delphi-Quellcode:
procedure TForm1.BilderVergleichenAlt;
var
x, y, bildindex, count: integer;
begin
for bildindex := 0 to 9 do
begin
sleep(100);
count := 0;
// form1.Image3.Picture.Bitmap.LoadFromResourceName(HInstance,'alt_winkel_' + inttostr(bildindex));
form1.Image3.Picture.LoadFromFile('alt_winkel_'+inttostr(bildindex)+'.bmp');
for x := 0 to form1.Image2.Picture.Bitmap.Width - 1 do
for y := 0 to form1.Image2.Picture.Bitmap.Height - 1 do
if form1.Image2.Canvas.Pixels[x, y] = form1.Image3.Canvas.Pixels[x, y] then
inc(count);
if count = 60 then
begin
form1.Edit3.Text := form1.Edit3.Text + inttostr(bildindex);
exit;
end;
end;
end;
Warum werden meine Bilder nicht mehr original verglichen ?
