Try..Exept..EndTry: Возможно ли?

[Dolter_imported]

В принципе весь вопрос в теме...
Возможно ли вызвать свой обработчик ошибок?
А то вываливается по ошибке и весь остальной код не фурычит... :-(

[Yuriy]

Если речь идет о Navision, то можно писать функции в кодеюнитах, где делать вызов необходимых процедур, форм, отчетов, датапортов и там перехватывать их выполнение.

[Dolter_imported]

Ok!
Делаю так:
1. создаю кодеюнит с единственной глобальной типа атомэшн (ADO.Connect) и с одной функцией:

Init(InConnectionString : Text[1000]) Ok : Boolean
  // используем строку соединения по умолчанию, если передано пустое значение
  IF InConnectionString = '' THEN
	InConnectionString := ConnectionString;

  CREATE(Conn);
  Conn.Open(InConnectionString);
  EXIT(TRUE);

2. Создаю второй кодеюнит для теста, где переменнаю первый кодеюнит и вызов ее функции:

OnRun()
  MESSAGE(FORMAT(Conn.Init('')));
  MESSAGE('далее...');

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

ЧТО ДЕЛАТЬ?

З.Ы. Читаю "Средства интеграции Navision":

Цитата:

п.5.5.
...
Ограничения
...
* Обработка исключений (Exeption Handling). Среда C/SIDE не
позволяет извлекать информацию об исключениях... (и т.д.)
... Имеются пути обхода данного ограничения.

ЗДОРОВО! что они (пути обхода) есть. Но где они описаны? :-)

[Fordewind]

А если написать

CREATE(Conn);
  IF Conn.Open(InConnectionString) THEN
	EXIT(TRUE);
  EXIT(FALSE);

?

[Dolter_imported]

Цитата:

Сообщение от Fordewind

А если написать

CREATE(Conn);
  IF Conn.Open(InConnectionString) THEN
	EXIT(TRUE);
  EXIT(FALSE);

?

C удовольствием бы так написал, но метод Open у объекта ADO.Connection не возвращает ничего... VOID однако...

[Fordewind]

Эххх... а так хотелось верить.
Дествительно интересно что же тут делать...

А что за InConnectionString? может его сначала проверить на правильность?

[Dolter_imported]

Цитата:

Сообщение от Fordewind

Эххх... а так хотелось верить.
Дествительно интересно что же тут делать...

А что за InConnectionString? может его сначала проверить на правильность?

Проверил :-)
Я ввел ЗАВЕДОМО неправильную строку соединения! :-)
Обошел пока эту проблему... Т.к. мне нужен один коннект на все время сессии, то сделал проще:
В триггер LogInStart (в самый конец его, чтобы все остальное отработало) вставил переменную ConnADO с типом кодеюнит ConnADO, где уже 2 переменные Conn (тип ADO.Connection) и IsConnected (Boolean) и 2 метода Init и Connected

Init(InConnectionString : Text[1024]) Ok : Boolean
CLEAR(Conn);
IsConnected := FALSE;

// используем строку соединения по умолчанию, если передано пустое значение
IF InConnectionString = '' THEN
  InConnectionString := ConnectionString;

// в случае ошибки при соединении IsConnected так и останется FALSE
CREATE(Conn);
Conn.Open(InConnectionString);
IsConnected := TRUE;

Connected() Ok : Boolean
EXIT(IsConnected);

В итоге теперь при ошибочном соединении выдается ошибка ADO, но в дальнейшем мы уже не инициализируя сам коннект, можем просто проверить а есть ли он!

З.Ы. SingleInstance у кодеюнита ConnADO стоит в <Yes> дабы не переконнекчиваться каждый раз для получения данных из внешней базы... Время оно не резиновое :-)

[Константин!]

Может так:

OnRun()
  if Conn.Init('') then
	MESSAGE('Да');
  MESSAGE('далее...');

[Dolter_imported]

Цитата:

Сообщение от Константин!

Может так:

OnRun()
  if Conn.Init('') then
	MESSAGE('Да');
  MESSAGE('далее...');

Пробовал... даже MESSAGE('Да') уже не выполняется...

[Константин!]

блин глючу
вот так
CU 50000
OnRun()
Conn.Init('');
в любом месте например в другом CU

if cu50000.run then;
MESSAGE('далее...');

Параметр строки соединения можеш закидавать через доп ф-ю котрая будет устанавливать глобальную переменную.

[Dolter_imported]

Цитата:

Сообщение от Константин!

блин глючу
вот так
CU 50000
OnRun()
Conn.Init('');
в любом месте например в другом CU

if cu50000.run then;
MESSAGE('далее...');

Параметр строки соединения можеш закидавать через доп ф-ю котрая будет устанавливать глобальную переменную.

СУПЕР! Спасибо большое! Работает... :-)