Changeset 247 for oup/current

Timestamp:

Nov 25, 2007, 3:24:53 PM (17 years ago)

Author:

alloc

Message:

 

Location:

oup/current

Files:

• DataAccess/ConnectionManager.pas (modified) (4 diffs)
• Global/TypeDefs.pas (modified) (1 diff)
• Main.pas (modified) (3 diffs)
• OniUnPacker.dpr (modified) (1 diff)
• _exe/OniUnPacker.exe (modified) ( previous)

oup/current/DataAccess/ConnectionManager.pas

@@ -2 +2 @@
 interface
 
-uses TypeDefs, DataAccess, Access_OniArchive, Access_OUP_ADB;
+uses TypeDefs, DataAccess, Access_OniArchive, Access_OUP_ADB, Access_OniSplitArchive;
 
 type
@@ -155 +155 @@
   else if ext = '.DAT' then
     backend := DB_ONI
+  else if ext = '.ONI' then
+    backend := DB_ONISPLIT
   else
   begin
@@ -168 +170 @@
     DB_ADB:
       FConnections[i] := TAccess_OUP_ADB.Create(FileName, FLastID + 1, CreateMsg);
+    DB_ONISPLIT:
+      FConnections[i] := TAccess_OniSplitArchive.Create(FileName, FLastID + 1, CreateMsg);
   end;
 
@@ -179 +183 @@
   begin
     FConnections[i].Close;
-    FConnections[i].Free;
     FConnections[i] := nil;
     SetLength(FConnections, Length(FConnections) - 1);

oup/current/Global/TypeDefs.pas

@@ -8 +8 @@
   ENotImplemented = class(Exception);
 
-  TDataBackend = (DB_ONI, DB_ADB);
+  TDataBackend = (DB_ONI, DB_ADB, DB_ONISPLIT);
   TDataOS = (DOS_WIN, DOS_WINDEMO, DOS_MAC, DOS_MACBETA);
 

oup/current/Main.pas

@@ -218 +218 @@
         ShowMessage('Load OPF-File: ' + ParamStr(2));
       end
-      else if (strings.Strings[0] = 'oldb') or (strings.Strings[0] = 'dat') then
+      else if (strings.Strings[0] = 'oldb') or (strings.Strings[0] = 'dat') or (strings.Strings[0] = 'oni') then
       begin
         CreateConnection(strings.Strings[1]);
@@ -281 +281 @@
     ShowMessage('Load OPF-File: ' + ParamStr(2));
   end
-  else if (MidStr(ParamStr(1), 1, 4) = 'oldb') or (MidStr(ParamStr(1), 1, 3) = 'dat') then
+  else if (MidStr(ParamStr(1), 1, 4) = 'oldb') or (MidStr(ParamStr(1), 1, 3) = 'dat') or (MidStr(ParamStr(1), 1, 3) = 'oni') then
   begin
     CreateConnection(ParamStr(2));
@@ -520 +520 @@
 begin
   opend.InitialDir := AppSettings.DatPath;
-  opend.Filter     := 'Compatible level files|*.dat;*.oldb|Oni level (*.dat)|*.dat|OUP level database (*.oldb)|*.oldb|Any (*.*)|*';
+  opend.Filter     := 'Compatible level files|*.dat;*.oni;*.oldb|Oni level (*.dat)|*.dat|OniSplit Archive (*.oni)|*.oni|OUP level database (*.oldb)|*.oldb|Any (*.*)|*';
   if typedb then
     opend.FilterIndex := 3

oup/current/OniUnPacker.dpr

@@ -46 +46 @@
   _Extensions in 'FileClasses\_Extensions.pas',
   _MetaTypes in 'FileClasses\_MetaTypes.pas',
-  _TreeElement in 'FileClasses\_TreeElement.pas';
+  _TreeElement in 'FileClasses\_TreeElement.pas',
+  Access_OniSplitArchive in 'DataAccess\Access_OniSplitArchive.pas';
 
 {$R *.res}