Форум: "Основная";
Текущий архив: 2004.04.11;
Скачать: [xml.tar.bz2];

Вниз

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

---

← →
Vuk ©   (2004-03-24 11:34) [4]

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

---

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

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

---

Страницы: 1 вся ветка

Форум: "Основная";
Текущий архив: 2004.04.11;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.45 MB
Время: 0.039 c