Дэльфисты есть?
18-01-2008 20:32
к комментариям - к полной версии
- понравилось!
Собственно, пост был для community_coding, но мало ли дэльфисты найдутся...
Приложение работает с небольшой БД. БД создал через Database Desktop, но в BDE Alias не задавал. При создании формы задаю:
procedure TForm1.FormCreate(Sender: TObject);
begin
with Session do
begin
ConfigMode := cmSession;
try
// файл данных находиться в подкаталоге DATA каталога программы.
// создадим временный псевдоним для базы данны
AddStandardAlias( 'Dandr',
ExtractFilePath(ParamStr(0))+'DATA',
'PARADOX');
Table1.Active:=True; // откроем базу данных
finally
ConfigMode := cmAll;
end;
end;
end;
вверх^
к полной версии
понравилось!
в evernote
Собственно, пост был для community_coding, но мало ли дэльфисты найдутся...
Приложение работает с небольшой БД. БД создал через Database Desktop, но в BDE Alias не задавал. При создании формы задаю:
procedure TForm1.FormCreate(Sender: TObject);
begin
with Session do
begin
ConfigMode := cmSession;
try
// файл данных находиться в подкаталоге DATA каталога программы.
// создадим временный псевдоним для базы данны
AddStandardAlias( 'Dandr',
ExtractFilePath(ParamStr(0))+'DATA',
'PARADOX');
Table1.Active:=True; // откроем базу данных
finally
ConfigMode := cmAll;
end;
end;
end;
Т.о. псевдоним задаётся динамически. На моей машине приложение нормально видит базу: подгружаются колонки, можно редактировать, но при запуске на другой (дэльфи не стоит) получаю сообщение об ошибке BDE и в форму база не загружается...
В чём косяк? Куда копать?
Комментарии (21):
Поищи в интернете как использовать таблицы paradox (я уже забыл что это такое, зато работает без проблем) без BDE, или же создавай маленького установщика, который всего-лишь установит BDE на другую машинку.
Проверить, установлена ли бэдэйе =) :
with TRegistry.create dobegin Rootkey := HKEY_LOCAL_MACHINE;
OpenKey('SOFTWARE\BORLAND\DATABASE ENGINE', false);
CFGFile := ReadString('CONFIGFILE01');
Free;
end;
или же
uses BDE;
function CheckBDEInstalled: Boolean;
begin Result := (dbiInit(nil) = DBIERR_NONE)
end;
procedure TForm1.Button1Click(Sender: TObject);
begin if CheckBDEInstalled then ShowMessage('BDE is installed.')
else ShowMessage('BDE is not installed.')
end;
Автор: livenebo
Поищи в интернете как использовать таблицы paradox (я уже забыл что это такое, зато работает без проблем) без BDE, или же создавай маленького установщика, который всего-лишь установит BDE на другую машинку.
Эта базка и есть в формате paradox.
C установщиком ты загнул: уровень у меня пока не тот...
Автор: livenebo
Ты о чём? Я тебя не совсем понимаю, ты так абстрактно и размыто выражашься ;-)))
Ну, положим, скину я её по мылу кому-либо. И чего? объяснять, что надо ставить какую-то бде?
Зачем? Еще раз говорю, делаешь установщик с компонентами bde. Типа сетапа. Пользователь его запускает, тупо нажимает далее, ладее, готово и bde уже у него на компьютере...
Кстати, наверняка, в инете уже есть установщики bde. Посмотри сверху четвертый пункт
Кстати, наверняка, в инете уже есть установщики bde. Посмотри сверху четвертый пункт
Автор: liveneboЛадно, уболтал...
Зачем? Еще раз говорю, делаешь установщик с компонентами bde. Типа сетапа. Пользователь его запускает, тупо нажимает далее, ладее, готово и bde уже у него на компьютере...
Кстати, наверняка, в инете уже есть установщики bde. Посмотри сверху четвертый пункт
CONSTantius
18-01-2008-23:31
удалить
Автор: CONSTantiusЛадно, придётся ставить...QoSyS, Не нада, Дельфей я люблю! :) И Паскаль ничего так.
Комментарии (21):
вверх^
Вы сейчас не можете прокомментировать это сообщение.
Дневник Дэльфисты есть? | dandr - The Dragon's Path |
Лента друзей dandr
/ Полная версия
Добавить в друзья
Страницы:
раньше»