Changeset 29 for trunk

Timestamp:

Apr 7, 2016, 11:08:31 PM (9 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.

Location:

trunk

Files:

• Form/UFormMain.lfm (modified) (1 diff)
• Form/UFormMain.pas (modified) (2 diffs)
• Form/UFormOperation.lfm (modified) (3 diffs)
• Form/UFormOperation.pas (modified) (5 diffs)
• UDriveScan.pas (modified) (8 diffs)

trunk/Form/UFormMain.lfm

@@ -283 +283 @@
           item
             Caption = 'Name'
-            Width = 100
+            Width = 200
           end        
           item
             Caption = 'Time start'
-            Width = 100
+            Width = 150
           end        
           item
             Caption = 'Time end'
-            Width = 100
+            Width = 150
           end        
           item

trunk/Form/UFormMain.pas

@@ -176 +176 @@
   LoadConfig;
   Core.PersistentForm1.Load(Self);
-  if (LastOpenedList1.Items.Count > 0) then
+  if (LastOpenedList1.Items.Count > 0) and FileExists(LastOpenedList1.Items[0]) then
     ProjectOpen(LastOpenedList1.Items[0])
   else begin
@@ -195 +195 @@
   with Core.Project do
   if (Item.Index >= 0) and (Item.Index < Scans.Count) then
-  with TDriveScan(Scans[Item.Index]) do begin
+  with TDriveScan(Scans[Scans.Count - 1 - Item.Index]) do begin
     Item.Caption := GetName;
-    Item.Data := TDriveScan(Scans[Item.Index]);
+    Item.Data := TDriveScan(Scans[Scans.Count - 1 - Item.Index]);
     Item.SubItems.Add(DateTimeToStr(TimeStart));
     Item.SubItems.Add(DateTimeToStr(TimeEnd));

trunk/Form/UFormOperation.lfm

@@ -37 +37 @@
       'Write test'
     )
+    OnChange = ComboBoxRunModeChange
     Style = csDropDownList
     TabOrder = 2
@@ -42 +43 @@
   end
   object Label9: TLabel
-    Left = 285
+    Left = 16
     Height = 24
-    Top = 23
-    Width = 121
-    Caption = 'Data pattern:'
+    Top = 200
+    Width = 172
+    Caption = 'Write byte pattern:'
     ParentColor = False
   end
   object EditPattern: TEdit
-    Left = 439
+    Left = 232
     Height = 34
-    Top = 16
+    Top = 192
     Width = 80
     TabOrder = 3
@@ -93 +94 @@
     ParentColor = False
   end
+  object CheckBoxRandomPattern: TCheckBox
+    Left = 16
+    Height = 28
+    Top = 160
+    Width = 174
+    Caption = 'Random pattern'
+    OnChange = CheckBoxRandomPatternChange
+    TabOrder = 6
+  end
 end

trunk/Form/UFormOperation.pas

@@ -16 +16 @@
     ButtonOk: TButton;
     ButtonCancel: TButton;
+    CheckBoxRandomPattern: TCheckBox;
     ComboBoxRunMode: TComboBox;
     EditPattern: TEdit;
@@ -23 +24 @@
     SpinEditFirstSector: TSpinEdit;
     SpinEditLastSector: TSpinEdit;
+    procedure CheckBoxRandomPatternChange(Sender: TObject);
+    procedure ComboBoxRunModeChange(Sender: TObject);
     procedure SpinEditFirstSectorChange(Sender: TObject);
     procedure SpinEditLastSectorChange(Sender: TObject);
   private
     procedure UpdateMaxValues;
+    procedure UpdateWritePattern;
   public
     procedure Load(DriveScan: TDriveScanProfile);
@@ -46 +50 @@
 end;
 
+procedure TFormOperation.ComboBoxRunModeChange(Sender: TObject);
+begin
+  UpdateWritePattern;
+end;
+
+procedure TFormOperation.CheckBoxRandomPatternChange(Sender: TObject);
+begin
+  UpdateWritePattern;
+end;
+
 procedure TFormOperation.SpinEditLastSectorChange(Sender: TObject);
 begin
@@ -57 +71 @@
 end;
 
+procedure TFormOperation.UpdateWritePattern;
+begin
+  CheckBoxRandomPattern.Enabled := (ComboBoxRunMode.ItemIndex = Integer(rmWrite));
+  EditPattern.Enabled := not CheckBoxRandomPattern.Checked and (ComboBoxRunMode.ItemIndex = Integer(rmWrite));
+end;
+
 procedure TFormOperation.Load(DriveScan: TDriveScanProfile);
 begin
+  CheckBoxRandomPattern.Checked := DriveScan.WritePatternRandom;
+  UpdateWritePattern;
   ComboBoxRunMode.ItemIndex := Integer(DriveScan.Mode);
   EditPattern.Text := '$' + IntToHex(DriveScan.WritePattern, 2);
@@ -73 +95 @@
   DriveScan.SectorStart := SpinEditFirstSector.Value;
   DriveScan.SectorEnd := SpinEditLastSector.Value;
+  DriveScan.WritePatternRandom := CheckBoxRandomPattern.Checked;
 end;
 

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);