| 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'); |