OFF: программы для просмотра и сравнения файлов

← →
cult (2004-03-24 10:24) [0]

Добрый день.
извините за оффтопик, но я хочу спросить у этой конференции, как у самой отзывчивой:
не можете ли вы порекомендовать/бросить ссылку на какую-нибудь прогу, которая позволит мне сравнить два файла побайтно и показать все различия? Можно, конечно, и самому написать что-нибудь на эту тему, да времени жалко.

Спасибо.

← →
Романов Р.В. © (2004-03-24 10:28) [1]

Total Commander

← →
Digitman © (2004-03-24 11:08) [2]

держи заготовку :

procedure TForm1.Button2Click(Sender: TObject); const //сравниваемые файлы ofn = "FILE1.BIN"; cfn = "FILE2.BIN"; var i : Integer; A1, A2: Integer; F1, F2: THandle; P1, P2: PByteArray; L1, L2: Integer; Result : Boolean; begin A1 := 0; A2 := 0; GetMem(P1, 65536); GetMem(P2, 65536); try F1 := FileOpen(ofn, fmOpenRead); F2 := FileOpen(cfn, fmOpenRead); L1 := FileRead(F1, P1^, 65536); L2 := FileRead(F2, P2^, 65536); while (L1 > 0) and (L1 = L2) do begin for i:= 0 to L1 - 1 do begin if P1[i] = P2[i] then Continue else Memo1.Lines.Add(IntToHex(A1+i,8) + " Src = " + IntToHex(P1[i],2) + " Dst = " + IntToHex(P2[i],2)); end; Inc(A1, L1); Inc(A2, L2); L1 := FileRead(F1, P1^, 65536); L2 := FileRead(F2, P2^, 65536); Application.ProcessMessages; end; finally FreeMem(P2); FreeMem(P1); end; end;

← →
Игорь Шевченко © (2004-03-24 11:14) [3]

WinDiff

Побайтно?
fc /b File1 File2

← →
cult (2004-03-24 11:46) [5]

Спасибо всем, проблема решена

OFF: программы для просмотра и сравнения файлов Найти похожие ветки