fm_splash.~pas

realworld source code

unit FM_Splash;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, RzPrgres, ExtCtrls, StdCtrls, jpeg, ComCtrls,TH_UpXMLChannel,
  xmldom, XMLIntf, msxmldom, XMLDoc;

type
  TFMSplash = class(TForm)
    Image1: TImage;
    Label1: TLabel;
    ProgressBar1: TProgressBar;
    XML1: TXMLDocument;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    Label8: TLabel;
    XML2: TXMLDocument;
    procedure FormShow(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  FMSplash: TFMSplash;
  ViewLoadXML:TViewXMLChannel;
implementation
uses
 FM_RSS;
{$R *.dfm}

procedure TFMSplash.FormShow(Sender: TObject);
var
 XMLDoc1,XMLDoc2:TXMLDocument;
begin
  if (FileExists(ExtractFilePath(Application.ExeName)+'Favorite.xml'))=False Then
   begin
    XMLDoc2:=TXMLDocument.Create(Self);
    XMLDoc2.Active:=True;
    XMLDoc2.AddChild('tree');
    XMLDoc2.SaveToFile(ExtractFilePath(Application.ExeName)+'Favorite.xml');
    XMLDoc2.Free;
   end;
  if (FileExists(ExtractFilePath(Application.ExeName)+'RSSChannel.xml'))=False Then
   begin
    XMLDoc1:=TXMLDocument.Create(Self);
    XMLDoc1.Active:=True;
    XMLDoc1.AddChild('RSSChannel');
    XMLDoc1.SaveToFile(ExtractFilePath(Application.ExeName)+'RSSChannel.xml');
    XMLDoc1.Free;
   end;
 XML1.FileName:=ExtractFilePath(Application.ExeName)+'RSSChannel.xml';
 XML1.Active:=true;
 XML2.FileName:=ExtractFilePath(Application.ExeName)+'Favorite.xml';
 XML2.Active:=true;
 ViewLoadXML:=TViewXMLChannel.Create(False);
end;
end.