| я пересмотрел своё отношение к дезодорированному и рафинированному растительном маслу и больше его не юзаю. |
| ... CreatorConnection.Database := fPathAndFilename; CreatorConnection.SpecificOptions.Values['ForceCreateDatabase'] := 'True'; //Заставит создать файл БД CreatorConnection.SpecificOptions.Values['Direct'] := 'True'; //Это задано в дизайне try CreatorConnection.Connect; except on E: Exception do begin ........ обработка ошибок Exit; end; end; Sleep(500); //Немного подождем, пока создается сам файл на диске, хотя интервалы пробовал и бОльшие Result := CreatorConnection.Connected; //Set PRAGMA try CreatorConnection.ExecSQL('PRAGMA auto_vacuum = 1'); except on E: Exception do begin ....... end; end; CreatorConnection.Disconnect; //При отключении у нас корректно обрабатывается журнал, если он есть CreatorConnection.Connect; //Заново, для создания таблиц в файле fSQL := TUniSQL.Create(nil); try fSQL.Connection := CreatorConnection; for i := 1 to DBTablesCount do begin try RS := TResourceStream.Create(HInstance, DBTables[i], RT_RCDATA); try fSQL.SQL.LoadFromStream(RS, TEncoding.UTF8); except on E: Exception do begin ....... end; end; if fSQL.SQL.Text <> '' then begin //Exec script for creating table try fSQL.Execute; except on E: Exception do begin ........ end; end; end; finally FreeAndNil(RS); end; end; finally FreeAndNil(fSQL); end; |
| CorelDRAW 9 секунд (тормозит антивирусом), повторный менее 1 с, первый запуск Corel PHOTO PAINT 2 секунды, первый запуск MS Word |
| Решилось правкой handlers.json |
| как вариант seed4me |
| читаем в шапке |
