Solved

File Comparison

Posted on 2000-04-27
4
211 Views
Last Modified: 2012-05-04
How do I perform a binary file comparison (like the one in DOS [FC]) and direct the output to a file using delphi 5.
0
Comment
Question by:eldraco
4 Comments
 
LVL 9

Expert Comment

by:ITugay
ID: 2758432
Hi
The working sample is bellow.

-----
uses ... , ShellApi, ...

procedure TForm1.SpeedButton1Click(Sender: TObject);
begin
   ShellExecute(handle,'open','command','/c fc c:\autoexec.bat c:\autoexec.dos > c:\result.txt',nil,SW_HIDE);
end;

-----
Igor.
0
 
LVL 7

Expert Comment

by:Motaz
ID: 2761452
But there is one problem. How did you know that the compression is finished!

Motaz
0
 
LVL 1

Expert Comment

by:new_x
ID: 2763341
Listening
0
 
LVL 7

Accepted Solution

by:
God_Ares earned 100 total points
ID: 2763555
I think this is what you need...
code could be optimized..

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    Memo1: TMemo;
    OpenDialog1: TOpenDialog;
    OpenDialog2: TOpenDialog;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
  private
    { Private declarations }
    fname1,fname2:string;
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.Button1Click(Sender: TObject);
begin
  if opendialog1.execute then fname1:=opendialog1.filename;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  if opendialog2.execute then fname2:=opendialog2.filename;
end;

procedure TForm1.Button3Click(Sender: TObject);
var s1,s2:Tfilestream;
    i,j:integer;
    a,b:byte;
begin
  s1:=tfilestream.Create(fname1,fmOpenRead);
  s2:=tfilestream.Create(fname2,fmOpenRead);

  if s1.Size > s2.size then i:=s2.size else i:=s1.size;

  For j:=1 to i-1 do
  Begin
    s1.Read(a,1);
    s2.Read(b,1);
    if a<>b then memo1.lines.add(inttohex(j,6)+'  '+inttohex(a,2)+' '+inttohex(b,2));
  End;

  if s1.Size > s2.size then memo1.Lines.add(fname1+' is lager than '+fname2);
  if s1.Size < s2.size then memo1.Lines.add(fname2+' is lager than '+fname1);

  s1.free;
  s2.free;
end;

end.
0

Featured Post

Free Tool: Path Explorer

An intuitive utility to help find the CSS path to UI elements on a webpage. These paths are used frequently in a variety of front-end development and QA automation tasks.

One of a set of tools we're offering as a way of saying thank you for being a part of the community.

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

Introduction I have seen many questions in this Delphi topic area where queries in threads are needed or suggested. I know bumped into a similar need. This article will address some of the concepts when dealing with a multithreaded delphi database…
Introduction Raise your hands if you were as upset with FireMonkey as I was when I discovered that there was no TListview.  I use TListView in almost all of my applications I've written, and I was not going to compromise by resorting to TStringGrid…
This video shows how to use Hyena, from SystemTools Software, to bulk import 100 user accounts from an external text file. View in 1080p for best video quality.
Established in 1997, Technology Architects has become one of the most reputable technology solutions companies in the country. TA have been providing businesses with cost effective state-of-the-art solutions and unparalleled service that is designed…

830 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question