Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2004.04.11;
Скачать: CL | DM;

Вниз

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;
Скачать: CL | DM;

Наверх




Память: 0.48 MB
Время: 0.029 c
14-1082028453
Knight
2004-04-15 15:27
2004.04.11
Сброс счётчика у Xerox 5316 после 80 000 копий...


14-1079598894
zamkom
2004-03-18 11:34
2004.04.11
Ваше мнение о программе.


1-1079996788
Marat
2004-03-23 02:06
2004.04.11
Помогите, что значит эта фраза DecodeDate(Date+Difference, Year,


3-1081942132
Flashas
2004-04-14 15:28
2004.04.11
mozet xvatit stirat moi voprosy


14-1079668932
User_OKA
2004-03-19 07:02
2004.04.11
Delphi