VPF::Lazarus и FireBird - Форум программистов

ilya198293

Дата 19.7.2013, 13:31 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 170
Регистрация: 17.3.2007
Где: Сириус, созвездие Большого Пса

Репутация: нет
Всего: нет

Пишу приложение с использованием lazarus и firebird.

Глюк наблюдается на клиентской машине. На самом сервере firebird глюка нет.

При создании главной формы пишу:

Код


FBCon.Connected:=true;

В процессе работы программы открываю/закрываю окна.
В них использую:

Код


F_GlForm.SQLTrans.Active:=true;

INSERT/UPDATE/DELETE

F_GlForm.SQLTrans.Active:=false;

На главной форме при закрытии пишу

Код


procedure FormClose(Sender: TObject; var CloseAction: TCloseAction);
begin
  FBCon.Connected:=false;
  CloseAction:=caFree;
end;

И выходит стандартное windowое сообщение о не правильной работе приложения.
Не понятно почему такое происходит.
Прошу подсказать.
Заранее благодарен.

--------------------

Недавно пытался объяснить сыну, кто такой модератор. Сошлись на Мойдодыре.

Alexeis

Дата 19.7.2013, 15:30 (ссылка)

(нет голосов)

Загрузка ...

Амеба

Профиль
Группа: Админ
Сообщений: 11743
Регистрация: 12.10.2005
Где: Зеленоград

Репутация: нет
Всего: 459

Если убрать строчку FBCon.Connected:=false; перестает падать?

--------------------

Vit вечная память.

Обсуждение действий администрации форума производятся только в этом форуме

гениальность идеи состоит в том, что ее невозможно придумать

ilya198293

Дата 19.7.2013, 17:42 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Я её недавно добавил в надежде, что перестанет падать.

--------------------

Недавно пытался объяснить сыну, кто такой модератор. Сошлись на Мойдодыре.

Alexeis

Дата 19.7.2013, 21:34 (ссылка)

(нет голосов)

Загрузка ...

Амеба

Профиль
Группа: Админ
Сообщений: 11743
Регистрация: 12.10.2005
Где: Зеленоград

Репутация: нет
Всего: 459

Попробуй поставить в деструкторах объектов формы бряки (в том числе и деструкторе формы). Бывают такие траблы из-за попытки повторного уничтожения объекта. Т.е. объект уже был удален автоматически встроенным механизом + где-то еще руками уничтожается или наоборот, удален руками, но владелец объекта не был уведомлен об этом событии и удаляет сам повторно.

--------------------

ilya198293

Дата 20.7.2013, 02:56 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Цитата(Alexeis @ 19.7.2013, 21:34

)

Попробуй поставить в деструкторах объектов формы бряки (в том числе и деструкторе формы)

Ничего не понял.

--------------------

Недавно пытался объяснить сыну, кто такой модератор. Сошлись на Мойдодыре.

ilya198293

Дата 20.7.2013, 05:28 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Только что провёл эксперимент.
Тот клиентский компьютер на котором проводились первичные эксперименты и там где наблюдается глюк настроен местным админом и там ограничены права. Глюк возникает даже если просто запустить программу и тут же выйти.
По сути выполняется только:

Код


FBCon.Connected:=true;

Код


procedure FormClose(Sender: TObject; var CloseAction: TCloseAction);
begin
  FBCon.Connected:=false; {эту строку пробовал убирать ничего не помогает}
  CloseAction:=caFree;
end;

На домашнем компе с правами админа, такая ситуация не возникает.
Где-то проблема в администрировании клиентского компа.

Это сообщение отредактировал(а) ilya198293 - 20.7.2013, 05:30

--------------------

Недавно пытался объяснить сыну, кто такой модератор. Сошлись на Мойдодыре.

Akella

Дата 20.7.2013, 10:29 (ссылка)

(нет голосов)

Загрузка ...

Творец

Профиль
Группа: Модератор
Сообщений: 18485
Регистрация: 14.5.2003
Где: Корусант

Репутация: нет
Всего: 329

Цитата(ilya198293 @ 19.7.2013, 13:31

)

F_GlForm.SQLTrans.Active:=true;
INSERT/UPDATE/DELETE
F_GlForm.SQLTrans.Active:=false;

а где commit?

Добавлено через 2 минуты и 10 секунд

Цитата(ilya198293 @ 20.7.2013, 05:28

)

значит FB тут не причём
смотри, куда твоя программа лезет, в какую папку или реестр
куда пишет?
особенно критично, если ты пишешь в папки типа c:\program files\, c:\, c:\windows\

Добавлено через 2 минуты и 35 секунд
сделай тестовый пустой проект, будет ли проблема?

ilya198293

Дата 20.7.2013, 12:19 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

commit подразумевается под выполнением INSERT/UPDATE/DELETE.
все необходимые данные вставляются, обновляются и удаляются. всё работает.
при запуске программы выполняется процедура:

Код


procedure TF_GlForm.FormCreate(Sender: TObject);
begin
  DecimalSeparator := '.';
  PathINI := ExtractFilePath(ParamStr(0)) + 'settings.ini';
  IniF := TIniFile.Create(PathINI);
  FBCon.HostName := IniF.ReadString('DATABASE', 'Host', '');
  DBPath := IniF.ReadString('DATABASE', 'DataBasePath', '');
  FBCon.DatabaseName := DBPath;
  FBCon.UserName := IniF.ReadString('DATABASE', 'user_name', '');
  FBCon.Password := IniF.ReadString('DATABASE', 'password', '');
  FBCon.Connected := True;
  FormDan := 0;
end;

при закрытии приложения:

Код


procedure TF_GlForm.FormClose(Sender: TObject; var CloseAction: TCloseAction);
begin
  FBCon.Connected := False;
  CloseAction := caFree;
end;

Папка с программой, библиотекой подключение к серверу (fbclient.dll) и сетингс-файлом лежит на рабочем столе.

Происходит только чтение данных из файла settings.ini.
Записи никакой нет.
Данные читаются нормально. Если бы не считались, то не запустилась бы программа.

--------------------

Недавно пытался объяснить сыну, кто такой модератор. Сошлись на Мойдодыре.

Keeper89

Дата 21.7.2013, 01:55 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 2580
Регистрация: 26.2.2009

Репутация: нет
Всего: 58

ilya198293,

скорее всего проблема в расположении файла ParamStr(0)) + 'settings.ini'.

И, да, вопросы:

где уничтожается IniF?
зачем CloseAction:=caFree? Она сама уничтожится, стоит заменить FormClose на FormDestroy.

--------------------

Cogito, ergo sum

Keeper's blog
CnWizards Downloads

user posted image

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Object Pascal: кроссплатформенные технологии \| Следующая тема »