| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Побайтовое сравнение файлов [D6, D7, WinXP]

XeON ©   (2006-01-22 15:30:00) 

Доброго всем времени суток. Народ, подскажите пожалуйста, как мне побайтово сравнить 2 файла? А затем результат сравнения (номер байта и сам байт) куда-нибудь записать (например в тип Record)? Пробовал через BlockRead - не получается...

---

Fay   (2006-01-23 09:19:00) [1]

2 Zeqfreed ©   (22.01.06 16:51) [3]
(r1 <> toread) or (r2 <> toread)не говорит о различии файлов.

---

Zeqfreed   (2006-01-22 16:51:00) [2]

XeON ©   (22.01.06 15:30)

function AreFilesEqual(const fn1, fn2 : String) : Boolean;
var
 f1, f2 : Integer;
 fs1, fs2 : Cardinal;
 r1, r2, toread, read1, read2 : Integer;
 buf1, buf2 : array[0..10239] of Byte;
begin
 Result := false;

 f1 := FileOpen(fn1, fmShareDenyNone);
 f2 := FileOpen(fn2, fmShareDenyNone);
 fs1 := GetFileSize(f1, nil);
 fs2 := GetFileSize(f2, nil);

 read1 := 0;
 read2 := 0;
 if (fs1 = fs2) then begin
  repeat
   toread := Min(fs1 - read1, SizeOf(buf1));

   r1 := FileRead(f1, buf1, toread);
   r2 := FileRead(f2, buf2, toread);

   read1 := read1 + r1;
   read2 := read2 + r1;

   if (r1 <> toread) or (r2 <> toread) or (not CompareMem(@buf1, @buf2, toread)) then Exit;
  until ((read1 = fs1) and (read2 = fs2));

  Result := true;
 end;

 FileClose(f1);
 FileClose(f2);
end;

Вроде все правильно написал ;)

---

Desdechado   (2006-01-22 15:41:00) [3]

fc файл1 файл2 /b >результат

---

Lamer@fools.ua   (2006-01-22 15:36:00) [4]

> Пробовал через BlockRead - не получается...

И как именно не получается?

---

Наверх