Changeset 29 for trunk/UDriveScan.pas

Timestamp:

Apr 7, 2016, 11:08:31 PM (8 years ago)

Author:

chronos

Message:

• Added: Random data pattern write operation.
• Modified: Reversed list of operations so new ones are placed at top of the list.
• Fixed: Error on openning recent file which not exists.

File:

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

trunk/UDriveScan.pas

@@ -35 +35 @@
     Mode: TRunMode;
     WritePattern: Byte;
+    WritePatternRandom: Boolean;
     procedure LoadFromDriveInfo(DriveInfo: TDriveInfo);
   end;
@@ -91 +92 @@
     Mode: TRunMode;
     WritePattern: Byte;
+    WritePatternRandom: Boolean;
     SectorSize: Integer;
     SectorStart: Integer;
@@ -292 +294 @@
   RealSize: Integer;
   Buffer: array of Byte;
+  I: Integer;
 begin
   try
@@ -303 +306 @@
     try
       SetLength(Buffer, SectorSize);
-      if Mode = rmWrite then
-        FillChar(Buffer[0], Length(Buffer), WritePattern);
+      if Mode = rmWrite then begin
+        if not WritePatternRandom then
+          FillChar(Buffer[0], Length(Buffer), WritePattern)
+          else for I := 0 to Length(Buffer) - 1 do
+            Buffer[I] := Random(256);
+      end;
       while FSectorCurrent < SectorEnd do begin
         try
@@ -370 +377 @@
   if Mode = rmNone then Result := 'None'
   else if Mode = rmRead then Result := 'Read'
-  else if Mode = rmWrite then Result := 'Write pattern $' + IntToHex(WritePattern, 2)
-  else Result := '';
+  else if Mode = rmWrite then begin
+    if WritePatternRandom then Result := 'Write pattern random'
+      else Result := 'Write pattern $' + IntToHex(WritePattern, 2);
+  end else Result := '';
 end;
 
@@ -391 +400 @@
   Mode := Profile.Mode;
   WritePattern := Profile.WritePattern;
+  WritePatternRandom := Profile.WritePatternRandom;
 end;
 
@@ -428 +438 @@
     WriteInteger(Node, 'RunMode', Integer(Mode));
     WriteInteger(Node, 'WritePattern', WritePattern);
+    WriteBoolean(Node, 'WritePatternRandom', WritePatternRandom);
     WriteString(Node, 'DriveName', DriveName);
     WriteDateTime(Node, 'TimeStart', TimeStart);
@@ -469 +480 @@
     Mode := TRunMode(ReadInteger(Node, 'RunMode', 0));
     WritePattern := ReadInteger(Node, 'WritePattern', 0);
+    WritePatternRandom := ReadBoolean(Node, 'WritePatternRandom', False);
     DriveName := ReadString(Node, 'DriveName', '');
     TimeStart := ReadDateTime(Node, 'TimeStart', 0);