Changeset 247


Ignore:
Timestamp:
Nov 25, 2007, 3:24:53 PM (13 years ago)
Author:
alloc
Message:
 
Location:
oup/current
Files:
5 edited

Legend:

Unmodified
Added
Removed
  • oup/current/DataAccess/ConnectionManager.pas

    r112 r247  
    22interface
    33
    4 uses TypeDefs, DataAccess, Access_OniArchive, Access_OUP_ADB;
     4uses TypeDefs, DataAccess, Access_OniArchive, Access_OUP_ADB, Access_OniSplitArchive;
    55
    66type
     
    155155  else if ext = '.DAT' then
    156156    backend := DB_ONI
     157  else if ext = '.ONI' then
     158    backend := DB_ONISPLIT
    157159  else
    158160  begin
     
    168170    DB_ADB:
    169171      FConnections[i] := TAccess_OUP_ADB.Create(FileName, FLastID + 1, CreateMsg);
     172    DB_ONISPLIT:
     173      FConnections[i] := TAccess_OniSplitArchive.Create(FileName, FLastID + 1, CreateMsg);
    170174  end;
    171175
     
    179183  begin
    180184    FConnections[i].Close;
    181     FConnections[i].Free;
    182185    FConnections[i] := nil;
    183186    SetLength(FConnections, Length(FConnections) - 1);
  • oup/current/Global/TypeDefs.pas

    r241 r247  
    88  ENotImplemented = class(Exception);
    99
    10   TDataBackend = (DB_ONI, DB_ADB);
     10  TDataBackend = (DB_ONI, DB_ADB, DB_ONISPLIT);
    1111  TDataOS = (DOS_WIN, DOS_WINDEMO, DOS_MAC, DOS_MACBETA);
    1212
  • oup/current/Main.pas

    r241 r247  
    218218        ShowMessage('Load OPF-File: ' + ParamStr(2));
    219219      end
    220       else if (strings.Strings[0] = 'oldb') or (strings.Strings[0] = 'dat') then
     220      else if (strings.Strings[0] = 'oldb') or (strings.Strings[0] = 'dat') or (strings.Strings[0] = 'oni') then
    221221      begin
    222222        CreateConnection(strings.Strings[1]);
     
    281281    ShowMessage('Load OPF-File: ' + ParamStr(2));
    282282  end
    283   else if (MidStr(ParamStr(1), 1, 4) = 'oldb') or (MidStr(ParamStr(1), 1, 3) = 'dat') then
     283  else if (MidStr(ParamStr(1), 1, 4) = 'oldb') or (MidStr(ParamStr(1), 1, 3) = 'dat') or (MidStr(ParamStr(1), 1, 3) = 'oni') then
    284284  begin
    285285    CreateConnection(ParamStr(2));
     
    520520begin
    521521  opend.InitialDir := AppSettings.DatPath;
    522   opend.Filter     := 'Compatible level files|*.dat;*.oldb|Oni level (*.dat)|*.dat|OUP level database (*.oldb)|*.oldb|Any (*.*)|*';
     522  opend.Filter     := 'Compatible level files|*.dat;*.oni;*.oldb|Oni level (*.dat)|*.dat|OniSplit Archive (*.oni)|*.oni|OUP level database (*.oldb)|*.oldb|Any (*.*)|*';
    523523  if typedb then
    524524    opend.FilterIndex := 3
  • oup/current/OniUnPacker.dpr

    r245 r247  
    4646  _Extensions in 'FileClasses\_Extensions.pas',
    4747  _MetaTypes in 'FileClasses\_MetaTypes.pas',
    48   _TreeElement in 'FileClasses\_TreeElement.pas';
     48  _TreeElement in 'FileClasses\_TreeElement.pas',
     49  Access_OniSplitArchive in 'DataAccess\Access_OniSplitArchive.pas';
    4950
    5051{$R *.res}
Note: See TracChangeset for help on using the changeset viewer.