Changeset 7 for trunk/UDriveScan.pas

Timestamp:

Mar 30, 2016, 11:32:54 PM (8 years ago)

Author:

chronos

Message:

• Added: Main menu with available actions.
• Added: Basic functionality to save project to file and open project from file.

File:

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

trunk/UDriveScan.pas

@@ -6 +6 @@
 
 uses
-  Classes, SysUtils, Syncobjs, UBlockMap, Forms, UConfig;
+  Classes, SysUtils, Syncobjs, UBlockMap, Forms, UConfig, DOM, XMLRead, XMLWrite,
+  UXMLUtils, Contnrs;
 
 type
@@ -47 +48 @@
     constructor Create;
     destructor Destroy; override;
+    procedure SaveToNode(Node: TDOMNode);
+    procedure LoadFromNode(Node: TDOMNode);
     property OnTerminate: TNotifyEvent read FOnTerminate write FOnTerminate;
     property OnChange: TNotifyEvent read FOnChange write FOnChange;
   end;
 
+  { TDriveScanList }
+
+  TDriveScanList = class(TObjectList)
+    procedure SaveToNode(Node: TDOMNode);
+    procedure LoadFromNode(Node: TDOMNode);
+  end;
+
 
 implementation
@@ -56 +66 @@
 resourcestring
   SUnknownRunMode = 'Unknown run mode';
+
+{ TDriveScanList }
+
+procedure TDriveScanList.SaveToNode(Node: TDOMNode);
+var
+  I: Integer;
+  NewNode2: TDOMNode;
+begin
+  for I := 0 to Count - 1 do
+  with TDriveScan(Items[I]) do begin
+    NewNode2 := Node.OwnerDocument.CreateElement('Scan');
+    Node.AppendChild(NewNode2);
+    SaveToNode(NewNode2);
+  end;
+end;
+
+procedure TDriveScanList.LoadFromNode(Node: TDOMNode);
+var
+  Node2: TDOMNode;
+  NewScan: TDriveScan;
+begin
+  Count := 0;
+  Node2 := Node.FirstChild;
+  while Assigned(Node2) and (Node2.NodeName = 'Scan') do begin
+    NewScan := TDriveScan.Create;
+    NewScan.LoadFromNode(Node2);
+    Add(NewScan);
+    Node2 := Node2.NextSibling;
+  end;
+end;
 
 
@@ -174 +214 @@
 end;
 
+procedure TDriveScan.SaveToNode(Node: TDOMNode);
+var
+  NewNode: TDOMNode;
+begin
+  with Node do begin
+    WriteInteger(Node, 'DamagedBlockCount', DamagedBlockCount);
+    WriteInteger(Node, 'WritePattern', WritePattern);
+    WriteString(Node, 'DriveName', Drive);
+
+    NewNode := OwnerDocument.CreateElement('SectorMap');
+    AppendChild(NewNode);
+    BlockMap.SaveToNode(NewNode);
+  end;
+end;
+
+procedure TDriveScan.LoadFromNode(Node: TDOMNode);
+var
+  NewNode: TDOMNode;
+begin
+  with Node do begin
+    DamagedBlockCount := ReadInteger(Node, 'DamagedBlockCount', 0);
+    WritePattern := ReadInteger(Node, 'WritePattern', 0);
+    Drive := ReadString(Node, 'DriveName', '');
+
+    NewNode := FindNode('SectorMap');
+    if Assigned(NewNode) then
+      BlockMap.LoadFromNode(NewNode);
+  end;
+end;
 
 end.