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

Вниз

TFileStream   Найти похожие ветки 

 
Вечно молодой ©   (2002-08-11 22:05) [0]

Здравствуйте!
Пишу функцию для сравнения двух файлов (по их содержанию). Она должна возвращать True, если файлы одинаковые, и False, если они неодинаковые или возникла ошибка. Сейчас она выглядит так:

function IsDuplicates (FileName1, FileName2 : String) : Boolean;
const
BufferSize = 16384;
var
i : LongInt;
BytesCount1 : Integer;
BytesCount2 : Integer;
FileStream1 : TFileStream;
FileStream2 : TFileStream;
Buffer1 : PByteArray;
Buffer2 : PByteArray;
begin
Result := True;
try { Пытаемся создать первый поток }
FileStream1 := TFileStream.Create (FileName1, fmShareDenyNone);
except { Не удалось создать первый поток }
Result := False;
Exit;
end;
try { Пытаемся создать второй поток }
FileStream2 := TFileStream.Create (FileName2, fmShareDenyNone);
except { Не удалось создать второй поток}
Result := False;
FileStream1.Free;
Exit;
end;
GetMem (Buffer1, BufferSize);
GetMem (Buffer2, BufferSize);
try
if FileStream1.Size <> FileStream2.Size then
Result := False { Потоки не совпадают, поскольку имеют разные размеры }
else

while (FileStream1.Size > FileStream1.Position) and Result do
begin
BytesCount1 := FileStream1.Read (Buffer1^, BufferSize);
BytesCount2 := FileStream2.Read (Buffer2^, BufferSize);
if (BytesCount1 = BytesCount2) then
begin
for i := 0 to BytesCount1 - 1 do
if Buffer1^ [i] <> Buffer2^ [i] then { Байты не совпали }
begin
Result := False;
Break;
end;
end
else
begin { BytesCount1 <> BytesCount2 }
Result := False;
Break;
end;
end; // While
except
Result := False;
end;
{ Уничтожаем потоки, освобождаем память }
FileStream1.Free;
FileStream2.Free;
FreeMem (Buffer1, BufferSize);
FreeMem (Buffer2, BufferSize);
end;


Вопрос такой : в выделенной строке оставить всё как есть или поменять знак ">" на ">="?


 
TTCustomDelphiMaster ©   (2002-08-11 22:45) [1]

F1 - CompareMem
Полезная функция.


 
Вечно молодой ©   (2002-08-12 10:07) [2]

> TTCustomDelphiMaster

Всё гениальное просто. Спасибо.



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

Текущий архив: 2002.08.22;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.017 c
14-71346
Flirt
2002-07-25 17:05
2002.08.22
Где можно скачать ХОРОШИЙ пример WebBrowser’а?


14-71341
Sergo
2002-07-27 08:54
2002.08.22
TeeChart


3-71031
Kit
2002-08-01 13:06
2002.08.22
Клиентское приложение


1-71076
Сережа
2002-08-12 11:13
2002.08.22
Удаление автозагрузки из реестра


1-71107
zjuzin
2002-08-09 14:48
2002.08.22
О