WebSVN – checksum-tools – Diff – /trunk/Windows/Unit3.pas

 interface
 uses
   Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
-  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls;
+  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Vcl.ExtCtrls;
 type
   TForm3 = class(TForm)
     Memo1: TMemo;
     Label1: TLabel;
     Label3: TLabel;
     Memo4: TMemo;
     Label4: TLabel;
     Button1: TButton;
     OpenDialog1: TOpenDialog;
+    Timer1: TTimer;
     procedure Button1Click(Sender: TObject);
     procedure FormShow(Sender: TObject);
-    procedure FormKeyPress(Sender: TObject; var Key: Char);
+    procedure FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
+    procedure Timer1Timer(Sender: TObject);
   private
     FChecksumFile: string;
   public
     function ParamChecksumFile: string;
     procedure LoadSFV;
 begin
   SaveSFV;
   LoadSFV;
 end;
-procedure TForm3.FormKeyPress(Sender: TObject; var Key: Char);
+procedure TForm3.FormKeyDown(Sender: TObject; var Key: Word;
+  Shift: TShiftState);
 begin
+  if (Shift = []) and (Key = VK_F6) then
+  begin
-  if Key = #27 then Close;
+    Key := 0;
+    SaveSFV;
+    LoadSFV;
+  end
+  else if (Shift = []) and (Key = VK_ESCAPE) then
+  begin
+    Key := 0;
+    Close;
+  end
+  else if (Shift = []) and (Key = VK_F5) then
+  begin
+    Key := 0;
+    LoadSFV;
+  end;
 end;
 procedure TForm3.FormShow(Sender: TObject);
 begin
   Caption := ParamChecksumFile;
-  LoadSFV;
+  Timer1.Enabled := true;
 end;
 procedure TForm3.LoadSFV;
 var
   FileName: string;
   IstChecksum: string;
   existingFiles: TStringList;
   j: Integer;
   csman: TCheckSumFile;
 begin
+  Color := clGray;
+  Refresh;
   FileName := ParamChecksumFile;
   ADirectory := ExtractFilePath(FileName);
   if not FileExists(FileName) then
   begin
     IsFound := FindFirst(ADirectory + '*', faAnyFile xor faDirectory, SR) = 0;
     while IsFound do
     begin
       if (SR.Name <> '.') and (SR.Name <> '..') then
       begin
-        existingFiles.Add(LowerCase(SR.Name));
+        existingFiles.Add(SR.Name);
       end;
       IsFound := FindNext(SR) = 0;
     end;
     FindClose(SR);
       begin
         Memo3.Lines.Add(csman.MergeLine(slSFV.Strings[i], SollChecksum));
       end
       else
       begin
-        IstChecksum  := CalcFileCRC32(TestFilename);
+        IstChecksum  := csman.SingleFileChecksum(TestFilename);
         if SameText(SollChecksum, IstChecksum) then
         begin
           Memo1.Lines.Add(csman.MergeLine(slSFV.Strings[i], SollChecksum));
         end
         else
         begin
           Memo2.Lines.Add('; [CURRENT FILE CHECKSUM] ' + csman.MergeLine(slSFV.Strings[i], IstChecksum));
           Memo2.Lines.Add(csman.MergeLine(slSFV.Strings[i], SollChecksum));
         end;
+        {$IFDEF MSWINDOWS}
+        existingFiles.CaseSensitive := false;
+        {$ELSE}
+        existingFiles.CaseSensitive := true;
+        {$ENDIF}
-        j := existingFiles.IndexOf(LowerCase(slSFV.Strings[i]));
+        j := existingFiles.IndexOf(slSFV.Strings[i]);
         if j >= 0 then existingFiles.Delete(j);
       end;
     end;
     // Check non-indexed files
       Color := clMoneyGreen
     else if (Memo2.Text <> '') then
       Color := clRed
     else
       Color := clYellow;
+    Memo1.SelStart := 0;
+    Memo1.SelLength := 0;
+    Memo2.SelStart := 0;
+    Memo2.SelLength := 0;
+    Memo3.SelStart := 0;
+    Memo3.SelLength := 0;
+    Memo4.SelStart := 0;
+    Memo4.SelLength := 0;
+    if Memo2.Text <> '' then Memo2.SetFocus
+    else if Memo3.Text <> '' then Memo3.SetFocus
+    else if Memo4.Text <> '' then Memo4.SetFocus
+    else Memo1.SetFocus;
   finally
     FreeAndNil(slSFV);
     FreeAndNil(existingFiles);
     FreeAndNil(csman);
   end;
 procedure TForm3.SaveSFV;
 var
   hFile: THandle;
   i: Integer;
+  slOut: TStringList;
 begin
   MyAssignFile(hFile, ParamChecksumFile);
+  try
-  MyRewrite(hFile); // clear File
+    MyRewrite(hFile); // clear File
+    slOut := TStringList.Create;
+    try
+      // Fill slOut with the Memo contents
-  for i := 0 to memo1.Lines.Count-1 do
+      for i := 0 to memo1.Lines.Count-1 do
-  begin
+      begin
-    if Trim(Memo1.Lines[i]) <> '' then
+        slOut.Add(Memo1.Lines[i]);
-      MyWriteLn(hFile, AnsiString(utf8encode(Memo1.Lines[i])));
-  end;
+      end;
-  for i := 0 to memo2.Lines.Count-1 do
+      for i := 0 to memo2.Lines.Count-1 do
-  begin
+      begin
-    if Trim(Memo2.Lines[i]) <> '' then
+        slOut.Add(Memo2.Lines[i]);
-      MyWriteLn(hFile, AnsiString(utf8encode(Memo2.Lines[i])));
-  end;
+      end;
-  for i := 0 to memo3.Lines.Count-1 do
+      for i := 0 to memo3.Lines.Count-1 do
-  begin
+      begin
-    if Trim(Memo3.Lines[i]) <> '' then
+        slOut.Add(Memo3.Lines[i]);
-      MyWriteLn(hFile, AnsiString(utf8encode(Memo3.Lines[i])));
-  end;
+      end;
-  for i := 0 to memo4.Lines.Count-1 do
+      for i := 0 to memo4.Lines.Count-1 do
-  begin
+      begin
+        slOut.Add(Memo4.Lines[i]);
+      end;
+      // Sort
+      slOut.Sort;
+      // Write to SFV/MD5 file
+      for i := 0 to slOut.Count-1 do
+      begin
-    if Trim(Memo4.Lines[i]) <> '' then
+        if Trim(slOut[i]) <> '' then
-      MyWriteLn(hFile, AnsiString(utf8encode(Memo4.Lines[i])));
+          MyWriteLn(hFile, AnsiString(utf8encode(slOut[i])));
+      end;
+    finally
+      FreeAndNil(slOut);
-  end;
+    end;
+  finally
-  MyCloseFile(hFile);
+    MyCloseFile(hFile);
-end;
+  end;
+end;
+procedure TForm3.Timer1Timer(Sender: TObject);
+begin
+  Timer1.Enabled := false;
+  LoadSFV;
+end;
 end.

Subversion Repositories checksum-tools

checksum-tools/trunk/Windows/Unit3.pas – Rev 7 → 8