Changeset 7 for trunk/UProject.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/UProject.pas (modified) (3 diffs)

trunk/UProject.pas

@@ -6 +6 @@
 
 uses
-  Classes, SysUtils;
+  Classes, SysUtils, Contnrs, DOM, XMLRead, XMLWrite, UXMLUtils, UDriveScan;
 
 type
@@ -20 +20 @@
     SectorCount: Integer;
     Modified: Boolean;
+    Scans: TDriveScanList;
     constructor Create;
+    destructor Destroy; override;
+    procedure LoadFromFile(FileName: string);
+    procedure SaveToFile(FileName: string);
   end;
 
+
 implementation
+
+resourcestring
+  SWrongFileFormat = 'Wrong file format';
+
 
 { TProject }
@@ -30 +39 @@
 begin
   SectorSize := 4096;
+  Scans := TDriveScanList.Create;
 end;
+
+destructor TProject.Destroy;
+begin
+  FreeAndNil(Scans);
+  inherited Destroy;
+end;
+
+procedure TProject.SaveToFile(FileName: string);
+var
+  NewNode: TDOMNode;
+  Doc: TXMLDocument;
+  RootNode: TDOMNode;
+begin
+  Self.FileName := FileName;
+  Doc := TXMLDocument.Create;
+  with Doc do try
+    RootNode := CreateElement('CoolDiskProject');
+    AppendChild(RootNode);
+    with RootNode do begin
+      WriteInteger(RootNode, 'SectorSize', SectorSize);
+
+      NewNode := OwnerDocument.CreateElement('Scans');
+      AppendChild(NewNode);
+      Scans.SaveToNode(NewNode);
+    end;
+    ForceDirectories(ExtractFileDir(FileName));
+    WriteXMLFile(Doc, FileName);
+  finally
+    Doc.Free;
+  end;
+end;
+
+procedure TProject.LoadFromFile(FileName: string);
+var
+  Doc: TXMLDocument;
+  RootNode: TDOMNode;
+  NewNode: TDOMNode;
+begin
+  Self.FileName := FileName;
+  ReadXMLFile(Doc, FileName);
+  with Doc do try
+    if Doc.DocumentElement.NodeName <> 'CoolDiskProject' then
+      raise Exception.Create(SWrongFileFormat);
+    RootNode := Doc.DocumentElement;
+    with RootNode do begin
+      SectorSize := ReadInteger(RootNode, 'SectorSize', 4096);
+
+      NewNode := FindNode('Scans');
+      if Assigned(NewNode) then
+        Scans.LoadFromNode(NewNode);
+    end;
+  finally
+    Doc.Free;
+  end;
+end;
+
 
 end.