current/FileClasses/_MetaManager.pas

unit _MetaManager;
interface

uses _MetaTypes;

type
  TMetaManager = class
    protected
      FFiles: array of TFile;
      FRoot: array of TExtension;
      FConnectionID: Integer;
      function GetFileCount: Integer;
      function GetFileById(Id: Integer): TFile;
    private
      procedure InitRootFiles;
    public
      constructor Create(ConnectionID: Integer);
      procedure InitFile(id: Integer);
      procedure InitFileFields(id: Integer);

      property FileCount: Integer read GetFileCount;
      property FileById[Id: Integer]: TFile read GetFileById;
  end;

var
  Meta: TMetaManager;

implementation

uses
  Classes, ConnectionManager, Access_OniArchive, TypeDefs,
  Dialogs, SysUtils, StrUtils;

{ TFileManager }

constructor TMetaManager.Create(ConnectionID: Integer);
begin
  FConnectionID := ConnectionID;
  InitRootFiles;
end;

function TMetaManager.GetFileById(Id: Integer): TFile;
begin
  Result := FFiles[Id];
end;

function TMetaManager.GetFileCount: Integer;
begin
  Result := Length(FFiles);
end;

procedure TMetaManager.InitFile(id: Integer);
var
  typei: Integer;
  finfo: TFileInfo;
begin
  if id < ConManager.Connection[FConnectionID].GetFileCount then
  begin
    if not Assigned(FFiles[id]) then
    begin
      finfo := ConManager.Connection[FConnectionID].GetFileInfo(id);
      if finfo.Size > 0 then
      begin
        for typei := 0 to High(FileDescs) do
        begin
          if FileDescs[typei].ext = finfo.Extension then
          begin
            FFiles[id] := TFileClass(FileDescs[typei].ftype).Create(FConnectionID, id);
            Break;
          end;
        end;
        if typei > High(FileDescs) then
          FFiles[id] := TFile_Empty.Create(FConnectionID, id);
      end else
        FFiles[id] := TFile_Empty.Create(FConnectionID, id);
      Exit;
    end;
  end;
end;

procedure TMetaManager.InitFileFields(id: Integer);
begin
  if id < ConManager.Connection[FConnectionID].GetFileCount then
  begin
    if not Assigned(FFiles[id]) then
    begin
      InitFile(id);
      if not (FFiles[id] is TFile_Empty) then
        FFiles[id].InitDataFields;
    end;
  end;
end;

procedure TMetaManager.InitRootFiles;
var
  files: TStrings;
  i: Integer;
  typei: Integer;
  fid: Integer;
  finfo: TFileInfo;
begin
  if ConManager.Connection[FConnectionID] is TAccess_OniArchive then
    TAccess_OniArchive(ConManager.Connection[FConnectionID]).UnloadWhenUnused := False;
  files := TStringList.Create;
  files := ConManager.Connection[FConnectionID].GetFilesList('', '', False, ST_IDAsc);
  SetLength(FFiles, ConManager.Connection[FConnectionID].GetFileCount);
  for i := 0 to High(FFiles) do
    FFiles[i] := nil;
  if files.Count > 0 then
  begin
    for i := 0 to files.Count - 1 do
    begin
      fid := StrToInt(MidStr(files.Strings[i], 1, 5));
      finfo := ConManager.Connection[FConnectionID].GetFileInfo(fid);
      if Length(finfo.Name) > 0 then
      begin
        if finfo.Size > 0 then
        begin
          for typei := 0 to High(FileDescs) do
          begin
            if FileDescs[typei].ext = finfo.Extension then
            begin
              FFiles[fid] := TFileClass(FileDescs[typei].ftype).Create(FConnectionID, fid);
              Break;
            end;
          end;
        end
        else
          FFiles[fid] := TFile_Empty.Create(FConnectionID, fid);
      end;
    end;
  end;
  files.Free;
  if ConManager.Connection[FConnectionID] is TAccess_OniArchive then
    TAccess_OniArchive(ConManager.Connection[FConnectionID]).UnloadWhenUnused := True;
end;

end.
Revision:	228
Committed:	Wed Jun 20 09:51:38 2007 UTC (18 years, 4 months ago) by alloc
Content type:	text/x-pascal
File size:	3694 byte(s)
Log Message:
#	Content
1	unit _MetaManager;
2	interface
3
4	uses _MetaTypes;
5
6	type
7	TMetaManager = class
8	protected
9	FFiles: array of TFile;
10	FRoot: array of TExtension;
11	FConnectionID: Integer;
12	function GetFileCount: Integer;
13	function GetFileById(Id: Integer): TFile;
14	private
15	procedure InitRootFiles;
16	public
17	constructor Create(ConnectionID: Integer);
18	procedure InitFile(id: Integer);
19	procedure InitFileFields(id: Integer);
20
21	property FileCount: Integer read GetFileCount;
22	property FileById[Id: Integer]: TFile read GetFileById;
23	end;
24
25	var
26	Meta: TMetaManager;
27
28	implementation
29
30	uses
31	Classes, ConnectionManager, Access_OniArchive, TypeDefs,
32	Dialogs, SysUtils, StrUtils;
33
34	{ TFileManager }
35
36	constructor TMetaManager.Create(ConnectionID: Integer);
37	begin
38	FConnectionID := ConnectionID;
39	InitRootFiles;
40	end;
41
42	function TMetaManager.GetFileById(Id: Integer): TFile;
43	begin
44	Result := FFiles[Id];
45	end;
46
47	function TMetaManager.GetFileCount: Integer;
48	begin
49	Result := Length(FFiles);
50	end;
51
52	procedure TMetaManager.InitFile(id: Integer);
53	var
54	typei: Integer;
55	finfo: TFileInfo;
56	begin
57	if id < ConManager.Connection[FConnectionID].GetFileCount then
58	begin
59	if not Assigned(FFiles[id]) then
60	begin
61	finfo := ConManager.Connection[FConnectionID].GetFileInfo(id);
62	if finfo.Size > 0 then
63	begin
64	for typei := 0 to High(FileDescs) do
65	begin
66	if FileDescs[typei].ext = finfo.Extension then
67	begin
68	FFiles[id] := TFileClass(FileDescs[typei].ftype).Create(FConnectionID, id);
69	Break;
70	end;
71	end;
72	if typei > High(FileDescs) then
73	FFiles[id] := TFile_Empty.Create(FConnectionID, id);
74	end else
75	FFiles[id] := TFile_Empty.Create(FConnectionID, id);
76	Exit;
77	end;
78	end;
79	end;
80
81	procedure TMetaManager.InitFileFields(id: Integer);
82	begin
83	if id < ConManager.Connection[FConnectionID].GetFileCount then
84	begin
85	if not Assigned(FFiles[id]) then
86	begin
87	InitFile(id);
88	if not (FFiles[id] is TFile_Empty) then
89	FFiles[id].InitDataFields;
90	end;
91	end;
92	end;
93
94	procedure TMetaManager.InitRootFiles;
95	var
96	files: TStrings;
97	i: Integer;
98	typei: Integer;
99	fid: Integer;
100	finfo: TFileInfo;
101	begin
102	if ConManager.Connection[FConnectionID] is TAccess_OniArchive then
103	TAccess_OniArchive(ConManager.Connection[FConnectionID]).UnloadWhenUnused := False;
104	files := TStringList.Create;
105	files := ConManager.Connection[FConnectionID].GetFilesList('', '', False, ST_IDAsc);
106	SetLength(FFiles, ConManager.Connection[FConnectionID].GetFileCount);
107	for i := 0 to High(FFiles) do
108	FFiles[i] := nil;
109	if files.Count > 0 then
110	begin
111	for i := 0 to files.Count - 1 do
112	begin
113	fid := StrToInt(MidStr(files.Strings[i], 1, 5));
114	finfo := ConManager.Connection[FConnectionID].GetFileInfo(fid);
115	if Length(finfo.Name) > 0 then
116	begin
117	if finfo.Size > 0 then
118	begin
119	for typei := 0 to High(FileDescs) do
120	begin
121	if FileDescs[typei].ext = finfo.Extension then
122	begin
123	FFiles[fid] := TFileClass(FileDescs[typei].ftype).Create(FConnectionID, fid);
124	Break;
125	end;
126	end;
127	end
128	else
129	FFiles[fid] := TFile_Empty.Create(FConnectionID, fid);
130	end;
131	end;
132	end;
133	files.Free;
134	if ConManager.Connection[FConnectionID] is TAccess_OniArchive then
135	TAccess_OniArchive(ConManager.Connection[FConnectionID]).UnloadWhenUnused := True;
136	end;
137
138	end.