void TConfiguration::CleanupRandomSeedFile() { try { DontSaveRandomSeed(); if (::FileExists(ApiPath(GetRandomSeedFileName()))) { DeleteFileChecked(GetRandomSeedFileName()); } } catch (Exception & E) { throw ExtException(&E, LoadStr(CLEANUP_SEEDFILE_ERROR)); } }
//--------------------------------------------------------------------------- void __fastcall TConfiguration::CleanupRandomSeedFile() { try { DontSaveRandomSeed(); if (FileExists(RandomSeedFileName)) { DeleteFileChecked(RandomSeedFileName); } } catch (Exception &E) { throw ExtException(&E, LoadStr(CLEANUP_SEEDFILE_ERROR)); } }
//--------------------------------------------------------------------------- void __fastcall TConfiguration::CleanupIniFile() { try { if (FileExists(IniFileStorageNameForReading)) { DeleteFileChecked(IniFileStorageNameForReading); } if (Storage == stIniFile) { FDontSave = true; } } catch (Exception &E) { throw ExtException(&E, LoadStr(CLEANUP_INIFILE_ERROR)); } }
void TConfiguration::CleanupIniFile() { #if 0 try { if (::FileExists(ApiPath(GetIniFileStorageNameForReading()))) { DeleteFileChecked(GetIniFileStorageNameForReading()); } if (GetStorage() == stIniFile) { FDontSave = true; } } catch (Exception & E) { throw ExtException(&E, LoadStr(CLEANUP_INIFILE_ERROR)); } #endif }
void TSessionLog::CheckSize(int64_t Addition) { int64_t MaxSize = FConfiguration->GetLogMaxSize(); if ((MaxSize > 0) && (FCurrentFileSize + Addition >= MaxSize)) { // Before we close it UnicodeString BaseName = FCurrentFileName; CloseLogFile(); FCurrentFileSize = 0; intptr_t Index = 0; while (FileExists(LogPartFileName(BaseName, Index + 1))) { Index++; } intptr_t MaxCount = FConfiguration->GetLogMaxCount(); do { UnicodeString LogPart = LogPartFileName(BaseName, Index); if ((MaxCount > 0) && (Index >= MaxCount)) { DeleteFileChecked(LogPart); } else { THROWOSIFFALSE(::RenameFile(LogPart, LogPartFileName(BaseName, Index + 1))); } Index--; } while (Index >= 0); OpenLogFile(); } }