Changeset 86 for oup/current/Helper_LevelDB.pas

Timestamp:

Jan 14, 2007, 9:19:08 PM (18 years ago)

Author:

alloc

Message:

 

File:

• oup/current/Helper_LevelDB.pas (modified) (7 diffs)

oup/current/Helper_LevelDB.pas

@@ -79 +79 @@
   levelid:  LongWord;
   timeformat: TFormatSettings;
+
+  conIndex: Integer;
+  connection: TOniData;
 const
   steps: Byte = 3;
@@ -105 +108 @@
   timeformat.TimeSeparator := ':';
 
-  if not CreateDataConnection(Source, ODB_ADB) then
+  if CreateDataConnection(Source, ODB_ADB) = nil then
   begin
     ShowMessage('Could not connect to .oldb-file');
@@ -208 +211 @@
                 ((Data[$88] and $01) > 0) then
               begin
-                OniImage.LoadFromTXMP(i);
+                OniImage.LoadFromTXMP(Connection, i);
                 OniImage.GetMipMappedImage(rawdata);
                 rawlist[j].raw_size := OniImage.GetImageDataSize(True);
@@ -310 +313 @@
   converting := False;
 
-  CloseDataConnection;
+  CloseDataConnection(DataConnections[conIndex]);
 end;
 
@@ -345 +348 @@
   fileinfo: TFileInfo;
   timeformat: TFormatSettings;
+
+  conIndex: Integer;
 const
   steps: Byte = 4;
@@ -362 +367 @@
 
 begin
-  if not CreateDataConnection(Source, ODB_Dat) then
+  if CreateDataConnection(Source, ODB_Dat) = nil then
   begin
     ShowMessage('Could not connect to .dat-file');
@@ -564 +569 @@
   database.Free;
 
-  CloseDataConnection;
+  CloseDataConnection(DataConnections[conIndex]);
 end;