![]() |
|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
![]() Проблема такая, надо скопировать базу данных (парадокс базу 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мск не хватит, чтобы дождаться конца копирования, что делать? |