Нужна программа которая будет делать сравнение... И показывать % отличия.... СРОЧНО... помогите заранее спасибо!
procedure TForm1.Button1Click(Sender: TObject); const BytesPerPixel = 4; var b1, b2: TBitmap; c1, c2: PByte; x, y, z,d: Integer; begin b1:=TBitmap.Create; b2:=TBitmap.Create; d:= 0; b1.LoadFromFile('d:\1.bmp'); b2.LoadFromFile('d:\2.bmp'); Assert(b1.PixelFormat = b2.PixelFormat); for y := 0 to b1.Height - 1 do begin c1 := b1.Scanline[y]; c2 := b2.Scanline[y]; for x := 0 to b1.Width - 1 do for z := 0 to BytesPerPixel-1 do begin Inc(d, Integer(c1^ <> c2^)); Inc(c1); Inc(c2); end; end; if d<>0 then ShowMessage('OTLICHIE ESTb'); end;
В фоттошопе такая фигня есть! А ваше если есть немног времени можно и самому написать, на с++ это не тяжело сделать есле файлы будут одинакового размера! вот чет наподобе как asm33 написал, но есле файлы будут разного размера, то будет выдовать не правильно!