Обработка исключения на Windows Server 2008

Сейчас на форуме: rmn (+9 невидимых)

Посл.ответ	Сообщение
Maximus Ранг: 392.8 (мудрец), 108thx Активность: 0.26↘0.01 Статус: Участник REVENGE сила, БеХоЦе могила	Создано: 27 ноября 2013 16:46 · Личное сообщение · #1 Разбираюсь с программой версии bCAD 3.10 http://www.propro.ru/ru/Downloads/Install.aspx Проблема следующая: программа отлично работает в Windows 7, но не работает на Windows Server Начал разбираться почему. Оказывается Windows 7 и Windows Server по разному отрабатывают вот такой код: Code: 7C424136 50 PUSH EAX ; Arguments => OFFSET LOCAL.1 7C424137 6A 01 PUSH 1 ; ArgCount = 1 7C424139 6A 00 PUSH 0 ; Flags = EXCEPTION_CONTINUABLE 7C42413B 68 78563402 PUSH 2345678 ; Code = 2345678 7C424140 FF15 0C10407C CALL DWORD PTR DS:[<&KERNEL32.RaiseException>] ; KERNEL32.RaiseException Если Windows 7 осталвяет это исключение в себе, то на серверной версии оси вылетает окошко: Code: Сигнатура проблемы: Имя события проблемы: APPCRASH Имя приложения: bcjsrv.exe Версия приложения: 3.10.1.1168 Отметка времени приложения: 4c8f0b1a Имя модуля с ошибкой: KERNELBASE.dll Версия модуля с ошибкой: 6.1.7601.18229 Отметка времени модуля с ошибкой: 51fb1116 Код исключения: 02345678 Смещение исключения: 0000c41f Версия ОС: 6.1.7601.2.1.0.272.7 Код языка: 1049 Дополнительные сведения 1: bb0e Дополнительные сведения 2: bb0efd916a17e3c0bf7af55e87d1fe92 Дополнительные сведения 3: 29a0 Дополнительные сведения 4: 29a0f0d23e28c6706a266b5d242f2020 Причем под Олькой это окошко не появляется. Проблема возникает только тогда, когда я работаю с программой в обычном режиме, не под отладкой. Вопрос: Как мне заставить Windows Server обработать исключение по тихиму? Можно ли как-то переловить и обработать это исключение своим встроенным кодом? ----- StarForce и Themida ацтой!

Dr0p Ранг: 72.3 (постоянный), 133thx Активность: 0.38↘0 Статус: Участник	Создано: 27 ноября 2013 17:47 · Личное сообщение · #2 Можно, обычный фолт. VEH ставите и ловите его. Ну а если фолт возникает, значит где то что то пошло не так как надо. Надо лечить болезнь, а не устранять симптомы \| Сообщение посчитали полезным: ajax
Maximus Ранг: 392.8 (мудрец), 108thx Активность: 0.26↘0.01 Статус: Участник REVENGE сила, БеХоЦе могила	Создано: 27 ноября 2013 17:54 · Личное сообщение · #3 Лечить симптомы должны разработчики приложения, которые имеют исходники, а не я ;) >Можно, обычный фолт. VEH ставите и ловите его. Где и как его ставить? Можно с примерами? ----- StarForce и Themida ацтой!
Dr0p Ранг: 72.3 (постоянный), 133thx Активность: 0.38↘0 Статус: Участник	Создано: 27 ноября 2013 17:57 · Личное сообщение · #4 --> Link <-- \| Сообщение посчитали полезным: Maximus
Maximus Ранг: 392.8 (мудрец), 108thx Активность: 0.26↘0.01 Статус: Участник REVENGE сила, БеХоЦе могила	Создано: 27 ноября 2013 18:02 · Поправил: Maximus · Личное сообщение · #5 Какой из VEH мне нужен (continue, exception)? Сработает ли фильтр если я буду его устанавливать через dll, внедренную в адресное пространство программы? Что должна возращать моя процедура, чтобы программа не крашилась? ----- StarForce и Themida ацтой!
ajax Ранг: 337.6 (мудрец), 224thx Активность: 0.21↘0.1 Статус: Участник born to be evil	Создано: 27 ноября 2013 18:28 · Поправил: ajax · Личное сообщение · #6 Maximus 1. exception 2. должен 3. EXCEPTION_CONTINUE_EXECUTION типа этого из и-нета. свои сырки сейчас не могу найти Code: unit profs_win32exceptiontrap; {$mode objfpc} interface // increase the reference count (install the handler it if it was zero) procedure AddHandler; // decrease the reference count and if reaching zero remove the handler procedure RemoveHandler; implementation uses Windows, SysUtils; var ExceptionHandlerRefCount: Integer = 0; ExHandle: Pointer; ThisModuleHandle: THandle; ThisModuleName: AnsiString; threadvar ExObject : EExternal; function AddVectoredExceptionHandler(FirstHandler: DWORD; VectoredHandler: pointer): pointer; stdcall; external 'kernel32.dll' name 'AddVectoredExceptionHandler'; function RemoveVectoredExceptionHandler(VectoredHandlerHandle: pointer): ULONG; stdcall; external 'kernel32.dll' name 'RemoveVectoredExceptionHandler'; function GetModuleByAddr(addr: pointer): THandle; var Tmm: TMemoryBasicInformation; begin if VirtualQuery(addr, @Tmm, SizeOf(Tmm)) <> sizeof(Tmm) then Result := 0 {$hints off} else Result := THandle(Tmm.AllocationBase); {$hints on} end; function ExceptionHandler(Info: PEXCEPTION_POINTERS): LongInt; stdcall; var ExCode : DWORD; ExAddr : Pointer; ExModule : THandle; label lblRaise; begin ExCode := Info^.ExceptionRecord^.ExceptionCode; if ExCode = $40010006 then // ignore debug print exit(EXCEPTION_CONTINUE_SEARCH); ExAddr := Info^.ExceptionRecord^.ExceptionAddress; ExModule := GetModuleByAddr(ExAddr); // did it happen in the same module where this handler resides? if ExModule = ThisModuleHandle then begin // after preparing a native FPC exception object we will clear the // Windows exception and manipulate the CPU instruction pointer to point // exactly to the place where it will be raised with raise so it can // then be properly caught by except. We can't just raise it directly // from here because we are inside the Windows exception handler and // windows expects this function to return and for Windows the exception // is already finished when our FPC try/raise/except mechanism starts. ExObject := EExternal.Create(Format('Exception %x at %p', [ExCode, ExAddr])); {$hints off} Info^.ContextRecord^.Eip := PtrUInt(@lblRaise); {$hints on} exit(EXCEPTION_CONTINUE_EXECUTION); end else begin // this exception happened somewhere else, we might not be able to handle it, // so we will pass it on to the next handler but we still print a message // because it might at least be interesting to know about it for debugging. OutputDebugString(PChar(Format('exception %x at %p in %s -> EXCEPTION_CONTINUE_SEARCH', [ExCode, ExAddr, GetModuleName(ExModule)]))); exit(EXCEPTION_CONTINUE_SEARCH); end; // the following will never be reached during this function call, // instead it will be jumped to and executed after the handler has // returned and windows restarts execution at the new position of eip. lblRaise: Raise ExObject; // this can be caught with try/except end; procedure AddHandler; begin if ExceptionHandlerRefCount = 0 then begin ExHandle := AddVectoredExceptionHandler(1, @ExceptionHandler); ThisModuleHandle := GetModuleByAddr(@ExceptionHandler); ThisModuleName := GetModuleName(ThisModuleHandle); OutputDebugString(PChar(Format('installed exception handler for %s', [ThisModuleName]))); end; ExceptionHandlerRefCount += 1; end; procedure RemoveHandler; begin if ExceptionHandlerRefCount > 0 then begin ExceptionHandlerRefCount -= 1; if ExceptionHandlerRefCount = 0 then begin RemoveVectoredExceptionHandler(ExHandle); OutputDebugString(PChar(Format('removed exception handler for %s', [ThisModuleName]))); end; end; end; begin // most non-FPC and non-Borland apps do not want FPU exceptions // (they might crash) so we immediately undo FPC's FPU unmasking. Set8087CW(Get8087CW or $3f); end. ----- От многой мудрости много скорби, и умножающий знание умножает печаль \| Сообщение посчитали полезным: Maximus, tihiy_grom
Dr0p Ранг: 72.3 (постоянный), 133thx Активность: 0.38↘0 Статус: Участник	Создано: 28 ноября 2013 02:07 · Поправил: Dr0p · Личное сообщение · #7 Maximus > Сработает ли фильтр если я буду его устанавливать через dll, внедренную в адресное пространство программы? VEH в отличие от SEH ничем не защищён. Не имеет значения где расположен хэндлер. > Что должна возращать моя процедура, чтобы программа не крашилась? Для этого нужно знать причину фолта. Полагаю что следует просто вернуть управление(EXCEPTION_CONTINUE_EXECUTION), раз в других версиях робит. Да и вообще, вы не туда копаете. Не нужна никакая обработка, достаточно занопить кидающий фолт код ну или поправить его.
Maximus Ранг: 392.8 (мудрец), 108thx Активность: 0.26↘0.01 Статус: Участник REVENGE сила, БеХоЦе могила	Создано: 28 ноября 2013 09:56 · Поправил: Maximus · Личное сообщение · #8 Да и вообще, вы не туда копаете. Не нужна никакая обработка, достаточно занопить кидающий фолт код ну или поправить его. DrOp, занопил участок, который я кинул первым в листинге. Программа заработала. Тестирую результат. Code: 7C424136 RET Более глубоко копать могут только разработчики, тем более причина такого поведения программы яcна: http://www.voyce.com/index.php/2008/10/01/troubleshooting-an-invalidprogramexception/ Но им видимо лениво это делать: http://www.propro.ru/forum/viewtopic.php?f=6&t=6510&view=next ----- StarForce и Themida ацтой!
Maximus Ранг: 392.8 (мудрец), 108thx Активность: 0.26↘0.01 Статус: Участник REVENGE сила, БеХоЦе могила	Создано: 12 декабря 2013 17:05 · Личное сообщение · #9 В итоге написал dll-ку, которая отвязывает прогу от железяки и дает возможность запускать прогу на серверных осях. Тему закрываю. ----- StarForce и Themida ацтой!

Для печати