Юзаю TDBF в одном из классов (т.е. компонент брошен не на форму, а в классе динамически создается). Если таблицы не существует — ручками добавляю определения полей и индексов, потом вызываю Avctive = true. TableLevel установлен в 7. Способ создания таблицы — omAutoCreate.
Что самое интересное: получил несколько писем от болгар (привет братьям-славянам
![](/Forum/Images/super.gif)
), в которых говорится об ошибке "Не удалось создать пустую базу!". Эта ошибка, собственно, и возникает тогда, когда перехвачен Exception при вызове CreateTable, который, суть, всё одно вызывается, если таблички на диске нету (это я про косвенность вызова Active = true).
Грешу на всяческие Codepage и LanguageID. Беглый просмотр исходников TDBF показал, что вроде как компонент сам разруливает ситуацию с определением кодовых страниц и прочего подобного добра. Мне — так вообще пофигу, какая там локаль: я все текстовые данные держу в Base64.
Пока проблема решилась включением пустой базы в сетап, но чувствую, что это ну просто очень неправильно, т.к. фик его знает, где выплывет косяк на этот раз — база-то создавалась на моей машине, под русской локалью.
Вопрос, собственно, в чем: можно ли как-то дать понять TDBF, что мне наплевать на всяческие локали и пускай он не дурит и просто создаст файлики на диске? И если можно, то где подрихтовать?
Здравствуйте, Flamer, Вы писали:
А нельзя ли уточнить кто создатель компоненты ?
А то у меня конфликт имен
Здравствуйте, Danchik, Вы писали:
D>А нельзя ли уточнить кто создатель компоненты ?
D>А то у меня конфликт имен
Компонент был взят отсюда:
http://tdbf.sourceforge.net/
Здравствуйте, Flamer, Вы писали:
F>Здравствуйте, Danchik, Вы писали:
D>>А нельзя ли уточнить кто создатель компоненты ?
D>>А то у меня конфликт имен
F>Компонент был взят отсюда: http://tdbf.sourceforge.net/
Хм, создаются таблички. Это самое, может креш код (сампл) который крешает (не работает).
Так с ходу у TDBF есть событие OnLocaleError : TDbfLocaleErrorEvent
TDbfLocaleErrorEvent = procedure(var Error: TLocaleError; var Solution: TLocaleSolution) of object;
в котором можна возвратить Solution := lsBinary
Здравствуйте, Danchik, Вы писали:
[]
D>Хм, создаются таблички. Это самое, может креш код (сампл) который крешает (не работает).
Да и у меня тоже создаются
![](/Forum/Images/smile.gif)
А код довольно простой и тупой:
bool __fastcall TDB::CreateCategoryTable()
{
try
{
// Create table for note categories
FCategoryTable->TableLevel = 7;
FCategoryTable->TableName = FCategoryFileName;
FCategoryTable->OpenMode = omAutoCreate;
FCategoryTable->StoreDefs = true;
FCategoryTable->FieldDefs->Clear();
//DONE: Структура таблицы категорий
TFieldDef* def = FCategoryTable->FieldDefs->AddFieldDef();
def->Required = true;
def->DataType = ftAutoInc;
def->Name = "CategoryID";
def = FCategoryTable->FieldDefs->AddFieldDef();
def->Required = true;
def->DataType = ftString;
def->Name = "CategoryName";
def->Size = MAX_CATEGORY_NAME_LENGTH;
def = FCategoryTable->FieldDefs->AddFieldDef();
def->Required = true;
def->DataType = ftDateTime;
def->Name = "CreatedDate";
def = FCategoryTable->FieldDefs->AddFieldDef();
def->Required = true;
def->DataType = ftBoolean;
def->Name = "Deleted";
def = FCategoryTable->FieldDefs->AddFieldDef();
def->Required = true;
def->DataType = ftInteger;
def->Name = "IconIndex";
def = FCategoryTable->FieldDefs->AddFieldDef();
def->Required = false;
def->DataType = ftInteger;
def->Name = "ParentCategoryID";
FCategoryTable->Active = true;
FCategoryTable->Active = false;
}
catch(Exception& e)
{
#ifdef _DEBUG
Application->ShowException(&e);
#endif
return false;
}
return true;
}
Есть вторая функция на создание второй таблички — там по виду то же самое, за добавлением создания memo-полей. Memo-поля добавляются аналогичным образом. Вот в какой-то из этих функций и происходит облом...
D>Так с ходу у TDBF есть событие OnLocaleError : TDbfLocaleErrorEvent
Спасибо, попробую...