Changeset 5 for trunk/UDriveScan.pas

Timestamp:

Mar 29, 2016, 11:01:28 PM (8 years ago)

Author:

chronos

Message:

• Modified: TScanThread is now internal part of TDriveScan class.
• Fixed: Now scan can be stopped and rerun again in runtime.

File:

• trunk/UDriveScan.pas (modified) (7 diffs)

trunk/UDriveScan.pas

@@ -9 +9 @@
 
 type
+  TDriveScan = class;
+
   TRunMode = (rmRead, rmWrite);
+
+  { TScanThread }
+
+  TScanThread = class(TThread)
+    Scan: TDriveScan;
+    procedure Execute; override;
+  end;
 
   { TDriveScan }
@@ -17 +26 @@
     FOnChange: TNotifyEvent;
     FOnTerminate: TNotifyEvent;
+    ScanThread: TScanThread;
     procedure DoChange;
     procedure DoTerminate;
+    procedure Run;
   public
     Lock: TCriticalSection;
@@ -32 +43 @@
     WritePattern: Byte;
     function GetElapsedTime: TDateTime;
-    procedure Run;
+    procedure Start;
+    procedure Stop;
     constructor Create;
     destructor Destroy; override;
@@ -39 +51 @@
   end;
 
-  { TScanThread }
-
-  TScanThread = class(TThread)
-    Form: TForm;
-    procedure Execute; override;
-  end;
-
 
 implementation
 
-uses
-  UFormMain;
 
 { TScanThread }
@@ -56 +59 @@
 procedure TScanThread.Execute;
 begin
-  TFormMain(Form).DriveScan.Run;
+  Scan.Run;
 end;
 
@@ -75 +78 @@
   if TimeEnd <> 0 then Result := TimeEnd - TimeStart
     else Result := Now - TimeStart;
+end;
+
+procedure TDriveScan.Start;
+begin
+  ScanThread := TScanThread.Create(True);
+  ScanThread.Scan := Self;
+  ScanThread.Start;
 end;
 
@@ -132 +142 @@
 end;
 
+procedure TDriveScan.Stop;
+begin
+  Terminated := True;
+  ScanThread.Terminate;
+  ScanThread.WaitFor;
+  FreeAndNil(ScanThread);
+end;
+
 constructor TDriveScan.Create;
 begin