Подскажите как организовать обработчик ошибок.

[VisMajor]

Вобщем я не знаю даже с чего начать. А так достало что при возникновении ошибок приложение закрывается...

[DimPos]

Конечно многое зависит от ошибки, но в общем случае
Sub()
On Error Goto Err
'Код процедуры
Exit sub'если ошибок не было - выход из процедуры
Err:
'Сюда включаешь свой обработчик ошибки
MsgBox "Ошибка"
End Sub

[Sebas]

Если ошибка защиты Виндовс, то ищи SetErrorHandler - работает, сам проверял

[gaidar]

Да. Мелкософт под это дело ставит окошко с предложением послать код ошибки. Вещь позитивная, можно использовать в приложениях.

[VisMajor]

Конечно многое зависит от ошибки, но в общем случае
Sub()
On Error Goto Err
'Код процедуры
Exit sub'если ошибок не было - выход из процедуры
Err:
'Сюда включаешь свой обработчик ошибки
MsgBox "Ошибка"
End Sub

А нельзяли сделать одну процедуру, которая будет срабатывать при возникновении ошибки...

А то ведь у меня уже в проге в целом 7000 строк- сдохну покуды переделаю...

[RayShade]

Есть выход - можно обрабатывать ошибки только в главной процедуре, которая вызывает все остальные. Для этого, правда, придется вохможно, немного переделать структуру программы, но это того стоит - дело в том, что все возхникающие ошиюки из процедур передаются на уровень, откуда эти процедуры вызваны.

Так что в таком случае достаточно будет одной процедуры с обработкой.

[VisMajor]

Есть выход - можно обрабатывать ошибки только в главной процедуре, которая вызывает все остальные. Для этого, правда, придется вохможно, немного переделать структуру программы, но это того стоит - дело в том, что все возхникающие ошиюки из процедур передаются на уровень, откуда эти процедуры вызваны.
Так что в таком случае достаточно будет одной процедуры с обработкой.

А можно ли кодом показать? Пожалуйста.

[RayShade]

sub mysub1()

open "myfile" for input as #1

end sub



sub mysub2()

print #1, "AAAA"

muysub3

end sub



sub mysub3()

close#1

end sub



sub main

on error goto hdl

mysub1

mysub2

exit sub

hdl:

msgbox "Error " & err.description

end sub



ну так примерно. Вызывающая суба будет перехватывать ошибки из дочерних.

[FaKk2]

sub main
on error goto hdl
mysub1
mysub2
exit sub
hdl:
msgbox "Error " & err.description
end sub

Ты помоему mysub3 забыл....

[VisMajor]

ну так примерно. Вызывающая суба будет перехватывать ошибки из дочерних.

Спасибо, попробую использовать.

[RayShade]

2 FAKK читай внимательно, она вызывается из mysub1

[gaidar]

вся же хэндлеры не забывайте!

[Pantalone]

Встала такая же проблема. Кода мульен, а обработчиков кот наплакал.
Хотелось бы уточнить на что обратить внимание при создании обработчиков в коренных процедурах?

[Kovu]

Pantalone
Обработчиков каких ошибок?
Типа "Приложение совершило ошибку и будет закрыто" или стандартных ВБшных?
P.S. Некрофилия твоя профессия похоже =)

[Pantalone]

Kovu
Стандартных видимо.

[zafon]

А помоему даже и лутше что прога загибается и не даёт продолжать работать. Ведь дальнейшее продолжение работы програмы после ошибки может привести к непредвиденым результатам , а порой к катострофическим последствиям .

[Pantalone]

zafon
Но надо же как-то от юзера получить где и когда прога сглючила.

[alibek]

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

Какой ужас!!!
А ты когда-нибудь сохранял данные на дискету?
Про ошибку 71 знаешь?

[Pantalone]

Короче сам буду обработчик делать, кода слишком много, доверять его колбасить сомнительным утилитам не дам.
Посоветуйте только Адд-Ин, позволяющий вставить в начале функции/процедуры строчку On Erro Goto Handler, а в конце функции Exit Function/Sub, саму метку, и код который я задам в шаблоне, обязательно чтобы она в этом коде добавляла имя обрабатываемой функции. Т.е. выглядеть вставляемое должно так:

Код: Выделить всё

Sub Test()
On Error GoTo Handler

'...........
'...........
'...........

Exit Sub
Handler:
   
    Call MySpecialErrorLogSub("Test", Err.Number, Err.Description)

End Sub

Function TestNew()
On Error GoTo Handler

'...........
'...........
'...........

Exit Function
Handler:
   
    Call MySpecialErrorLogSub("TestNew", Err.Number, Err.Description)

End Function

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

[zafon]

Да, можно и так .
Можно в добавок писать в error_log_file с отсылкой от юзверя к тебе на мыло!:wink: (Просто мысль влух!)

[zafon]

Вот работает :

Код: Выделить всё


Dim NameSubError as String

Public Sub ShowError()
Open App.Path & "\error_log.txt" For Append As #999
Print #999, Date & " | " & Time & " - " & " Sub  '" & NameSubError & "'  ( " & CStr(Err.Number) & " - " & Err.Description & " ) ."
Close #999
Dim Ret As Integer
Ret = MsgBox("My Program ERROR : " & vbCrLf & CStr(Err.Number) & " - " & Err.Description & "." & vbCrLf & "End Program. Sorry...", vbOKOnly + vbCritical + vbApplicationModal, "Error in Sub- '" & NameSubError & "'")
End
End Sub

Private Sub MySub1()
On Error Goto ShowMesage
'..........

'My Code.....
'.......... 
Exit Sub
ShowMesage:
NameSubError ="MySub1"
Call ShowError
End Sub

Private Sub MySub2()
On Error Goto ShowMesage
'..........

'My Code.....
'.......... 
Exit Sub
ShowMesage:
NameSubError ="MySub2"
Call ShowError
End Sub

Private Sub MySub3()
On Error Goto ShowMesage
'..........

'My Code.....
'.......... 
Exit Sub
ShowMesage:
NameSubError ="MySub3"
Call ShowError
End Sub


В "error_log.txt" будет записано:

2/24/2006 | 01:29:18 - Sub 'Form_Load' ( 70 - Permission denied ) .
2/24/2006 | 01:29:18 - Sub 'NewJob' ( 401 - Can't show non-modal form when modal form is displayed ) .

2 Pantalone:
Если я правельно тебя понял - это ты хотел.

[AjaxVS]

Так что в таком случае достаточно будет одной процедуры с обработкой.

Если только в проекте нет форм =) Только тогда не надо будет обрабатывать ошибки, возникающие при событиях.

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

"Дискета защищена от записи" ... катострофа! +_+

Насчет "On Error"... Важно!
Смотрите, чтобы не было у вас в программе чего-то типа этого:

Код: Выделить всё

Sub fun_gluk()
On Error Rusume Next
For i=1 to 2
'какой-то код
Next
'дальше можно не писать


Просто в IDE VB все будет ОК, но вот в скомпилированном EXE "какой-то код" будет выполнятся бесконечно...

Насчет одной обработки на все функции:
Я уже говорил (давно правда), что гораздо легче написать свою прогу, которая автоматически вставляла бы после строки, начинающейся "Sub"/"Function" код "On Error...", а перед строкой "End Sub"/"End Function" - вставляла бы нужный вам обработчик...

Дело пяти минут...

[tyomitch]

Посоветуйте только Адд-Ин, позволяющий вставить в начале функции/процедуры строчку On Erro Goto Handler, а в конце функции Exit Function/Sub, саму метку, и код который я задам в шаблоне, обязательно чтобы она в этом коде добавляла имя обрабатываемой функции.

http://bbs.vbstreets.ru/viewtopic.php?t=11863
http://bbs.vbstreets.ru/viewtopic.php?t=12615

[xfolder]

я делаю проще, прописываю в каждую процедуру всего 3 строчки в самом начале, так гораздо проще отслеживать где есть перехват ошибок и где забыл прописать.

Private Sub Form_Load()

On Error GoTo EH: GoTo jump
EH: ErrorHandler 1, "Select_date: Form_Load", Err.Description, Err.Number: Exit Sub
jump:


.......

end sub

[Pantalone]

Кто-нибудь пользуется HuntERR? Нашел в описании интересную мульку, там можно в лог передавать аргументы функции, т.е. имена параметров и их значения. Насколько надежно все это работает, как бы наоборот еще больше глюков не появилось

[Pantalone]

Да, этот HuntERR совершенно убойная вещь, разобраться бы как ее автоматом встроить

[Pantalone]

MZTools + HuntERR = MustHave!

[Pantalone]

Тока код распух, чистый экзешник за мег перевалил, надо отметить