[ViewVC] Diff of: Oni2/oup/current/Code/OniDataClass.pas

Comparing oup/current/Code/OniDataClass.pas (file contents):
Revision 56 by alloc, Mon Dec 25 18:36:41 2006 UTC vs.
Revision 86 by alloc, Sun Jan 14 20:19:08 2007 UTC

+  published
+  end;
-+
+  TOniDataEmpty = class(TOniData)
-+
+  private
-+
+  protected
-+
+  public
-+
+    constructor Create(OLDBFilename: String; var Result: Boolean); override;
-+
+    procedure Close; override;
-+
+{
-+
+    procedure UpdateListCache;
-+
+    //      function GetDatLinks(srcid:LongWord):TDatLinks;
-+
+    function GetFileInfo(fileid: LongWord): TFileInfo; override;
-+
+    function GetFilesList(ext: String; pattern: String;
-+
+      NoEmptyFiles: Boolean; sort: TSortType): TStringArray; override;
-+
+    function GetFilesCount: LongWord; override;
-+
+    function GetExtensionsList: TStringArray; override;
-+
+    function GetExtendedExtensionsList: TExtensionsMap; override;
-+
+    function GetNamedFilesMap: TNamedFilesMap;
-+
-+
+    function LoadDatFile(fileid: LongWord): Tdata; override;
-+
+    procedure UpdateDatFile(fileid: LongWord; Data: Tdata); override;
-+
+    procedure LoadDatFilePart(fileid, offset, size: LongWord; target: Pointer); override;
-+
+    procedure UpdateDatFilePart(fileid, offset, size: LongWord; target: Pointer); override;
-+
-+
+    function GetRawList(fileid: LongWord): TRawList; override;
-+
+    procedure LoadRawFile(fileid, dat_offset: LongWord; target: Pointer); override;
-+
+    procedure UpdateRawFile(fileid, dat_offset: LongWord; size: LongWord;
-+
+      target: Pointer); override;
-+
+    procedure LoadRawFilePart(fileid, dat_offset: LongWord;
-+
+      offset, size: LongWord; target: Pointer); override;
-+
+    procedure UpdateRawFilePart(fileid, dat_offset: LongWord;
-+
+      offset, size: LongWord; target: Pointer); override;
-+
+}  published
-+
+  end;
+const
+  ODB_None = -1;
+  ODB_ADB  = 1;
+var
-+
+//  OniDataConnection: TOniData;
-+
+  DataConnections: array of TOniData;
+  OniDataConnection: TOniData;
-<
+function CreateDataConnection(filename: String; backend: Integer): Boolean;
-<
+procedure CloseDataConnection;
->
+function CreateDataConnection(filename: String; backend: Integer): TOniData;
->
+procedure CloseDataConnection(connection: TOniData);
->
-<
+function CreateDataConnection(filename: String; backend: Integer): Boolean;
->
+function CreateDataConnection(filename: String; backend: Integer): TOniData;
+var
+  answer: Boolean;
-+
+  i: Integer;
+begin
-<
+  if Assigned(OniDataConnection) then
->
+  if Length(DataConnections) > 0 then
->
+  begin
->
+    for i := 0 to High(DataConnections) do
->
+    begin
->
+      if ExtractFileName(DataConnections[i].FFileName) = ExtractFileName(filename) then
->
+      begin
->
+        if DataConnections[i].FFileName <> filename then
->
+        begin
->
+          Result := nil;
->
+          ShowMessage('You can not open two files with the same name at a time.');
->
+        end
->
+        else
->
+          Result := DataConnections[i];
->
+        Exit;
->
+      end;
->
+    end;
->
+  end;
->
->
+  if not FileExists(filename) then
+  begin
-<
+    OniDataConnection.Close;
-<
+    OniDataConnection.Free;
-<
+    OniDataConnection := nil;
->
+    ShowMessage('File "' + filename + '" does not exist!');
->
+    Result := nil;
->
+    Exit;
+  end;
-+
-+
+  SetLength(DataConnections, Length(DataConnections) + 1);
-+
+  i := High(DataConnections);
+  case backend of
+    ODB_Dat:
-<
+      OniDataConnection := TOniDataDat.Create(filename, answer);
->
+      DataConnections[i] := TOniDataDat.Create(filename, answer);
+    ODB_ADB:
-<
+      OniDataConnection := TOniDataADB.Create(filename, answer);
->
+      DataConnections[i] := TOniDataADB.Create(filename, answer);
+    else
+      ShowMessage('Unknown Backend');
-<
+      Result := False;
->
+      Result := nil;
+      Exit;
+  end;
+  if answer then
+  begin
-<
+    //      ShowMessage('file loaded');
-<
+    //      ShowMessage('Files: '+IntToStr(OniDataConnection.GetFilesCount));
-<
+    Result := True;
->
+    Result := DataConnections[i];
->
+//    Result := True;
+  end
+  else
+  begin
+    ShowMessage('File not loaded');
-<
+    OniDataConnection.Close;
-<
+    OniDataConnection.Free;
-<
+    Result := False;
->
+    DataConnections[i].Close;
->
+    DataConnections[i].Free;
->
+    DataConnections[i] := nil;
->
+    SetLength(DataConnections, Length(DataConnections) - 1);
->
+    Result := nil;
+  end;
+end;
-<
+procedure CloseDataConnection;
->
+procedure CloseDataConnection(connection: TOniData);
->
+var
->
+  i: Integer;
->
+  found: Boolean;
+begin
-<
+  if Assigned(OniDataConnection) then
->
+  if Assigned(connection) then
+  begin
-<
+    OniDataConnection.Close;
-<
+    OniDataConnection := nil;
->
+    found := False;
->
+    for i := 0 to High(DataConnections) do
->
+    begin
->
+      if not found then
->
+      begin
->
+        if DataConnections[i] = connection then
->
+        begin
->
+          DataConnections[i].Close;
->
+          DataConnections[i].Free;
->
+          DataConnections[i] := nil;
->
+          found := True;
->
+        end;
->
+      end
->
+      else
->
+      begin
->
+        DataConnections[i - 1] := DataConnections[i];
->
+      end;
->
+    end;
->
+    if found then
->
+      SetLength(DataConnections, Length(DataConnections) - 1);
+  end;
+end;
-+
-+
-+
-+
+constructor TOniDataEmpty.Create(OLDBFilename: String; var Result: Boolean);
-+
+var
-+
+  i, j:  Byte;
-+
+  temps: String;
-+
+begin
-+
+  ShowMessage('OLD');
-+
+end;
-+
-+
+procedure TOniDataEmpty.Close;
-+
+begin
-+
+  ShowMessage('OLD');
-+
+end;
-+
+end.

Diff Legend

-–
+Removed lines
-+
+Added lines
-<
+Changed lines (old)
->
+Changed lines (new)

Comparing oup/current/Code/OniDataClass.pas (file contents): Revision 56 by alloc, Mon Dec 25 18:36:41 2006 UTC vs. Revision 86 by alloc, Sun Jan 14 20:19:08 2007 UTC

Diff Legend

Comparing oup/current/Code/OniDataClass.pas (file contents):
Revision 56 by alloc, Mon Dec 25 18:36:41 2006 UTC vs.
Revision 86 by alloc, Sun Jan 14 20:19:08 2007 UTC