Благодарю за помощь принявших участие.
Я решил следующим образом.
1. В самой программе при падение делаю дамп.
| Код |
typedef BOOL (*MINIDUMPWRITEDUMP)
(
IN HANDLE hProcess,
IN DWORD ProcessId,
IN HANDLE hFile,
IN MINIDUMP_TYPE DumpType,
IN CONST PMINIDUMP_EXCEPTION_INFORMATION ExceptionParam, OPTIONAL
IN CONST PMINIDUMP_USER_STREAM_INFORMATION UserStreamParam, OPTIONAL
IN CONST PMINIDUMP_CALLBACK_INFORMATION CallbackParam OPTIONAL
);
//---------------------------------------------------------------------------
void SetExceptionHook();
LONG TopLevelFilter(struct _EXCEPTION_POINTERS * pExceptionInfo);
//---------------------------------------------------------------------------
void SetExceptionHook()
{
::SetUnhandledExceptionFilter((LPTOP_LEVEL_EXCEPTION_FILTER)TopLevelFilter);
}
//---------------------------------------------------------------------------
LONG TopLevelFilter(struct _EXCEPTION_POINTERS * pExceptionInfo)
{
// По умолчанию завершим процесс стандартным образом;
LONG retval = EXCEPTION_CONTINUE_SEARCH;
// ----
// Сначала попробуем загрузить библиотеку рядом с EXE, т.к.
// В System32 может быть старая версия.
HMODULE hDll = NULL;
// ----
TCHAR szDbgHelpPath[_MAX_PATH];
memset(szDbgHelpPath, 0, _MAX_PATH);
// ----
if ( GetModuleFileName(NULL, szDbgHelpPath, _MAX_PATH) != 0 )
{
TCHAR * pSlash = _tcsrchr(szDbgHelpPath, '\\');
// ----
if ( pSlash != 0 )
{
_tcscpy(pSlash + 1, _T("DBGHELP.DLL"));
// ----
hDll = ::LoadLibrary(szDbgHelpPath);
}
}
// ----
if ( hDll == NULL )
{
// Если загрузка не удалась,
// Пробуем загрузить любую доступную версию;
hDll = ::LoadLibrary( _T("DBGHELP.DLL"));
}
// ----
LPCTSTR szResult = NULL;
// ----
if ( hDll == NULL )
{
szResult = _T("DBGHELP.DLL не найдена");
// ----
MessageBox(NULL, szResult, _T("eGameServer"), MB_OK);
// ----
return retval;
}
// ----
// Если библиотека загружена - получаем адрес MiniDumpWriteDump();
MINIDUMPWRITEDUMP pDump = (MINIDUMPWRITEDUMP)GetProcAddress(hDll, "MiniDumpWriteDump");
// ----
if ( pDump == NULL )
{
szResult = _T("DBGHELP.DLL старая");
// ----
MessageBox(NULL, szResult, _T("eGameServer"), MB_OK);
// ----
return retval;
}
// ----
TCHAR szDumpPath[_MAX_PATH];
memset(szDumpPath, 0, _MAX_PATH);
// ----
TCHAR szScratch[_MAX_PATH];
memset(szScratch, 0, _MAX_PATH);
// ----
// Будем записывать файл во временную папку;
// ----
SYSTEMTIME SysTime;
GetLocalTime( & SysTime);
// ----
char lpCurDir[_MAX_PATH];
memset(lpCurDir, 0, _MAX_PATH);
// ----
GetCurrentDirectory(_MAX_PATH - 1, lpCurDir);
// ----
sprintf(szDumpPath, "%s\\GameServer_Dump_%02d-%02d-%02d_%02d.%02d.%04d.dmp\0",
lpCurDir,
SysTime.wHour, SysTime.wMinute, SysTime.wSecond,
SysTime.wDay, SysTime.wMonth, SysTime.wYear);
// ----
// Сообщаем пользователю, что процесс на грани смерти и
// предлагаем сохранить дамп;
// ----
// Создаём файл;
HANDLE hFile = ::CreateFile(szDumpPath, GENERIC_WRITE, FILE_SHARE_WRITE, NULL,
CREATE_ALWAYS,
FILE_ATTRIBUTE_NORMAL, NULL);
// ----
if ( hFile == INVALID_HANDLE_VALUE )
{
_stprintf(szScratch,
_T("Ошибка создания диагностического файла '%s' (код %d)"),
szDumpPath, GetLastError() );
// ----
szResult = szScratch;
// ----
return retval;
}
// ----
_MINIDUMP_EXCEPTION_INFORMATION ExInfo;
// ----
ExInfo.ThreadId = ::GetCurrentThreadId();
ExInfo.ExceptionPointers = pExceptionInfo;
ExInfo.ClientPointers = NULL;
// ----
// И записать в него дамп;
BOOL bOK = pDump(GetCurrentProcess(), GetCurrentProcessId(),
hFile, MiniDumpNormal, & ExInfo, NULL, NULL);
// ----
if ( bOK != 0 )
{
_stprintf(szScratch, _T("Файл сохранен в: '%s'"), szDumpPath);
// ----
szResult = szScratch;
// ----
retval = EXCEPTION_EXECUTE_HANDLER;
}
else
{
_stprintf(szScratch,
_T("Ошибка сохранения '%s' (код %d)"),
szDumpPath, GetLastError());
// ----
szResult = szScratch;
}
// ----
::CloseHandle(hFile);
// ----
return retval;
}
//---------------------------------------------------------------------------
// # Write in function;
SetExceptionHook();
//---------------------------------------------------------------------------
|
Затем при помощи WinDbg (WDK Windows Driver Kit), окрываем Crash log и смотрим что не так.
P.S. -> Необходимо установить |symbols path". |
)