2 графических изображения

Discussion in 'Безопасность и Анонимность' started by W!z@rD, 31 May 2006.

  1. W!z@rD

    W!z@rD Борец за русский язык

    Joined:
    12 Feb 2006
    Messages:
    973
    Likes Received:
    290
    Reputations:
    43
    Нужна программа которая будет делать сравнение... И показывать % отличия....
    СРОЧНО... помогите

    заранее спасибо!
     
  2. vl.

    vl. New Member

    Joined:
    8 Nov 2005
    Messages:
    18
    Likes Received:
    2
    Reputations:
    0
    1) есть плагин в ACDSee
    2) прога называется ImageDupeless (если непутаю)
     
    #2 vl., 31 May 2006
    Last edited: 31 May 2006
  3. asm33

    asm33 Elder - Старейшина

    Joined:
    19 Jan 2006
    Messages:
    55
    Likes Received:
    7
    Reputations:
    4
    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;
     
  4. asm33

    asm33 Elder - Старейшина

    Joined:
    19 Jan 2006
    Messages:
    55
    Likes Received:
    7
    Reputations:
    4
    если немножко пофантазировать, то получится то что нужно
     
  5. nc.STRIEM

    nc.STRIEM Members of Antichat

    Joined:
    5 Apr 2006
    Messages:
    1,036
    Likes Received:
    347
    Reputations:
    292
    В фоттошопе такая фигня есть!
    А ваше если есть немног времени можно и самому написать, на с++ это не тяжело сделать есле файлы будут одинакового размера!
    вот чет наподобе как asm33 написал, но есле файлы будут разного размера, то будет выдовать не правильно!
     
    #5 nc.STRIEM, 1 Jun 2006
    Last edited: 1 Jun 2006
  6. W!z@rD

    W!z@rD Борец за русский язык

    Joined:
    12 Feb 2006
    Messages:
    973
    Likes Received:
    290
    Reputations:
    43
    1) что за плагин???
    2) По мойму Она ищет изображения и делает сравнение.

    На мне нужен % изменений...
     
  7. vl.

    vl. New Member

    Joined:
    8 Nov 2005
    Messages:
    18
    Likes Received:
    2
    Reputations:
    0
    про плагин я только слышал, а прогу я видел мельком