ITS_OP/TEMP/VmsMsgUserDisp - 복사본 (2)/VmsMsgUserDisp.cpp

//---------------------------------------------------------------------------

#include <vcl.h>
#pragma hdrstop
#include <tchar.h>
#include <cxFormats.hpp>
//---------------------------------------------------------------------------
#include "AppGlobalF.h"
#include "ITSDbF.h"

//---------------------------------------------------------------------------
USEFORM("VMSM600M\VMSM640MF.cpp", VMSM640M);
USEFORM("VMSM600M\VMSM650MF.cpp", VMSM650M);
USEFORM("VMSM600M\VMSM660MF.cpp", VMSM660M);
USEFORM("VMSM600M\VMSM630MF.cpp", VMSM630M);
USEFORM("VMSM600M\VMSM620MF.cpp", VMSM620M);
USEFORM("VMSM600M\VMSM610MF.cpp", VMSM610M);
USEFORM("VMSM600M\FrmVmsMsgUserDispF.cpp", FrmVmsMsgUserDisp);
USEFORM("VMSM600M\FrmVmsFormSelF.cpp", FrmVmsFormSel);
USEFORM("VMSM600M\VMSM520MF.cpp", VMSM520M);
USEFORM("VMSM600M\VMSM530MF.cpp", VMSM530M);
USEFORM("VMSM600M\VMSM540MF.cpp", VMSM540M);
USEFORM("VMSM600M\VMSM550MF.cpp", VMSM550M);
USEFORM("VMSM600M\VMSM510MF.cpp", VMSM510M);
//---------------------------------------------------------------------------
WINAPI _tWinMain(HINSTANCE, HINSTANCE, LPTSTR, int)
{
    if (!CheckApplicationParam()) {
        return 0;
    }
    if (!ApplicationSingleRun("TFrmVmsMsgUserDisp", "VMS 메시지 수동표출")) {
        return 0;
    }

    DateSeparator = '-';
    TimeSeparator = ':';
    ShortDateFormat ="yyyy-MM-dd";
    ShortTimeFormat = "hh:nn:ss";
    LongTimeFormat  = "hh:nn:ss";

    cxFormatController()->BeginUpdate();
    cxFormatController()->UseDelphiDateTimeFormats = true;
    cxFormatController()->EndUpdate();
    cxFormatController()->GetFormats();
    cxFormatController()->NotifyListeners();

    g_nPid     = (int)GetCurrentProcessId();
    g_sAppDir  = ExtractFilePath(Application->ExeName);
    g_sAppName = ChangeFileExt(ExtractFileName(Application->ExeName), "");
    g_sCfgDir  = g_sAppDir + g_IniFileDir + "\\";
    g_sLogDir  = g_sAppDir + "Log\\";
    ForceDirectories(g_sLogDir.c_str());
    ChDir(g_sAppDir);

    /*
    *  시스템 운영환경을 ini 파일에서 읽어 온다.
    */
    LoadDefaultConfigInfo(g_IniFileName);

    ITSLog = new TITSLog(g_sLogDir, g_sAppName, g_AppCfg.sLogDay);
    ITSLog->FLogCfg = g_LogCfg;

	if (!ITSDb_Initialize())
	{
        if (g_AppCfg.sLang == "kr")
        {
            Application->MessageBox(L"Database 자원을 시스템으로부터 얻지 못했습니다.\r\n\r\n프로그램을 종료합니다.",
                                    L"프로그램 시작 오류!!!",
                                    MB_OK|MB_ICONERROR);
        }
        else
        {
            Application->MessageBox(L"Database resource could not be obtained from the system.\r\n\r\nExit the program.",
                                    L"Program Start Error!!!",
                                    MB_OK|MB_ICONERROR);
        }
        goto prog_exit;
	}
    if (g_AppCfg.itsdb.sConnectStr == "")
    {
        ITSDb_SetInfo(g_AppCfg.itsdb.sProvider, g_AppCfg.itsdb.sServerName, g_AppCfg.itsdb.sUserName, g_AppCfg.itsdb.sPassword);
    }
    else
    {
        ITSDb_SetConnStr(g_AppCfg.itsdb.sConnectStr);
    }

    if (!ITSDb_Open())
    {
        if (g_AppCfg.sLang == "kr")
        {
            Application->MessageBox(L"데이터베이스 접속에 실패하였습니다.\r\n\r\n프로그램을 종료합니다.",
                                    L"프로그램 시작 오류!!!",
                                    MB_OK|MB_ICONERROR);
        }
        else
        {
            Application->MessageBox(L"Database connection failed.\r\n\r\nExit the program.",
                                    L"Program Start Error!!!",
                                    MB_OK|MB_ICONERROR);
        }
        goto prog_exit;
    }
    try
    {
        ReportMemoryLeaksOnShutdown = true;
        Application->Initialize();
        Application->MainFormOnTaskBar = true;
        Application->Title = g_AppCfg.sTitle;
        Application->Title = "VMS 메시지 수동표출";
         Application->CreateForm(__classid(TFrmVmsMsgUserDisp), &FrmVmsMsgUserDisp);
         Application->Run();
    }
    catch (Exception &exception)
    {
         Application->ShowException(&exception);
    }
    catch (...)
    {
         try
         {
             throw Exception("");
         }
         catch (Exception &exception)
         {
             Application->ShowException(&exception);
         }
    }

prog_exit:
    try
    {
        ITSDb_Finalize();
    }
    catch(...)
    {
    }
    
    return 0;
}
//---------------------------------------------------------------------------