Про обработку ошибок

[XairOn]

Здравствуйте... вопрос мой такой: все мы знаем оператор: On Error Resume Next (вернее событие и оператор), так вот, бля обработки ошибок нужно это строку всавлять в каждую подпрограмму, а можно ли как-нибудь глобально это сделать, т.е. не в каждой процедуре это всё писать, а для всей программы? Я вот думаю, а может через АПИ как-нибудь можно!?

[RayShade]

Нельзя.

[tyomitch]

так вот, бля обработки ошибок

Мат на форуме!

[XairOn]

Мат на форуме!

Я вообще-то наверное просто торопился и не заметил ошибку... хотел написать ДЛЯ... а получилось... ну сам знаешь...

[BV]

2 RayShade

Ну как же?! А эти отладчики? Тот же Invisible Bug Debuger?

[xenomorph]

2XairOn:

Можно, но немного не так .

Метод простой:

1. Юзать анализатор кода для втыкания On Error Goto M0
... он их автоматически вставляет в код - т.е. автоматизирует процесс .

Метод непростой, а золотой.

SEH.
Structural Exception Handler.
Классная статья на www.wasm.ru ///

[d3drm]

я за такие программы сразу всякие интимные места бы отрезал. Это чтож получается, не программа, а одна сплошная ошибка? Нда... Где вас программировать учат...

[Rostik Ultra (2)]

я за такие программы сразу всякие интимные места бы отрезал. Это чтож получается, не программа, а одна сплошная ошибка? Нда... Где вас программировать учат...

А ты типа крутой кул програмер ?

[MeMBus]

d3drm, прав. Если затыкать всю прогу с помощью проги которая поставляет везде on error resume next, то получиться что програмер сам не знает что он хочет написать. Предвидеть ошибки нужно там где они явно могут возникнуть (к примеру, при открытии файла), а обработчик on error resume next подходит тока в том случае если ошибка может быть не явной и не кретичной для работы программы.

[xenomorph]

На ВБ Стритсах уже был разговор насчёт
прог аддонов к ВБ ...
AxTools CodeSMART 2005 for VB6
- между прочем, был посоветован то ли Tyomitch-ем то
ли xolod-ом ...

Я его уже 1 год юзаю и не жалею.
Код стайлер там - просто незаменим когда работаешь на
РАК-е ...

Схемы обработок ошибок там очень хорошие и разные.

> Это чтож получается, не программа,
> а одна сплошная ошибка?

ИМХО:

1. ВБ это и есть "одна сплошная ошибка"
(отставить помидоры - я имею ввиду следующее ... :
2. On Error ... - просто вставляет SEH на уровень локальной
процедуры.
3. У ВБ свой глобальный SEH на который и вылетает
любая на ВБ написаная прога при крит. ерроре.
т.е. у ТАК работает:

Устанавливает seh и делает "обратную раскрутку стека" ...

==================покусано с: www.WASM.ru========================
Тип 1 – финальный обработчик исключений

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

Установка финального обработчика исключений

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

Пример:

MAIN:;Точка входа в программу.
PUSH OFFSET FINAL_HANDLER
CALL SetUnhandledExceptionFilter
; ...
; ...;Код защищенный финальным обработчиком.
; ...
CALL ExitProcess
;****************
FINAL_HANDLER:
; ...
; ... ;Код, обеспечивающий корректный выход.
; ...
MOV EAX,1 ;Возможные возвращаемые значения и их описание:
;eax=-1 перезагрузить контекст и продолжить выполнение программы.
;eax= 1 не показывать сообщение о предстоящем закрытии программы.
;eax= 0 показывать сообщение о предстоящем закрытии программы.
RET

Не пытайтесь сформировать цепочку из финальных обработчиков исключений

В любой момент времени, в процессе может быть только один, определенный
приложением, финальный обработчик исключений. Если ваш код вызывает
во второй раз функцию SetUnhandledExceptionFilter, то адрес финального
обработчика исключений просто меняется на новое значение, а
предыдущий теряется.
==================покусано с: www.WASM.ru========================
тока на ВБ я этого не делал .

[ANDLL]

И не сделаешь. Даю десять против девяти, что у ВБ свои механизмы отловки исключений. Соответственно единственные исключения, которые ты сможешь отлавливать - это memory exceptions, вызванные Rtl-функциями. Хотя сам факт наличия этих исключений означает, что твоя программа содержит семантическую(смысловую) ошибку. Соответственно тот факт, что ты это исключение поймаешь абсалютно ничего тебе не даст...
И вообще искдючения VB и исключения виндовс имеют мало общего.

[tyomitch]

ANDLL, ты не прав. VB использует именно SEH для реализации своих исключений.

[ANDLL]

Да? Ну ладно. Выходит можно поставить глобальный обработчик?

[ANDLL]

2tyomitch:
Что-то я не заметил:

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

SetUnhandledExceptionFilter AddressOf Exception
'RaiseException &H10, 50, 1, VarPtr(nArgs(0))
Err.Raise -155


В RaiseException все нормально... А вот Err.Raise выдает Automation error. Стандартный.

Видимо я опять чего-то не понимаю

[tyomitch]

ANDLL, под средой или компилировал? (Сейчас проверить самому времени нет)

[ANDLL]

И там и там.

[ANDLL]

Во, Темыч!
Оказывается, вот, что надо было использовать:

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

AddVectoredExceptionHandler -1, AddressOf Exception
'...
Public Function Exception(ByVal a As Long) As Long
MsgBox a
ExitProcess a
End Function


[ANDLL]

Кстати, кто нибудь мне объяснит эту странную весчь?

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

'В модуле
Option Explicit

Public Type EXCEPTION_RECORD
    ExceptionCode As Long 'Код исключения
    ExceptionFlags As Long 'Флаги исключения
    pExceptionRecord As Long 'Хрен его знает
    ExceptionAddress As Long 'Адрес, по которому произошло исключение
    NumberParameters As Long 'Колчиество параметров
    pExceptionInformation As Long 'Собственно параметры
End Type

Public Type EXCEPTION_POINTERS
    pExceptionRecord As Long
    pContextRecord As Long
End Type

Public Declare Sub RaiseException Lib "kernel32" (ByVal dwExceptionCode As Long, ByVal dwExceptionFlags As Long, ByVal nNumberOfArguments As Long, ByVal lpArguments As Long)
Public Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (ByVal Destination As Long, ByVal Source As Long, ByVal Length As Long)
Public Declare Function AddVectoredExceptionHandler Lib "kernel32" (ByVal aPosition As Long, ByVal aAddress As Long) As Long
Public Declare Sub ExitProcess Lib "kernel32" (ByVal uExitCode As Long)
Public Const EXCEPTION_CONTINUE_EXECUTION = -1
Public Const EXCEPTION_CONTINUE_SEARCH = 0

Public Function Exception(ByRef ptr As EXCEPTION_POINTERS) As Long
    Dim nRecord As EXCEPTION_RECORD
    CopyMemory VarPtr(nRecord), ptr.pExceptionRecord, Len(nRecord)
    MsgBox "Исключение!" & vbCrLf & _
        "Код: " & nRecord.ExceptionCode & vbCrLf & _
        "Флаги: " & nRecord.ExceptionFlags & vbCrLf & _
        "Кол-во параметров:" & nRecord.NumberParameters _
        , vbCritical, "Ошибка"
    'Dim nErr As ErrObject
    'CopyMemory VarPtr(nErr), nRecord.pExceptionInformation + 4, 4
    MsgBox Hex(nRecord.pExceptionInformation)
    Exception = EXCEPTION_CONTINUE_SEARCH 'Мы можем или завершить процесс, используя ExitProcess или продожить поиск. Мы не можем возобновить выполнение программы
End Function


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

'В форме
Private Sub Form_Load()
Dim nArgs(0) As String
nArgs(0) = "AAA"
AddVectoredExceptionHandler -1, AddressOf Exception
Err.Raise -155
End
End Sub


Запустите, и посмейтесь
Посмеялись? А теперь объясните мне, куда указывает nRecord.pExceptionInformation?
Запускать, ясное дело, в скомпилированном варианте.

[tyomitch]

Запустил, весело посмеялся.

Run-time error '453':

Can't find DLL entry point AddVectoredExceptionHandler in kernel32

Её нету в Win2000, только в WinXP.

А теперь объясните мне, куда указывает nRecord.pExceptionInformation?

ExceptionInformation
Specifies an array of additional 32-bit arguments that describe the exception. The RaiseException function can specify this array of arguments. For most exception codes, the array elements are undefined.

Или не так?

[ANDLL]

Ну, скажем так. Если бы у тебя был WinXP, ты увидел бы, что nRecord.pExceptionInformation=&HDEADCAFE. Вот и куда оно указывает?

[tyomitch]

Ну, скажем так. Если бы у тебя был WinXP, ты увидел бы, что nRecord.pExceptionInformation=&HDEADCAFE. Вот и куда оно указывает?

Как куда, в Фолаут

Вот это мне кажется похожим на Err::Raise

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

push    ebp
mov     ebp,esp
push    ecx
push    ecx
mov     eax,0DEADCAFEh
mov     [ebp-8],eax
mov     [ebp-4],eax
lea     eax,[ebp-8]
push    eax
push    2
push    1
push    0C000008Fh
call    dword ptr [RaiseException]


По-моему, таким образом (два DEADCAFE подряд) MSVBVM отличает собственные исключения от чужих.

Кто б научил с символами работать - был бы несказанно благодарен. А то чего я как лох - сижу с msvbvm60.dbg и гадаю - то ли Err::Raise, то ли хз что...

[Igor_123]

2 tyomitch

Что-то не нашел тему где ты спрашивал об этих символах поэтому вот информация:

Статья:
Возможности встроенного отладчика Visual C++
Это с форума:
Отладочные символы

Re[2]: Отладочные символы (.DBG, .PDB)

Re: Установка symbols под Win2K

Посмотри в поиске на rsdn.ru

[GSerg]

Тёмыч, а когда символы загружены, это выглядит как?
Я тут просто тоже экспериментирую, хочу знать - получается у меня или нет

[Igor_123]

когда символы загружены в отладчике пишет что для модуля такого символы лоадед. А потом в трассировке пишет не просто "имя модуля"."адрес функции", а "имя модуля"."имя функции", по моему все.

[tyomitch]

Загружаются не только имена функций, но ещё меток, переменных, и номера параметров для FPO-функций. В общем, много всего интересного.

Я уже почти расковырял свой DBG руками, может тулзу какую напишу, которая будет символы в disassembly вставлять. Если кому-то ещё это интересно - расскажу и покажу, что там как


ЗЫ: я нашёл, что VC5+ не могут работать с символами в формате COFF, коие содержатся в моём DBG, и что я должен либо юзать "альтернативные отладчики" (назвали WinDbg и OllyDbg, которые якобы умеют работать с COFF, но я так и не разобрался как этого добиться), либо выбросить DBG и попросить у автора бинарника PDB

ЗЗЫ: а вот ещё я нашёл symcvt.dll, которая якобы может сконвертировать мой DBG в PDB... Кто-нибудь знает как? Гугл - нет

[ANDLL]

tyomitch, мне интересно как. Только с самого начала и для "самых маленьких" .

[tyomitch]

ANDLL, тогда давай аську... Был бы нормальный чат - обсудили бы в чате

[ANDLL]

Щас, заведу...
Кстати, Темыч, адреса kernel'овских API-функций в какой-то сеанс работы ОС одинаковые для всех процессов?

[ANDLL]

И еще: jecxz(в отличие от jmp) выполняет переход только по абсолютному адресу. Как же быть, если нужно перейти по относительному(когда абсолютный адрес не известен на этапе разработки)?

[tyomitch]

Ну наконец-то добрался, отвечу
1. Да. У всех системных библиотек (не только kernel32), подгружаемых в ехешник при его загрузке (т.е. прописанных в его импортах), база будет одна и та же (не для сеанса, а для этого билда Винды вообще).
Если библиотека подгружается динамически - тогда база может быть нестандартной. Интересный философский вопрос: как динамически подгрузить krenel32?

2. jecxz выполняет переход только по относительному адресу, т.ч. я не понял, чего тебе нехватает. Но в любом случае её можно заменить парой команд or ecx,ecx; jz