知识大全软件启动画面中启动状态的显示

Posted 2022-07-21 函数

篇首语：不为外撼，不以物移，而后可以任天下之大事。本文由小常识网(cha138.com)小编为大家整理，主要介绍了知识大全软件启动画面中启动状态的显示相关的知识，希望对你有一定的参考价值。

　我们平时看到的很多软件（PhotoShop DMax）都会在启动画面中显示当前正在启动哪个模块并在模块加载失败时给予提示这样的好处是可以让比较专业的软件使用者知道当前软件加载了哪些模块或者在软件发生启动错误时让用户得以反馈是启动的哪个模块时发生了以及在长时间的软件启动过程中让用户知道软件还在工作避免用户对其失去信息

　　好了说了那么多废话就来看看我是怎么制作这样一个程序的由于本人平时基本上都用Delphi来开发所以以下代码也都是Delphi的但是基本框架有了相信要用其它语言实现也不会很难另外以下这些代码是我在过去的历次开发过程中组部提炼出来的虽然还无法达到不修改即使用的地步但是要修改的内容也不会很多

　　我的这个类叫做TAppLoader 首先要做的是让它接管部分程序的初始化工作　　将工程dpr文件中的启动代码写成这样 varGAppLoader:TAppLoader;

beginApplication Initialize;GAppLoader:=TAppLoader Create();tryif GAppLoader DoLoad() then beginApplication Run;end;finallyGAppLoader Free;end;end 　　可以看到所有的启动代码都在TAppLoader DoLoad()函数中了如果这个函数失败则会返回false 此时就跳过Application Run();过程直接跳出程序　　接下来来看一下这个类的定义 TAppLoader = class (TObject)privateFSplashForm: TfrmSplash;FManagerList:TList;protectedprocedure InitializeManager(var AManager;AManagerClass:TCustomManagerClass);procedure OnAppLoading(ASender:TObject;AEvent:String;ADelay:Integer= );publicconstructor Create();destructor Destroy(); override;function DoLoad: Boolean;end;

　　除了刚才说到的DoLoad()函数外还可以看到这么两个函数 InitializeManager()和OnAppLoading() 　　在说明InitializeManager()函数前需要先介绍这么一个类 TCustomManagerClass = class of TCustomManager;

TCustomManager = class(TObject)privateFOnAppLoading:TAppLoadingEvent;protectedprocedure Initialize();virtual;abstract;procedure Finalize();virtual;abstract;procedure DoAppLoading(AEvent:String);property OnAppLoading:TAppLoadingEvent read FOnAppLoading write FOnAppLoading;publicconstructor Create();virtual;end;　　在我的程序中将所有的全局的资源管理类都叫做TxxxManager 而TCustomManager就定义了这些类的一些基本行为说道这里可能还有必要解释一下什么是资源管理类说白了也就是将整个软件运行期需要经常访问的资源使用的功能都集中起来管理比如我将数据库连接叫做 TDataManager 将串口通讯功能类叫做 TCommManager 等等

　　这个基类定义了Initialize()和Finalize()两个虚方法是用来让TAppLoader启动或关闭服务用的这两个方法不同与构造与析构函数它们初始化的不是类本身的资源而是一些外部连接资源（比如网络连接文件句柄串口端口等等）它们可以允许在不销毁对象的前提下进行重新连接也就是说除了在TAppLoader中会调用Initialize()和Finalize()方法你也可以在软件的使用过程中调用这两个方法（比如用户选择了新的串口端口号）

　　接着可以看到TCustomManager中有一个OnAppLoading事件在Initialize()的过程中实际的Manager类就可以调用该方法在启动画面上显示文字了该事件实际会调用TAppLoader OnAppLoading()方法它的代码如下 procedure TAppLoader OnAppLoading(ASender:TObject;AEvent:String;ADelay:Integer);beginif Assigned(FSplashForm) then beginif Assigned(ASender) then beginFSplashForm lbl Caption:=ASender ClassName+ : +AEvent;endelse beginFSplashForm lbl Caption:=AEvent;end;FSplashForm Update;if ADelay> thenSleep(ADelay);end;end;　　其中FSplashForm就是启动画面了在TAppLoader DoLoad()中调用各个Manager的Initialize()方法时这些Manager会根据自身当前初始化的内容回调这个OnAppLoading()函数此时就可以在启动画面上显示文字了

　　实际的Manager类中只要调用DoAppLoading()方法就可以将文字显示到启动画面上了如 procedure TFileImageManager Initialize();varDirectory:String;FindHandle:THandle;FindFileData:in FindData;beginDirectory:=ExtractFilePath(ParamStr( ))+ decoders\\ ;FindHandle:=FindFirstFile(PChar(Directory+ * dcd ) FindFileData);if FindHandle = INVALID_HANDLE_VALUE thenexit;repeatif (FindFileData dwFileAttributes and FILE_ATTRIBUTE_DIRECTORY)<>FILE_ATTRIBUTE_DIRECTORY then beginDoAppLoading( Loading + FindFileData cFileName);AddDecoder(Directory+FindFileData cFileName);end;until not FindNextFile(FindHandle FindFileData);Windows FindClose(FindHandle);end;

TAppLoader中还有这么一个函数 procedure TAppLoader InitializeManager(var AManager;AManagerClass:TCustomManagerClass);varInstance: TCustomManager;beginInstance := TCustomManager(AManagerClass NewInstance);TCustomManager(AManager) := Instance;tryInstance Create();FManagerList Add(@AManager);Instance OnAppLoading:=OnAppLoading;Instance Initialize();Instance OnAppLoading:=nil;exceptTCustomManager(AManager):= nil;raise;end;end;　　它用来启动一个Manager 并将其加入TAppLoader的一个FManagerList列表中在TAppLoader析构时它会自动按照这个列表来释放所有的Manager 　　在Manager的Initialize()结束后比较保险的是将它的OnAppLoading重新设为空这样如果在程序运行过程中由其它功能来调用Manager的Initialize()时就不会再回调到显示启动文字的部分了

　　最后看一下DoLoad()函数 function TAppLoader DoLoad: Boolean;beginResult:=false;Application Title:= Ultra Album ;FSplashForm:=TfrmSplash Create(nil);trytryFSplashForm Show;OnAppLoading(nil Starting );Sleep( );

InitializeManager(GOptionManager TOptionManager);InitializeManager(GRdItemClassManager TRdItemClassManager);InitializeManager(GImageManager TFileImageManager);InitializeManager(GThemeManager TFileThemeManager );InitializeManager(GMaskManager TFileMaskManager);

OnAppLoading(nil Ending );

Application CreateForm(TfrmMain frmMain);if ParamCount>= then begin //deal with the filename in the parameterFSplashForm Hide;frmMain Show;frmMain DoOpenFile(ParamStr( ));end;

cha138/Article/program/Delphi/201311/25015

知识大全 软件启动画面中启动状态的显示

知识大全软件启动画面中启动状态的显示