58 |
|
ExtensionsHeader: TExtensionsMap; |
59 |
|
Stream_Body, Stream_Names: TMemoryStream; |
60 |
|
Stream_Dat, Stream_Raw, Stream_Sep: TFileStream; |
61 |
+ |
OniDataConnection: TOniData; |
62 |
|
|
63 |
|
|
64 |
|
|
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'); |