Changeset 92 for oup/current/Helper_LevelDB.pas

Timestamp:

Jan 16, 2007, 12:35:04 AM (18 years ago)

Author:

alloc

Message:

Rev86 was first after multi-cons

File:

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

oup/current/Helper_LevelDB.pas

@@ -59 +59 @@
   Stream_Body, Stream_Names: TMemoryStream;
   Stream_Dat, Stream_Raw, Stream_Sep: TFileStream;
+  OniDataConnection: TOniData;
 
 
@@ -107 +108 @@
   timeformat.LongTimeFormat := 'hh:nn:ss';
   timeformat.TimeSeparator := ':';
+
+  connection := ConnectionExists(target);
+  if connection <> nil then
+  begin
+    ShowMessage('Destination-file is opened, close it in order to proceed conversion?');
+    Exit;
+  end;
+
+  connection := ConnectionExists(source);
+  if connection <> nil then
+  begin
+    ShowMessage('Source-file is opened, close it in order to proceed conversion?');
+    Exit;
+  end;
+
 
   if CreateDataConnection(Source, ODB_ADB) = nil then