Delphi 信息化管理系统开源框架 @ 启动时刻

 1 Program StarOfficeMain;
 2 
 3 uses
 4   StarOfficeApplication,
 5   MainForm in ‘Form\MainForm.pas‘ {frmMain},
 6   StarMainFormInterface in ‘Interface\StarMainFormInterface.pas‘;
 7 
 8 {$R *.res}
 9 
10 begin
11   ReportMemoryLeaksOnShutdown:=True;
12   Application.Initialize;
13   Application.MainFormOnTaskbar := True;
14   Application.CreateForm(TfrmMain, frmMain);
15   Application.Run;
16 end.

1 unit StarOfficeApplication;
2 
3 var
4   Application:TStarOfficeApplication;

1 constructor TStarOfficeApplication.Create;
2 begin
3   FModuleMgr:=TStarModuleManager.Create;
4 end;

1 procedure TStarOfficeApplication.Run;
2 begin
3   Forms.Application.Run;
4   FModuleMgr.final;
5 end;

1 constructor TStarModuleManager.Create;
2 begin
3   FLoadBatch:=‘‘;
4   FModuleList := TObjectList.Create(True);
5   TStarObjectFactoryExt.Create([IStarModuleInfoEnum,IStarModuleLoader], self);
6 end;

 1 constructor TStarBaseFactoryExt.Create(const IIDs: array of TGUID);
 2 var i:Integer;
 3 begin
 4   FIIDList:=TStringList.Create;
 5   
 6   for i:=low(IIDs) to high(IIDs) do
 7   begin
 8     if StarOfficeFactory.Exists(IIDs[i]) then
 9       Raise Exception.CreateFmt(Err_IntfExists,[GUIDToString(IIDs[i])]);
10       
11     FIIDList.Add(GUIDToString(IIDs[i]));
12   end;
13   StarOfficeFactory.RegisterFactory(self);
14 end;

1 function StarOfficeFactory:TStarFactoryManager;
2 begin
3   if FFactoryManager=nil then
4     FFactoryManager:=TStarFactoryManager.Create;
5 
6   Result:=FFactoryManager;
7 end;

 1 procedure TfrmMain.FormCreate(Sender: TObject);
 2 var Intf: IStarModuleLoader;
 3 begin
 4   TStarObjectFactory.Create(IStarMainForm,Self);;
 5 
 6   Intf:=StarOffice as IStarModuleLoader;
 7   Intf.LoadBegin;
 8   Intf.LoadModulesFromDir;
 9   Intf.LoadFinish;
10 
11   (StarOffice as IStarEventManager).EnumEvent(Self);
12 end;

1 function StarOffice: IInterface;
2 begin
3   if not Assigned(FSysService) then
4     FSysService := TStarOfficeService.Create;
5 
6   Result := FSysService;
7 end;

1 TStarOfficeService = class(TObject, IInterface)
2   private
3     FRefCount: Integer;
4   protected
5     function QueryInterface(const IID: TGUID; out Obj): HResult; stdcall;
6     function _AddRef: Integer; stdcall;
7     function _Release: Integer; stdcall;
8   public
9   end;

 1 function TStarOfficeService.QueryInterface(const IID: TGUID; out Obj): HResult;
 2 var
 3   aFactory: TStarFactory;
 4 begin
 5   Result := E_NOINTERFACE;
 6   if self.GetInterface(IID, Obj) then
 7     Result := S_OK
 8   else
 9   begin
10     aFactory := StarOfficeFactory.FindFactory(IID);
11     if Assigned(aFactory) then
12     begin
13       aFactory.CreateInstance(IID, Obj);
14       Result := S_OK;
15     end;
16   end;
17 end;