1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:

function CompareStreams(A,B: TStream):Boolean;
const
  cMaxBuffer = 1024*256;
var
  OldPosA,
  OldPosB: Int64;
  nRead: Integer;
  BufferA,
  BufferB: array[0..cMaxBuffer-1] of Byte;
  CurPos: Int64;
  Size: Int64;
begin
  Result := False;

  if A.Size <> B.Size then
    Exit; 

  OldPosA := A.Position;
  OldPosB := B.Position;

  try
    A.Seek(0, soFromBeginning);
    B.Seek(0, soFromBeginning);

    Size := A.Size;
    CurPos := 0;
    nRead := cMaxBuffer;

    while(CurPos < Size) do
    begin
      if CurPos > Size-cMaxBuffer then
        nRead := Size-CurPos;

      A.Read(BufferA, nRead);
      B.Read(BufferB, nRead);

      if not CompareMem(@BufferA, @BufferB, nRead) then
        Exit;

      Inc(CurPos, nRead);
    end;
    Result := True;
  finally
    A.Seek(OldPosA, soFromBeginning);
    B.Seek(OldPosB, soFromBeginning);
  end;
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:

procedure TForm1.Button1Click(Sender: TObject);
var
  FileA,
  FileB: TFileStream;
begin
  FileA := TFileStream.Create('c:\filea.bin', fmOpenRead OR fmShareDenyWrite);
  FileB := TFileStream.Create('c:\fileb.bin', fmOpenRead OR fmShareDenyWrite);
  try
    try
      if not CompareStreams(FileA, FileB) then
        ShowMessage('Dateien sind ungleich')
      else
        ShowMessage('Dateien sind gleich :-)');
    except
      ShowMessage('Es ist ein Fehler beim vergleichen der Streams aufgetreten.');
    end;
  finally
    FileA.Free;
    FileB.Free;
  end;
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:

function AreFilesEqual(const file1, file2: String): Boolean;
var
  m1, m2: TMemoryStream;
begin
  Result := False;
  m1 := TMemoryStream.Create;
  try
    m1.LoadFromFile(file1);
    m2 := TMemoryStream.Create;
    try
      m2.LoadFromFile(file2);
      if m1.Size = m2.Size then
        Result := CompareMem(m1.Memory, m2.Memory, m1.Size);
    finally
      m2.Free;
    end;
  finally
    m1.Free;
  end
end;