Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

FormCloseQuery. И close. одно без другого возможно (ORA-03113) [D7, 2000, XP, 2003]

12 © (2010-09-10 09:41:00)
+vista +w7
написав так:
procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean); begin ShowMessage( '' ); CanClose := true; end; procedure TForm1.Button1Click(Sender: TObject); begin close; end;

я всегдабуду видеть Message( '' )?
или так
Есть ли какие либо расклады, когда Message( '' ) можно не увидеть?

Oracle ORA-03113: end-of-file on communication channel. Эта ошибка является общей, и возникает когда предполагается, что соединение установлено, но затем потеряно

FormCloseQuery делает закрытие соединения с сервером
но в логах имею такие ошибки

Такое может быть, если выйти, не закрыв соединение.
т.е. либо FormCloseQuery не вызывается, либо не знаю чего

Игорь Шевченко (2010-09-10 13:20:00) [1]
сообщение к соединению с базой данных в программе не имеет никакого отношения. Впрочем, если тебе методом тыка удобнее, вставляй лучше Halt, где только можно

12 (2010-09-10 12:40:00) [2]
да, похоже - сеть
везде наставил Session.close, где только можно, откуда теоретически выйти захотят - и тоже самое, периодически

спасибо

Sergey13 (2010-09-10 10:15:00) [3]
> [0] 12 © (10.09.10 09:41)

Не возьмусь утверждать это, но помнитя мне эта ошибка появляется когда сеть или плохо работает сама по себе или настройки сетевых служб (например файлы sqlnet.ora или tnsnames.ora) неправильные. Т.е. это вряд ли зависит от твоей программы.

Игорь Шевченко (2010-09-10 10:12:00) [4]

> Oracle ORA-03113: end-of-file on communication channel.
> Эта ошибка является общей, и возникает когда предполагается,
> что соединение установлено, но затем потеряно

Сеть выпрямляй

12 (2010-09-10 09:54:00) [5]
не, там всегда закрывается

procedure TMainForm.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
frmLogin.osLogin.Close;
frmLogin.Close;
CanClose := true;
end;

которое передается
TfrmLogin.btnOKClick(Sender: TObject);
...
CreateMainForm(osLogin);

procedure CreateMainForm(ASession: tORASession);
...
MainForm.osMain.AssignConnect(ASession);

Anatoly Podgoretsky (2010-09-10 09:43:00) [6]
Конечно есть
// ShowMessage( '' );

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »