Changeset 3 for trunk/UMainForm.pas

Timestamp:

Feb 2, 2011, 2:14:37 PM (13 years ago)

Author:

chronos

Message:

• Added: Not finished updating of sources from web.

Location:

trunk

Files:

• . (modified) (1 prop)
• UMainForm.pas (modified) (17 diffs)

trunk

@@ -1 +1 @@
 lib
 FreePascalManager.exe
+SourceList.xml
+Config.xml

@@ -1 +1 @@
 lib
 FreePascalManager.exe
+SourceList.xml
+Config.xml

trunk/UMainForm.pas

@@ -8 +8 @@
   Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, ComCtrls,
   StdCtrls, ActnList, Contnrs, USource, UInstance, UOptions,
-  DOM, XMLWrite, XMLRead;
+  DOM, XMLWrite, XMLRead, HTTPSend;
 
 const
   ConfigFileName = 'Config.xml';
+  SourceURL = 'http://tv.zdechov.net/fpc/SourceList.xml';
 
 type
 
-  { TForm1 }
-
-  TForm1 = class(TForm)
+  { TMainForm }
+
+  TMainForm = class(TForm)
     AAdd: TAction;
     ACompile: TAction;
@@ -51 +52 @@
     Instances: TObjectList;
     Sources: TSourceList;
-  end; 
+  end;
 
 var
-  Form1: TForm1; 
+  MainForm: TMainForm;
 
 implementation
@@ -60 +61 @@
 {$R *.lfm}
 
-{ TForm1 }
-
-procedure TForm1.FormCreate(Sender: TObject);
+{ TMainForm }
+
+procedure TMainForm.FormCreate(Sender: TObject);
 begin
   Instances := TObjectList.Create;
   Sources := TSourceList.Create;
-end;
-
-procedure TForm1.AAddExecute(Sender: TObject);
+  LoadInstanceList;
+end;
+
+procedure TMainForm.AAddExecute(Sender: TObject);
 begin
   OptionsForm.ShowModal;
 end;
 
-procedure TForm1.ACompileExecute(Sender: TObject);
+procedure TMainForm.ACompileExecute(Sender: TObject);
 begin
   if Assigned(ListView1.Selected) then
@@ -82 +84 @@
 end;
 
-procedure TForm1.ARemoveExecute(Sender: TObject);
+procedure TMainForm.ARemoveExecute(Sender: TObject);
 begin
   if Assigned(ListView1.Selected) then
@@ -91 +93 @@
 end;
 
-procedure TForm1.AStartExecute(Sender: TObject);
+procedure TMainForm.AStartExecute(Sender: TObject);
 begin
   if Assigned(ListView1.Selected) then
@@ -100 +102 @@
 end;
 
-procedure TForm1.AUpdateExecute(Sender: TObject);
+procedure TMainForm.AUpdateExecute(Sender: TObject);
 begin
   if Assigned(ListView1.Selected) then
@@ -109 +111 @@
 end;
 
-procedure TForm1.FormDestroy(Sender: TObject);
-begin
+procedure TMainForm.FormDestroy(Sender: TObject);
+begin
+  SaveInstanceList;
   Instances.Free;
   Sources.Free;
 end;
 
-procedure TForm1.FormShow(Sender: TObject);
+procedure TMainForm.FormShow(Sender: TObject);
 begin
   ListView1SelectItem(nil, nil, False);
 end;
 
-procedure TForm1.ListView1Data(Sender: TObject; Item: TListItem);
+procedure TMainForm.ListView1Data(Sender: TObject; Item: TListItem);
 begin
   if Item.Index < Instances.Count then
@@ -131 +134 @@
 end;
 
-procedure TForm1.ListView1SelectItem(Sender: TObject; Item: TListItem;
+procedure TMainForm.ListView1SelectItem(Sender: TObject; Item: TListItem;
   Selected: Boolean);
 begin
@@ -141 +144 @@
 end;
 
-procedure TForm1.ReloadList;
+procedure TMainForm.ReloadList;
 begin
   ListView1.Items.Count := Instances.Count;
@@ -147 +150 @@
 end;
 
-procedure TForm1.LoadInstanceList;
+procedure TMainForm.LoadInstanceList;
 var
   Doc: TXMLDocument;
@@ -157 +160 @@
   Child: TDOMNode;
 begin
+  if FileExistsUTF8(ConfigFileName) then
   try
     ReadXMLFile(Doc, UTF8Decode(ConfigFileName));
@@ -177 +181 @@
         if Assigned(NewNode) then
           SubversionURL := UTF8Encode(string(NewNode.TextContent));
-        NewNode := Doc.DocumentElement.FindNode('Version');
-        if Assigned(NewNode) then
-          Version := UTF8Encode(string(NewNode.TextContent));
-        NewNode := Doc.DocumentElement.FindNode('Variation');
-        if Assigned(NewNode) then
-          Variation := UTF8Encode(string(NewNode.TextContent));
+        NewNode := Doc.DocumentElement.FindNode('VersionNumber');
+        if Assigned(NewNode) then
+          VersionNumber := UTF8Encode(string(NewNode.TextContent));
+        NewNode := Doc.DocumentElement.FindNode('VersionType');
+        if Assigned(NewNode) then
+          VersionType := UTF8Encode(string(NewNode.TextContent));
         NewNode := Doc.DocumentElement.FindNode('SourceType');
         if Assigned(NewNode) then
@@ -227 +231 @@
 end;
 
-procedure TForm1.SaveInstanceList;
+procedure TMainForm.SaveInstanceList;
 var
   I: Integer;
@@ -270 +274 @@
         AppendChild(NewNode);
       end;
-      AppendChild(RootNode);
+      AppendChild(NewNode);
 
       NewNode := OwnerDocument.CreateElement('Sources');
@@ -285 +289 @@
         NewNode2.TextContent := UTF8Decode(SubversionURL);
         AppendChild(NewNode);
-        NewNode2 := OwnerDocument.CreateElement('Version');
-        NewNode2.TextContent := UTF8Decode(Version);
-        AppendChild(NewNode);
-        NewNode2 := OwnerDocument.CreateElement('Variation');
-        NewNode2.TextContent := UTF8Decode(Variation);
+        NewNode2 := OwnerDocument.CreateElement('VersionType');
+        NewNode2.TextContent := UTF8Decode(VersionType);
+        AppendChild(NewNode);
+        NewNode2 := OwnerDocument.CreateElement('VersionNumber');
+        NewNode2.TextContent := UTF8Decode(VersionNumber);
         AppendChild(NewNode);
         NewNode2 := OwnerDocument.CreateElement('SourceType');
@@ -295 +299 @@
         AppendChild(NewNode);
       end;
-      AppendChild(RootNode);
+      AppendChild(NewNode);
     end;
     WriteXMLFile(Doc, UTF8Decode(ConfigFileName));
@@ -303 +307 @@
 end;
 
+procedure DownloadFile(const Url, PathToSaveTo: string);
+var
+  fs: TFileStream;
+begin
+  fs := TFileStream.Create(PathToSaveTo, fmOpenWrite or fmCreate);
+  try
+    HttpGetBinary(Url, fs);
+  finally
+    fs.Free;
+  end;
+end;
+
 end.
 

@@ -1 +1 @@
 lib
 FreePascalManager.exe
+SourceList.xml
+Config.xml