ViewVC Help
View File | Revision Log | View Changeset | Root Listing
root/Oni2/oup/_old_/Helper_LevelDB.pas
(Generate patch)

Comparing oup/current/Helper_LevelDB.pas (file contents):
Revision 86 by alloc, Sun Jan 14 20:19:08 2007 UTC vs.
Revision 92 by alloc, Mon Jan 15 23:35:04 2007 UTC

# Line 58 | Line 58 | var
58    ExtensionsHeader: TExtensionsMap;
59    Stream_Body, Stream_Names: TMemoryStream;
60    Stream_Dat, Stream_Raw, Stream_Sep: TFileStream;
61 +  OniDataConnection: TOniData;
62  
63  
64  
# Line 107 | Line 108 | begin
108    timeformat.LongTimeFormat := 'hh:nn:ss';
109    timeformat.TimeSeparator := ':';
110  
111 +  connection := ConnectionExists(target);
112 +  if connection <> nil then
113 +  begin
114 +    ShowMessage('Destination-file is opened, close it in order to proceed conversion?');
115 +    Exit;
116 +  end;
117 +
118 +  connection := ConnectionExists(source);
119 +  if connection <> nil then
120 +  begin
121 +    ShowMessage('Source-file is opened, close it in order to proceed conversion?');
122 +    Exit;
123 +  end;
124 +
125 +
126    if CreateDataConnection(Source, ODB_ADB) = nil then
127    begin
128      ShowMessage('Could not connect to .oldb-file');

Diff Legend

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