Форум программистов [Powered by Invision Power Board]

Код


 if not InternetCheckConnection('http://www.ya.ru/', 1, 0) then
                begin
                RasTry:=RasTry+1;
                If RasTry=10 then stopmoment:=6;
                sCheckBox3.Checked:=true;
                Timer1.Interval:=5000;
                ConectedVia:=2;
                logevent[lognum].DataLog:=Date();
                logevent[lognum].TimeLog:=time();
                logevent[lognum].Ivent:='Starting conection RAS';
                LogNum:=LogNum+1;
                logevent[lognum].DataLog:=Date();
                logevent[lognum].TimeLog:=time();
                logevent[lognum].Ivent:=RasManager1.Name[0];
                LogNum:=LogNum+1;
                logevent[lognum].DataLog:=Date();
                logevent[lognum].TimeLog:=time();
                logevent[lognum].Ivent:=RasManager1.DeviceName[0];
                LogNum:=LogNum+1;
                logevent[lognum].DataLog:=Date();
                logevent[lognum].TimeLog:=time();
                logevent[lognum].Ivent:=RasManager1.PhoneNumber[0];
                LogNum:=LogNum+1;
                if RasManager1.Connected[0] then
                        begin
                        rasmanager1.DisConnect(0);
                        RasManager1.Connect(0);
                        end
                else RasManager1.Connect(0);
                logevent[lognum].DataLog:=Date();
                logevent[lognum].TimeLog:=time();
                logevent[lognum].Ivent:='Start RAS connection';
                LogNum:=LogNum+1;
                end
        else
                begin
                sCheckBox3.Checked:=true;
                sCheckBox4.Enabled:=false;
                logevent[lognum].DataLog:=Date();
                logevent[lognum].TimeLog:=time();
                logevent[lognum].Ivent:='Conecting via LAN';
                LogNum:=LogNum+1;
                ConectedVia:=1;
                stopmoment:=1;
                Timer1.Enabled:=true;
                label14.Caption:='100 Mb/s';
                end;
        end;
1:      Begin
        logevent[lognum].DataLog:=Date();
        logevent[lognum].TimeLog:=time();
        logevent[lognum].Ivent:='Connecting FTP Start';
        LogNum:=LogNum+1;
        NMFTP1.Connect
        end;
2:      Begin
        logevent[lognum].DataLog:=Date();
        logevent[lognum].TimeLog:=time();
        logevent[lognum].Ivent:='Davnload file update status';
        LogNum:=LogNum+1;
                try
                NMFTP1.ChangeDir(ProjectName);
                NMFTP1.ChangeDir(UpdateDir);
                NMFTP1.Download('Update.txt', 'C:\Update.txt');
                except
        trys:=trys+1;
        if trys=1 then browserstart(IndexFile);
        stopmoment:=2;
        abort;
        Timer1.Enabled:=true;
        end;
        logevent[lognum].DataLog:=Date();
        logevent[lognum].TimeLog:=time();
        logevent[lognum].Ivent:='Chek curent status';
        LogNum:=LogNum+1;
        assignfile(f,'C:\Update.txt');
        reset(f);
        readln(f,s);
        closefile(f);
        logevent[lognum].DataLog:=Date();
        logevent[lognum].TimeLog:=time();
        logevent[lognum].Ivent:='status Cheked';
        LogNum:=LogNum+1;
        now:=now+1;
        sCheckbox6.Checked:=true;
while strtoint(s)>=now do
        begin
                Statusbar1.Panels.Items[0].Text:='Dawnloading update list. Status 07.A1';
                        try
                        NMFTP1.ChangeDir(inttostr(now));
                        except
                        trys:=trys+1;
                        if trys=1 then browserstart(IndexFile);
                        stopmoment:=2;
                        abort;
                        end;
                NMFTP1.Download('Scenary.txt', 'c:\'+inttostr(now)+'.txt');
                Statusbar1.Panels.Items[0].Text:='Cheking updatelist. Status 08.A1';
                assignfile(f,'C:\'+inttostr(now)+'.txt');
                reset(f);
                while not EOF(f) do
                        begin
                        readln(f, tempstr);
                        Listbox1.Items.Add(tempstr);
                        s1:=tempstr[1];
                        proc:=strtoint(s1);
                                case proc of
                                1: DeleteFileU(tempstr);
                                2: DeleteDirU(tempstr);
                                3: CreateDirU(tempstr);
                                4: DawnloadFileU(tempstr);
                                //'5': StartBat(tempstr);
                                6: StartReg(tempstr);
                                //'7': StartExe(tempstr);
                                end;
                        now:=now+1;
                        end;
                closefile(f);
                Statusbar1.Panels.Items[0].Text:='Starting update. Status 09.A1';
                Statusbar1.Panels.Items[0].Text:='Update complite. Status 0B.A1';
                NMFTP1.Disconnect;
                end;
        //end;
        Statusbar1.Panels.Items[0].Text:='Curent status of udates is good. Status 05.A1';
        NMFTP1.Disconnect;
        Statusbar1.Panels.Items[0].Text:='Diskonected. Status 06.A1';
        browserstart(IndexFile);
        Statusbar1.Panels.Items[0].Text:='Starting Inform kiosk. Status 06.A1';
        form1.Close;
        end;
end;