frmmain.~pas

完全自我开发的downcfg控件

unit FrmMain;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ComCtrls, ExtCtrls, StdCtrls, Buttons,downcfg;

type
  TForm1 = class(TForm)
    PageControl1: TPageControl;
    TabSheet1: TTabSheet;
    TabSheet2: TTabSheet;
    Bevel1: TBevel;
    Image1: TImage;
    Memo1: TMemo;
    Bevel2: TBevel;
    Bevel3: TBevel;
    Image2: TImage;
    BitBtn1: TBitBtn;
    ProgressBar1: TProgressBar;
    procedure BitBtn1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  dc1,dc2:tdowncfg;
  cancel:boolean=false;
implementation

{$R *.dfm}

procedure TForm1.BitBtn1Click(Sender: TObject);
var
 i,filecnt:integer;
begin
 //下载升级文件http://server/update/server.ini
 dc1:=tdowncfg.Create('','update.ini','file0');
 dc1.ProgressBar:=progressbar1;
 memo1.Lines.Add('下载升级信息......');
 if dc1.downcfg then
   memo1.Lines.Add('下载成功！！！')
 else
  begin
   memo1.Lines.Add('下载失败！！！');
   exit;
  end;
 //比较文件是否需要下载
 i:=dc1.CompareCFG(extractfilepath(paramstr(0))+'server.ini',
   extractfilepath(paramstr(0))+'update.ini');
 memo1.Lines.add(inttostr(i)+' 个文件需要下载');
 //下载文件
 i:=1;
 dc2:=tdowncfg.Create('','server.ini','file'+inttostr(i));
 filecnt:=dc2.fileCnt;
 for i:=1 to filecnt do
   begin
      if cancel then
        break;
      dc1:=tdowncfg.Create('','update.ini','file'+inttostr(i));
      dc2:=tdowncfg.Create('','server.ini','file'+inttostr(i));
      dc2.ProgressBar:=progressbar1;
      if dc2.ver>dc1.ver then
       begin
         memo1.Lines.Add('正在下载【'+dc2.desc+'】......');
         if dc2.downfile then
           begin
            memo1.Lines.Add('升级【'+dc2.desc+'】成功');
            dc2.Exefile;
            dc1.writeCFG(dc2,dc1);
           end
         else
          begin
            memo1.Lines.Add('升级【'+dc2.desc+'】失败！！！');
            memo1.Lines.Add('错误：'+dc2.error);
          end;
       end;
   end;
   memo1.Lines.Add('升级结束！');
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  form1.Left:=trunc((screen.Width-form1.Width)/2);
  form1.Top:=trunc((screen.Height-form1.Height)/2);

end;

end.