Импорт фаила базы данных...
Проблема такая, надо скопировать базу данных (парадокс базу main.db) в мою папку (с этим проблем нет). Вопрос в следующем: Как узнать что копирование закончено и можно открывать данный файл? Копирую так:
------------------------------------------------------------------
//открываю файл
FromF2:= TFileStream.Create(OpenDialog1.FileName, fmOpenRead);
//создаю пустой
ToF2:= TFileStream.Create(ExtractFilePath(Application.Exe Name) + 'db\main.db', fmCreate);
//копирую
ToF2.CopyFrom(FromF2, FromF2.Size);
// !!! Здесь жду секунду (только так и спасаюсь иначе прога выдает ошибку а если main.db будет огромным???
sleep(1000);
Table1.DatabaseName:= ExtractFilePath(Application.ExeName)+'db\';
Table1.TableName:= 'main.db';
Table1.Active:=true;
Table1.Refresh;
FromF2.Free;
ToF2.Free;
------------------------------------------------------------------
Всё работает, а вдруг файл будет большой и функции sleep в 1000мск не хватит, чтобы дождаться конца копирования, что делать?
|