//--------------------------------------------------------------------------- #include #include "ITSSkinF.h" #include "ITSUtilF.h" #include "ITSLangTransF.h" #pragma hdrstop #include "FrmMainF.h" #include "TThreadPollingF.h" #include "FrmInitializeF.h" // 프로그램 초기화화면 #include "FrmFacilityAlarmF.h" #include "FrmIncidentAlarmF.h" #include "CDSTrafficF.h" #define D_IDB0140Mx #define D_WBH0010Mx #define D_BLACKBOXx //--------------------------------------------------------------------------- #include "ITS0000MF.h" // 통합모니터링 #include "ITS0010MF.h" // 현재소통정보 #include "ITS0020MF.h" // 소통정보제보 관리 #include "ITS0030MF.h" // 돌발상황정보 관리 #include "ITS0040MF.h" // 반복정체구간관리 //#include "ITS0050MF.h" // 반복정체구간관리(기상) //--------------------------------------------------------------------------- #include "IFM0010MF.h" // 시설물 정보관리 #include "IFM0020MF.h" // 시설물 업체 관리 #include "IFM0030MF.h" // 시설물 장애 관리 #include "IFM0040MF.h" // 시설물장애 이력 #include "IFM0050MF.h" // 시설물 장애코드 관리 //--------------------------------------------------------------------------- #include "IDB0010MF.h" // 노드 #include "IDB0020MF.h" // 링크 #include "IDB0030MF.h" // 서비스링크 #include "IDB0040MF.h" // 도로 #include "IDB0050MF.h" // 가공파라미터관리 #include "IDB0051MF.h" // 가공파라미터관리 #include "IDB0060MF.h" // 소통등급관리 #include "IDB0070MF.h" // 휴일관리 #include "IDB0080MF.h" // 운영코드 관리 #include "IDB0090MF.h" // 운영자관리 #include "IDB0100MF.h" // 서버/프로세스관리 #include "IDB0110MF.h" // 기관관리 #include "IDB0120MF.h" // 간선도로관리 #include "IDB0130MF.h" // 운영자그룹 메뉴관리 #ifdef D_IDB0140M #include "IDB0140MF.h" // 홈페이지 관리자 #endif //--------------------------------------------------------------------------- #include "IHS0010MF.h" // 운영자 접속이력 #include "IHS0020MF.h" // 프로세스상태이력 #include "IHS0030MF.h" // 수집데이터 이력조회 #include "IHS0040MF.h" // 가공데이터 이력조회 #include "IHS0060MF.h" // 수집데이터 이력분석 //--------------------------------------------------------------------------- #include "IST0010MF.h" // 인터넷 접속통계 #include "IST0020MF.h" // CCTV 접속통계 #include "IST0030MF.h" // 소통정보 통계 #include "IST0040MF.h" // 돌발상황 통계 #include "IST0050MF.h" // 시설물 통신단절통계 #include "IST0060MF.h" // 프로세스 상태통계 #include "IST0070MF.h" // 도로소통정보 통계 #include "IST0080MF.h" // 도로소통정보 통계 #include "IRP0010MF.h" // 보고서 //--------------------------------------------------------------------------- #include "IAN0010MF.h" // 교통정보 수집결과 분석 #include "IAN0020MF.h" // 교통정보 가공결과 분석 #include "IAN0030MF.h" // 교통정보 제공결과 분석 #include "IAN0040MF.h" // 소통정보 이력분석 #include "IAN0050MF.h" // 패턴데이터 분석 #include "IAN0060MF.h" // 반복정체구간 분석 //#include "IAN0070MF.h" // 반복정체구간 분석(기상) //--------------------------------------------------------------------------- #include "CFG0000MF.h" // 시스템 환경설정 //--------------------------------------------------------------------------- #ifdef USE_DSRC #include "DSRH010MF.h" //DSRC-RSE 상태이력 #include "DSRH020MF.h" //DSRC-RSE 로그이력 #include "DSRH030MF.h" //DSRC-RSE 제어이력 #include "DSRH040MF.h" //DSRC-RSE 가공정보 이력조회 #include "DSRH050MF.h" //DSRC-RSE 제공정보 이력조회 #include "DSRM010MF.h" //DSRC-RSE 관리 #include "DSRM020MF.h" //DSRC-RSE 제어 #include "DSRM030MF.h" //DSRC-RSE 수집구간 설정 #include "DSRM040MF.h" //DSRC-RSE 제공구간 관리 #include "DSRH060MF.h" //DSRC-RSE OBU 수집 이력조회 #include "DSRH070MF.h" //DSRC-RSE OBU 수집 통계조회 #endif //--------------------------------------------------------------------------- #ifdef USE_VDS #include "VDSM010MF.h" //VDS-제어기 관리 #include "VDSM020MF.h" //VDS-검지기 관리 #include "VDSH010MF.h" //VDS-제어기 상태이력 #include "VDSH020MF.h" //VDS-제어기 이벤트이력 #include "VDSH030MF.h" //VDS-검지기 과거수집이력 #include "VDSH040MF.h" //VDS-검지기 원시수집이력 #include "VDSH050MF.h" //VDS-검지기 평활화이력 #include "VDSH060MF.h" //VDS-검지기 보정이력 #include "VDSS010MF.h" //VDS-검지기 통계조회 #include "VDSS020MF.h" //VDS-검지기 통계조회 #endif //--------------------------------------------------------------------------- #ifdef USE_AVI #include "AVIM010MF.h" //AVI-제어기 관리 #include "AVIM020MF.h" //AVI-구간 관리 #include "AVIH010MF.h" //AVI-제어기 상태이력 #include "AVIH020MF.h" //AVI-제어기 차량인식이력 #include "AVIH030MF.h" //AVI-제어기 교통정보이력 #include "AVIH040MF.h" //AVI-제어기 차량통과이력 #include "AVIH050MF.h" //AVI-구간 매칭이력 #include "AVIH060MF.h" //AVI-구간 수집이력 #include "AVIH070MF.h" //AVI-구간 소통상황이력 #include "AVIH080MF.h" //AVI 지점 원시수집 이력 #include "AVIS010MF.h" //AVI-구간 소통상황통계 #include "AVIS020MF.h" //AVI-검지기 소통상황통계 #endif //--------------------------------------------------------------------------- #ifdef USE_PARK #include "PIS0010MF.h" //주차장관리 #include "PIS0020MF.h" //주차장실시간정보 #include "PISH010MF.h" //주차장실시간정보이력 #include "PIS0030MF.h" //주차장제어 #endif //--------------------------------------------------------------------------- #ifdef D_BLACKBOX #include "BDS0010MF.h" #include "BDS0020MF.h" #include "BDSH010MF.h" #include "BDSH020MF.h" #endif //--------------------------------------------------------------------------- #include "TAS0010MF.h" #include "TAS0020MF.h" #include "TAS0030MF.h" #include "TAS0040MF.h" #include "TAS0050MF.h" //--------------------------------------------------------------------------- #ifdef D_WBH0010M #include "WBH0010MF.h" //홈페이지 관리자 이력조회 #endif //--------------------------------------------------------------------------- #pragma package(smart_init) #pragma link "cxClasses" #pragma link "cxContainer" #pragma link "cxControls" #pragma link "cxEdit" #pragma link "cxGraphics" #pragma link "cxHint" #pragma link "cxLabel" #pragma link "cxLookAndFeelPainters" #pragma link "cxLookAndFeels" #pragma link "cxPC" #pragma link "cxPCdxBarPopupMenu" #pragma link "dxBar" #pragma link "dxCustomHint" #pragma link "dxRibbon" #pragma link "dxRibbonGallery" #pragma link "dxRibbonSkins" #pragma link "dxRibbonStatusBar" #pragma link "dxScreenTip" #pragma link "dxSkinBlack" #pragma link "dxSkinBlue" #pragma link "dxSkinChooserGallery" #pragma link "dxSkinsCore" #pragma link "dxSkinscxPCPainter" #pragma link "dxSkinsdxBarPainter" #pragma link "dxSkinsdxRibbonPainter" #pragma link "dxSkinsForm" #pragma link "dxStatusBar" #pragma link "dxTabbedMDI" #pragma resource "*.dfm" TFrmMain *FrmMain = NULL; #define MAX_EXEPROGRAM 21 ST_RUNPROGRAM g_RunProgram[MAX_EXEPROGRAM] = { {"TfrmCctv", "CctvMgr.exe", "CCTV관리"}, //CCTV 관리 프로그램 호출 // 0 {"TfrmCptnMgr", "CctvOpt.exe", "CCTV모니터링"}, //CCTV 모니터링 프로그램 호출 // 1 #if 1 {"TFrmVmsOprMain", "VmsOprMain.exe", "VMS 운영관리"}, //VMS 관리 프로그램 호출 // 2 #else {"TfrmVmsMgr", "VmsOpt.exe", "VMS관리"}, //VMS 관리 프로그램 호출 // 2 #endif {"TfrmCctvLog", "CctvLog.exe", "CCTV상태이력"}, //CCTV 상태이력 프로그램 호출 // 3 #if 1 {"TFrmVmsLogStts", "VmsLogStts.exe", "VMS상태이력조회"}, //VMS 상태이력 프로그램 호출 // 4 {"TFrmVmsLogMsg", "VmsLogMsg.exe", "VMS제공이력조회"}, //VMS 표출이력 프로그램 호출 // 5 #else {"TfrmVmsLog", "VmsSttsLog.exe", "VMS상태이력"}, //VMS 상태이력 프로그램 호출 // 4 {"TfrmVmsMsgLog", "VmsMsgLog.exe", "VMS표출이력"}, //VMS 표출이력 프로그램 호출 // 5 #endif {"TfrmVdsStatistics", "VmsMsgLog.exe", "VDS통계"}, //VDS 통계정보 조회 프로그램 호출 // 6 {"TfrmLinkDSRC", "DsrcSect.exe", "DSRC구간설정"}, //DSRC-RSE 수집구간 설정 // 7 {"TfrmWebCamMgr", "WebCamMgr.exe", "WEBCAM관리"}, //웹카메라관리 // 8 {"TfrmWebCamOpt", "WebCamOpt.exe", "WEBCAM모니터링"}, //웹카메라 모니터링 // 9 //VDS {"TfrmVdsMaster", "VdsMgr.exe", "VDS 제어기 관리"}, //VDS 제어기 관리 호출 //10 {"TfrmVdsDetector", "VdsDetector.exe", "VDS 검지기 관리"}, //VDS 검지기 관리 호출 //11 {"TfrmVdsCtrl", "VdsCtrl.exe", "VDS 제어"}, //VDS 제어 호출 //12 //AVI {"TfrmAviMaster", "AviMgr.exe", "AVI 제어기 관리"}, //AVI 제어기 관리 호출 //13 {"TfrmAviDetector", "AviDetector.exe", "AVI 검지기 관리"}, //AVI 검지기 관리 호출 //14 {"TfrmAviLink", "AviLink.exe", "AVI 구간 관리"}, //AVI 구간 관리 호출 //15 {"TfrmAviControl", "AviCtrl.exe", "AVI 제어"}, //AVI 제어 호출 //16 //VMS ADD Form {"TFrmVmsLogCtl", "VmsLogCtl.exe", "VMS제어이력조회"}, //VMS제어이력조회 호출 //17 {"TFrmVmsLogDnld", "VmsLogDnld.exe", "VMS다운로드이력조회"}, //VMS다운로드이력조회 호출 //18 //ETC {"", "", ""}, {"", "", ""}, }; #define FORMSHOW(x) if (x) \ { \ try { \ ShowWindow(x->Handle, SW_RESTORE); \ x->BringToFront(); \ } catch(...) {} \ } \ else \ { \ Application->CreateForm(__classid(T##x), &x); \ if (x) x->Show(); \ } //--------------------------------------------------------------------------- class TdxMyBarControl : public TdxBarControl { __published: __property OnMouseMove; __property OnMouseEnter; __property OnMouseLeave; public: __fastcall virtual TdxMyBarControl(Classes::TComponent* AOwner) : TdxBarControl(AOwner){}; }; //--------------------------------------------------------------------------- LONG __stdcall HelperExceptionFilter(struct _EXCEPTION_POINTERS * pContext) { LONG lRet = EXCEPTION_EXECUTE_HANDLER; DWORD dwRet = ERROR_SUCCESS; __try { Application->NormalizeTopMosts(); if (g_AppCfg.sLang == "kr") { Application->MessageBox(L"시스템에서 알수없는 오류가 발생했습니다.\r\n프로그램을 다시 기동해 주세요.", L"시스템 오류", MB_OK|MB_ICONERROR|MB_APPLMODAL); } else { Application->MessageBox(L"The system encountered an unknown error.\r\nPlease re-start the program.", L"System error", MB_OK|MB_ICONERROR|MB_APPLMODAL); } Application->RestoreTopMosts(); //TerminateProcess(GetCurrentProcess(), 0); } __finally { if(ERROR_SUCCESS != dwRet) { lRet = EXCEPTION_CONTINUE_SEARCH; } exit(0); } return lRet; } //--------------------------------------------------------------------------- void __fastcall TFrmMain::OnMenuMouseMove(TObject *Sender, TShiftState Shift, int X, int Y) { ::SetCursor(Screen->Cursors[crHandPoint]); } //--------------------------------------------------------------------------- __fastcall TFrmMain::TFrmMain(TComponent* Owner) : TdxCustomRibbonForm(Owner)//TdxCustomRibbonForm(Owner)//TForm(Owner) { //::CoInitialize(NULL); Caption = g_AppCfg.sTitle; Application->OnException = OnAppException; LangTrans->Translate(this, ITSDb_GetConnection()); ITSSkin_Initialize(Application, g_AppCfg.sLang, false, false); TmrOnShow->Enabled = false; TmrAppState->Enabled = false; FLogoutTick = 0; g_AppCfg.lMainWinHandle = (long)Handle; StartJobThread(); while(!PostJobMessage(WM_THREAD, WP_PING)) ; String sCaption = ""; ReadConfigInfo(g_AppCfg.sConfigFile, "APPLICATION", "CAPTION", sCaption); ITSSkin_Caption(sCaption == "1" ? true : false); //탭메뉴비활성 TabBlackBox->Visible = false; //BlackBox TabCctv->Visible = false; TabAvi->Visible = false; TabDsrc->Visible = false; TabSms->Visible = false; //SMD TabParking->Visible = false; //메뉴전체 비활성 BarWebCam->Visible = false; //웹카메라(서브메뉴) BarConfig4->Visible = false; //스킨 // 메뉴비활성 #ifndef D_IDB0140M NIDB0140M->Visible = ivNever; #endif #ifndef D_WBH0010M NWBH0010M->Visible = ivNever; #endif //환경설정 NCFG0001M->Visible = ivNever; //지도 레이어설정 //통계-분석 NIST0010M->Visible = ivNever; //인터넷접속 통계 NIST0020M->Visible = ivNever; //CCTV접속 통계 //NIAN0040M->Visible = ivNever; //소통정보이력 분석 - 남양주(교통정보분석지원 메뉴에서 대체) //시설물관리 NIFM0040M->Visible = ivNever; //시설물장애 이력 NIFM0050M->Visible = ivNever; //시설물 장애코드 관리 //AVI RAVIC010M->Visible = ivNever; //AVI 제어[R] //VMS RVMSH300M->Visible = ivNever; //VMS 제어이력(R) RVMSH400M->Visible = ivNever; //VMS 다운로드이력(R) //주차장 NPIS0030M->Visible = ivNever; //주차장 제어 NITS0050M->Visible = ivNever; //반복정체관리(기상) //Ribon config Ribbon->ShowTabGroups = true; // 메뉴탭 show/hide Ribbon->QuickAccessToolbar->Visible = false; //Ribbon->ApplicationButton->Visible = false; Ribbon->SupportNonClientDrawing = true; Ribbon->EnableTabAero = true; //Active Tab set TabTraffic->Active = true; SetColorScheme(g_AppCfg.sSkinName); CMM_SetFormPosition(g_AppCfg.bSaveForm); CMM_LoadForm(g_sFormsDir, this); #if 1 int nCompnentCnt = this->ComponentCount; for (int ii = 0; ii < nCompnentCnt; ii++) { String sClassName = this->Components[ii]->ClassName(); if(sClassName == "TdxBar") { TdxBar *pMenuGrp = (TdxBar *)this->Components[ii]; if (pMenuGrp->Visible == false) continue; static_cast(pMenuGrp->Control)->OnMouseMove = OnMenuMouseMove; } } #endif //ITSSkin_Menu(this); } //--------------------------------------------------------------------------- /* * Form이 메모리에서 생성될때 호출되는 생성자 이벤트 핸들러 * arguments * Sender : event handler 객체 * return * void */ void __fastcall TFrmMain::FormCreate(TObject *Sender) { /* 레지스터리 등록 IE 최신버전 */ String sExeName = ExtractFileName(Application->ExeName); UpdateExplorerEmulatorVersion(sExeName); //SetUnhandledExceptionFilter(HelperExceptionFilter); Application->ShowMainForm = false; try { Application->Icon->LoadFromResourceName(((unsigned int)HInstance), "MAINICON"); } catch(...) { ShowMessage("LoadFromResourceName failed"); } //DeleteLogFiles((PTCHAR)g_sLogDir.c_str(), 30, (PTCHAR)"*.*"); WindowState = wsMaximized; // 종료조건이 있는경우.. //Application->Terminate(); //return; Application->ShowMainForm = true; Application->OnHint = OnAppHint; ImgAlarm->Visible = false; ImgAlarmNormal->Visible = true; } //--------------------------------------------------------------------------- bool __fastcall TFrmMain::UpdateExplorerEmulatorVersion(String AAppName) { TRegistry *reg = new TRegistry(KEY_READ|KEY_WRITE|KEY_WOW64_64KEY); if (reg == NULL) return false; String sKey = "SOFTWARE\\Wow6432Node\\Microsoft\\Internet Explorer\\MAIN\\FeatureControl\\FEATURE_BROWSER_EMULATION"; reg->RootKey = HKEY_LOCAL_MACHINE; if (!reg->KeyExists(sKey)) { //MessageDlg("Key not found! Created now.", mtInformation, TMsgDlgButtons() << mbOK, 0); bool bOpenKey = reg->CreateKey(sKey); //return false; } reg->Access = KEY_WRITE; bool openResult = reg->OpenKey(sKey, true); if(!openResult) { //MessageDlg("Unable to create key! Exiting.", mtError, TMsgDlgButtons() << mbOK, 0); return false; } if (!reg->KeyExists(AAppName)) { reg->WriteInteger(AAppName, 10000); //reg->WriteInteger(AAppName, 10001); //reg->WriteInteger(AAppName, 11000); #if 0 11001 Internet Explorer 11. Webpages are displayed in IE11 edge mode, regardless of the !DOCTYPE directive. 11000 IE11. Webpages containing standards-based !DOCTYPE directives are displayed in IE11 edge mode. Default value for IE11. 10001 Internet Explorer 10. Webpages are displayed in IE10 Standards mode, regardless of the !DOCTYPE directive. 10000 Internet Explorer 10. Webpages containing standards-based !DOCTYPE directives are displayed in IE10 Standards mode. Default value for Internet Explorer 10. 9999 Windows Internet Explorer 9. Webpages are displayed in IE9 Standards mode, regardless of the !DOCTYPE directive. 9000 Internet Explorer 9. Webpages containing standards-based !DOCTYPE directives are displayed in IE9 mode. Default value for Internet Explorer 9. 8888 Webpages are displayed in IE8 Standards mode, regardless of the !DOCTYPE directive. 8000 Webpages containing standards-based !DOCTYPE directives are displayed in IE8 mode. Default value for Internet Explorer 8 7000 Webpages containing standards-based !DOCTYPE directives are displayed in IE7 Standards mode. Default value for applications hosting the WebBrowser Control. #endif } reg->CloseKey(); reg->Free(); return true; } //--------------------------------------------------------------------------- /* * Form을 보여줄때 호출되는 event 메서드이다. * arguments * Sender : event handler 객체 * return * void */ void __fastcall TFrmMain::FormShow(TObject *Sender) { Application->ProcessMessages(); g_AppCfg.lMainWinHandle = (long)Handle; /* * 프로그램 초기화 작업 */ InitStatusBar(); if (g_pLOGIN) { GetUserMenuRight(g_pLOGIN->sUserId, g_pLOGIN->sUserRightId); } TmrOnShow->Enabled = true; } //--------------------------------------------------------------------------- /* * 프로그램 기동후 최초에 수행된다. * arguments * * return * void */ void __fastcall TFrmMain::TmrOnShowTimer(TObject *Sender) { TmrOnShow->Enabled = false; Application->ProcessMessages(); TFrmInitialize *FrmInitialize = new TFrmInitialize(this); FrmInitialize->FThreadId = g_AppCfg.thr.dwThreadId; FrmInitialize->ShowModal(); //폴링작업 객체 초기화 FPollTraffic00.Cycle = (60*1000*2)+ 5; // 링크소통정보(전체) FPollTraffic01.Cycle = (60*1000*2)+10; // 링크소통정보 FPollTraffic02.Cycle = (60*1000*2)+11; // 서비스링크소통정보 FPollTraffic03.Cycle = (60*1000*2)+12; // 도로소통정보 FPollTraffic04.Cycle = (60*1000*2)+13; // 반복정체구간 FPollTraffic05.Cycle = (60*1000*5)+ 0; // UTIS운영정보 FPollStatus01.Cycle = (60*1000*1)+ 1; // 시설물상태정보 FPollStatus02.Cycle = (60*1000*5)+ 3; // 프로세스상태정보 FPollStatus03.Cycle = (60*1000*1)+ 5; // 돌발정보 FPollEvent01.Cycle = (60*1000*1)+ 1; // 블랙박스이벤트 FPollVilgFrcs.Cycle = (60*1000*10)+1; // 기상정보 FPollTraffic00.IsPolling = true; // 링크소통정보(전체) FPollTraffic01.IsPolling = false; // 링크소통정보 FPollTraffic02.IsPolling = false; // 서비스링크소통정보 FPollTraffic03.IsPolling = false; // 도로소통정보 FPollTraffic04.IsPolling = true; // 반복정체구간 #ifdef USE_UTIS FPollTraffic05.IsPolling = true; // UTIS운영정보 #else FPollTraffic05.IsPolling = true;//false; // UTIS운영정보 #endif FPollStatus01.IsPolling = true; // 시설물상태정보 FPollStatus02.IsPolling = true; // 프로세스상태정보 FPollStatus03.IsPolling = true; // 돌발정보 FPollEvent01.IsPolling = true; // 블랙박스이벤트 FPollVilgFrcs.IsPolling = true; // 기상정보 //내부통신 초기화 시작... TItsProcess *pPrcs = ItsProcessManager->FLists.Find(g_AppCfg.sProcessId); if (!pPrcs) { if (g_AppCfg.sLang == "kr") { Application->MessageBox(L"통신프로세스를 초기화 하지 못하였습니다.\r\n환경설정에서 시스템ID를 확인하세요.\r\n프로그램을 종료합니다.", L"프로그램 통신오류_1", MB_OK|MB_ICONERROR|MB_APPLMODAL); } else { Application->MessageBox(L"Failed to initialize communication process.\r\nPlease check your system ID in preferences.\r\nExit the program.", L"Program communication error_1", MB_OK|MB_ICONERROR|MB_APPLMODAL); } g_AppCfg.bAppClose = true; Close(); return; } int nPort = pPrcs->PRGM_PORT.ToIntDef(4602); int nResult = VComm_Initialize((long)Handle, g_AppCfg.sProcessId, "UOT", nPort, g_AppCfg.sLogDay); if (VERR_NONE != nResult) { if (g_AppCfg.sLang == "kr") { Application->MessageBox(L"통신프로세스를 초기화 하지 못하였습니다.\r\n환경설정에서 시스템ID를 확인하세요.\r\n프로그램을 종료합니다.", L"프로그램 통신오류_2", MB_OK|MB_ICONERROR|MB_APPLMODAL); } else { Application->MessageBox(L"Failed to initialize communication process.\r\nPlease check your system ID in preferences.\r\nExit the program.", L"Program communication error_2", MB_OK|MB_ICONERROR|MB_APPLMODAL); } g_AppCfg.bAppClose = true; Close(); return; } FOR_STL(TItsProcess*, pObj, ItsProcessManager->FLists) { if (pObj->DEL_YN == "Y") continue; AnsiString sProcessId = AnsiString(pObj->SYST_ID); AnsiString sSystemTp = AnsiString(pObj->SYST_TYPE); AnsiString sIpAddress = AnsiString(pObj->SYST_IP_1); AnsiString sUdpPort = AnsiString(pObj->PRGM_PORT); if (VComm_AddProcess(sProcessId, sSystemTp, sIpAddress, sUdpPort) >= 0) { #if 0 if ("UOT" == sSystemTp) { nPort = sUdpPort.ToIntDef(0); VComm_AddProcess(sProcessId, sSystemTp, sIpAddress, AnsiString(nPort+1)); } #endif } } if (VERR_NONE != VComm_Open()) { if (g_AppCfg.sLang == "kr") { Application->MessageBox(L"통신프로세스를 초기화 하지 못하였습니다.\r\n환경설정에서 시스템ID를 확인하세요.\r\n프로그램을 종료합니다.", L"프로그램 통신오류_3", MB_OK|MB_ICONERROR|MB_APPLMODAL); } else { Application->MessageBox(L"Failed to initialize communication process.\r\nPlease check your system ID in preferences.\r\nExit the program.", L"Program communication error_3", MB_OK|MB_ICONERROR|MB_APPLMODAL); } g_AppCfg.bAppClose = true; Close(); return; } //내부통신 초기화 끝... ((TdxStatusBarTextPanelStyle*)dxStatusBar->Panels->Items[isbComm]->PanelStyle)->ImageIndex = 8; Application->ProcessMessages(); ((TdxStatusBarTextPanelStyle*)dxStatusBar->Panels->Items[isbDb]->PanelStyle)->ImageIndex = ITSDb_IsOpen() ? 8 : 7; //TODO NITS0000MClick((TObject *)NITS0000M); //메인화면을 프로그램 기동과 동시에 호출하는 경우 #if 0 if (g_AppCfg.AutoLogout.LogoutExit) { Application->MessageBox(L"이전 프로그램은 자동로그아웃으로 종료되었습니다.\r\n프로그램을 실행합니다.", L"프로그램 실행정보", MB_OK|MB_ICONQUESTION|MB_APPLMODAL); } #endif g_AppCfg.AutoLogout.LogoutExit = false; TmrAppState->Enabled = true; TmrPolling->Enabled = true; TmrDbCheck->Enabled = true; } //--------------------------------------------------------------------------- /* * 작업스레드 생성 * arguments * * return * void */ bool __fastcall TFrmMain::StartJobThread() { TThreadPolling *pPollingThread = new TThreadPolling(false); if (pPollingThread) { pPollingThread->OnTerminate = OnPollingThreadDone; g_AppCfg.thr.pThread = (TThread *)pPollingThread; g_AppCfg.thr.dwThreadId = pPollingThread->ThreadID; g_AppCfg.thr.nHandle = pPollingThread->Handle; //pPollingThread->Resume(); return true; } return false; } //--------------------------------------------------------------------------- /* * 작업스레드 종료 * arguments * * return * void */ void __fastcall TFrmMain::TerminateJobThread() { if (g_AppCfg.thr.bRunning) { PostJobMessage(WM_THREAD, WM_QUIT); } Sleep(500); try { if (g_AppCfg.thr.bRunning) { TThreadPolling *pThread = (TThreadPolling *)g_AppCfg.thr.pThread; pThread->Terminate(); //pThread->WaitFor(); } g_AppCfg.thr.pThread = NULL; g_AppCfg.thr.dwThreadId = 0; g_AppCfg.thr.nHandle = 0; g_AppCfg.thr.bRunning = false; } catch(...) { } } //--------------------------------------------------------------------------- /* * Form이 닫히기 전에 프로그램의 종료여부를 확인한다. * arguments * * return * void */ void __fastcall TFrmMain::FormCloseQuery(TObject *Sender, bool &CanClose) { // 폼이 닫히기 전에 수행해야 할 모뮬 기술 // 프로그램 종료를 사용자가 확인할 수 있도록... if (!g_AppCfg.bAppClose) { String strMsg; strMsg = ""; strMsg = "[ " + g_AppCfg.sTitle + " ]\r\n\n"; strMsg+= FrmLang->cxLabel1->Caption; if(Application->MessageBox(strMsg.c_str(), FrmLang->cxLabel2->Caption.c_str(), MB_YESNO|MB_ICONQUESTION) == IDYES) { /* * 화면관련 작업을 못하도록 여기에 코드를 적자... */ ITSDb_ApplicationTerm(); g_AppCfg.bAppClose = true; } CanClose = false; } } //--------------------------------------------------------------------------- /* * Form을 닫을때 호출되는 event 메서드 * arguments * Sender : event handler 객체 * Action : TCloseAction 객체 * return * void */ void __fastcall TFrmMain::FormClose(TObject *Sender, TCloseAction &Action) { CommClose(); Action = caFree; } //--------------------------------------------------------------------------- /* * 닫기버튼 이나 x버튼 클릭시 공통으로 처리하는 로직이들어간다.. * Form과 DataModule class를 delete시킨다. * arguments * * return * void */ void __fastcall TFrmMain::CommClose() { try { CloseAllWindow(); ITSSkin_Term(); CMM_SaveForm(g_sFormsDir, this); WriteConfigInfo(g_AppCfg.sConfigFile, "APPLICATION", "LOGDAY", Now().FormatString("dd")); ::CoUninitialize(); } catch(...) { } } //--------------------------------------------------------------------------- /* * 열려있는 모든 Form Window들을 닫는다. * parameter * Sender : Event를 보낸 객체 * return * None */ void __fastcall TFrmMain::CloseAllWindow() { int ii; // 실행시킨 프로그램을 종료시킨다. for (ii = 0; ii < MAX_EXEPROGRAM; ii++) { if (g_RunProgram[ii].AClassName == "") continue; TermItsProgram(g_RunProgram[ii].AClassName, ""); } //실행중인 화면을 종료 시킨다. try { int nForms = Screen->FormCount; for (ii = nForms-1; ii >= 0; ii--) { if (Screen->Forms[ii] != this) { if (::IsWindow(Screen->Forms[ii]->Handle)) { String sFormName = Screen->Forms[ii]->Name; if (sFormName == "ITSSkin") continue; if (sFormName == "FrmSkin") continue; if (sFormName == "FrmLang") continue; if (sFormName.SubString(1, 11) == "PlugInChart") continue; if (Screen->Forms[ii]->Owner == this || Screen->Forms[ii]->Owner == Application) { Screen->Forms[ii]->Close(); Application->ProcessMessages(); try { WaitForSingleObject(Screen->Forms[ii]->Handle, 500); }catch(Exception &e) {} } } Application->ProcessMessages(); } } } catch(...) {} } //--------------------------------------------------------------------------- /* * 매1초 마다 주기적으로 실행되는 타이머 * arguments * Sender : event handler 객체 * return * void */ void __fastcall TFrmMain::TmrAppStateTimer(TObject *Sender) { /* * 타이머가 1초간격으로 응용프로그램의 상태를 체크하고 * 응용프로그램의 상태를 주기적으로 체크하여 필요한 조치를 수행한다. */ if (g_AppCfg.bAppClose) { TmrAppState->Enabled = false; TmrPolling->Enabled = false; TmrDbCheck->Enabled = false; UserLogout(); // 로그아웃 TerminateJobThread(); ITSDb_Close(); Close(); // 응용프로그램 종료 } else { TmrAppState->Enabled = false; UpdateStatusBar(); //UpdateCommStatus(); if (g_AppCfg.AutoLogout.Enabled) { FLogoutTick++; if (FLogoutTick > (g_AppCfg.AutoLogout.IntervalMin*60)) { //자동로그아웃처리 g_AppCfg.bAppClose = true; g_AppCfg.AutoLogout.LogoutExit = true; } } TmrAppState->Enabled = true; } } //--------------------------------------------------------------------------- void __fastcall TFrmMain::UpdateCommStatus() { static bool bStatus = false; #if 0 if (CenterThreadMonitoring(true)) { ((TdxStatusBarTextPanelStyle*)dxStatusBar->Panels->Items[isbComm]->PanelStyle)->ImageIndex = 7; } else #endif { ((TdxStatusBarTextPanelStyle*)dxStatusBar->Panels->Items[isbComm]->PanelStyle)->ImageIndex = bStatus ? 8 : 7; bStatus = !bStatus; } } //--------------------------------------------------------------------------- void __fastcall TFrmMain::UpdateStatusBar() { try { dxStatusBar->Panels->Items[isbTime]->Text = Now().FormatString(STR_DATETIME); #if 0 if (ITSDb_IsOpen()) { if (((TdxStatusBarTextPanelStyle*)dxStatusBar->Panels->Items[isbDb]->PanelStyle)->ImageIndex != 8) ((TdxStatusBarTextPanelStyle*)dxStatusBar->Panels->Items[isbDb]->PanelStyle)->ImageIndex = 8; } else { if (((TdxStatusBarTextPanelStyle*)dxStatusBar->Panels->Items[isbDb]->PanelStyle)->ImageIndex != 7) ((TdxStatusBarTextPanelStyle*)dxStatusBar->Panels->Items[isbDb]->PanelStyle)->ImageIndex = 7; } #endif } catch(...) { } } //--------------------------------------------------------------------------- void __fastcall TFrmMain::DebugMsg(String AMsg) { dxStatusBar->Panels->Items[isbMsg]->Text = " " + AMsg; dxStatusBar->Panels->Items[isbMsg]->StatusBarControl->Refresh(); TmrDebugHide->Enabled = false; TmrDebugHide->Enabled = true; if (g_AppCfg.bDebug) ITSUtil_Trace(AnsiString("ITS_OP: " + AMsg).c_str()); } //--------------------------------------------------------------------------- void __fastcall TFrmMain::TmrDebugHideTimer(TObject *Sender) { dxStatusBar->Panels->Items[isbMsg]->Text = ""; dxStatusBar->Panels->Items[isbMsg]->StatusBarControl->Refresh(); TmrDebugHide->Enabled = false; } //--------------------------------------------------------------------------- void __fastcall TFrmMain::InitStatusBar() { try { dxStatusBar->Panels->Items[isbGisPos]->Text = ""; dxStatusBar->Panels->Items[isbTime]->Text = Now().FormatString(STR_DATETIME); if (g_pLOGIN) { String sUserName = g_pLOGIN->sUserName.Trim(); if (sUserName == "") sUserName = g_pLOGIN->sUserId; dxStatusBar->Panels->Items[isbUser]->Text = sUserName; ((TdxStatusBarTextPanelStyle*)dxStatusBar->Panels->Items[isbUser]->PanelStyle)->ImageIndex = 9; } else { //dxStatusBar->Panels->Items[isbUser]->Text = g_pLOGIN->sUserName;// = "로그인 X"; ((TdxStatusBarTextPanelStyle*)dxStatusBar->Panels->Items[isbUser]->PanelStyle)->ImageIndex = 9; } //dxStatusBar->Panels->Items[isbScale]->Visible = false; //dxStatusBar->Panels->Items[isbPos]->Visible = false; dxStatusBar->Panels->Items[isbHint]->Text = ""; dxStatusBar->Panels->Items[isbMsg]->Text = ""; //dxStatusBar->Panels->Items[isbDb]->Text = "DB"; //dxStatusBar->Panels->Items[isbComm]->Text = "통신"; UpdateStatusBar(); } catch(...) { } } //--------------------------------------------------------------------------- bool __fastcall TFrmMain::GetUserMenuRight(String AUserId, String AUserRight) { String sQry; TADOQuery *pADO = NULL; try { sQry = "SELECT OPERSYST_MENU_ID \r\n" " FROM TB_GROP_MENU_ATHR \r\n" " WHERE ATHR_YN = 'N' \r\n" " AND GROP_ID = (SELECT GROP_ID \r\n" " FROM TB_USER_INFR \r\n" " WHERE USER_ID = :p01) \r\n"; try { pADO = new TADOQuery(NULL); pADO->Close(); pADO->Connection = ITSDb_GetConnection(); ITSDb_SQLText(pADO, sQry); ITSDb_SQLBind(pADO, "p01", AUserId); ITSDb_SQLOpen(pADO); for( ; !pADO->Eof; pADO->Next()) { String sMenuId = pADO->FieldByName("OPERSYST_MENU_ID")->AsString; try { int nCompnentCnt = this->ComponentCount; for (int ii = 0; ii < nCompnentCnt; ii++) { String sClassName = this->Components[ii]->ClassName(); if(sClassName == "TdxBarLargeButton") { TdxBarLargeButton *pMenu = (TdxBarLargeButton *)this->Components[ii]; if (pMenu->Name == sMenuId) { pMenu->Enabled = false; break; } } } } catch(...) { } } } catch (Exception &exception) { throw Exception(String(exception.ClassName()) + exception.Message); } catch (...) { //throw Exception(FrmLang->lblDbErr->Caption);//"운영자권한정보 조회 중에 알수없는 오류가 발생하였습니다."); } } __finally { if (pADO) { pADO->Close(); delete pADO; } } return true; } //--------------------------------------------------------------------------- HWND __fastcall TFrmMain::FindChildWindow(String sFormName) { int nFormCnt = Screen->FormCount; for (int ii = 0; ii < nFormCnt; ii++) { TForm *pForm = Screen->Forms[ii]; String sTmpFormName = pForm->Name.SubString(1, sFormName.Length()); if (sTmpFormName == sFormName) { return pForm->Handle; } } return NULL; } //--------------------------------------------------------------------------- void __fastcall TFrmMain::OnSkinClick(TObject *Sender) { TdxBarButton *pMenu = (TdxBarButton*)Sender; try { dxSkinController1->SkinName = pMenu->Caption; dxSkinController1->Refresh(); //ITSSkin_SetName(dxSkinController1->SkinName); } catch(...) {} } //--------------------------------------------------------------------------- void __fastcall TFrmMain::TmrPollingTimer(TObject *Sender) { TmrPolling->Enabled = false; DWORD dwTick = GetTickCount(); UpdateThreadStatus(true); //작업스레드 실행 확인 // 링크소통정보(전체) if (FPollTraffic00.IsPolling && FPollTraffic00.IsPollingTime(dwTick)) { SetProcessWorkingSetSize(GetCurrentProcess(), -1, -1); FPollTraffic00.Polling = dwTick; PostJobMessage(WM_THREAD, WP_PARAM_TRAFFIC, LP_MSG_00); DebugMsg(FrmLang->cxLabel3->Caption + FrmLang->cxLabelReq->Caption); } // 링크소통정보 if (FPollTraffic01.IsPolling && FPollTraffic01.IsPollingTime(dwTick)) { FPollTraffic01.Polling = dwTick; PostJobMessage(WM_THREAD, WP_PARAM_TRAFFIC, LP_MSG_01); DebugMsg(FrmLang->cxLabel4->Caption + FrmLang->cxLabelReq->Caption); } // 서비스링크소통정보 if (FPollTraffic02.IsPolling && FPollTraffic02.IsPollingTime(dwTick)) { FPollTraffic02.Polling = dwTick; PostJobMessage(WM_THREAD, WP_PARAM_TRAFFIC, LP_MSG_02); DebugMsg(FrmLang->cxLabel5->Caption + FrmLang->cxLabelReq->Caption); } // 도로소통정보 if (FPollTraffic03.IsPolling && FPollTraffic03.IsPollingTime(dwTick)) { FPollTraffic03.Polling = dwTick; PostJobMessage(WM_THREAD, WP_PARAM_TRAFFIC, LP_MSG_03); DebugMsg(FrmLang->cxLabel6->Caption + FrmLang->cxLabelReq->Caption); } // 반복정체구간 if (FPollTraffic04.IsPolling && FPollTraffic04.IsPollingTime(dwTick)) { FPollTraffic04.Polling = dwTick; PostJobMessage(WM_THREAD, WP_PARAM_TRAFFIC, LP_MSG_04); DebugMsg(FrmLang->cxLabel7->Caption + FrmLang->cxLabelReq->Caption); } // UTIS운영정보 if (FPollTraffic05.IsPolling && FPollTraffic05.IsPollingTime(dwTick)) { FPollTraffic05.Polling = dwTick; DebugMsg(FrmLang->cxLabel18->Caption + FrmLang->cxLabelReq->Caption); //UTIS운영정보 조회, Database 운영정보조회 PostJobMessage(WM_THREAD, WP_PARAM_TRAFFIC, LP_MSG_05); } // 시설물상태정보 if (FPollStatus01.IsPolling && FPollStatus01.IsPollingTime(dwTick)) { FPollStatus01.Polling = dwTick; PostJobMessage(WM_THREAD, WP_PARAM_TRAFFIC, LP_MSG_11); DebugMsg(FrmLang->cxLabel8->Caption + FrmLang->cxLabelReq->Caption); } // 프로세스상태정보 if (FPollStatus02.IsPolling && FPollStatus02.IsPollingTime(dwTick)) { FPollStatus02.Polling = dwTick; PostJobMessage(WM_THREAD, WP_PARAM_TRAFFIC, LP_MSG_12); DebugMsg(FrmLang->cxLabel9->Caption + FrmLang->cxLabelReq->Caption); } // 돌발정보 if (FPollStatus03.IsPolling && FPollStatus03.IsPollingTime(dwTick)) { FPollStatus03.Polling = dwTick; PostJobMessage(WM_THREAD, WP_PARAM_TRAFFIC, LP_MSG_13); DebugMsg(FrmLang->cxLabel10->Caption + FrmLang->cxLabelReq->Caption); } // 블랙박스이벤트 if (FPollEvent01.IsPolling && FPollEvent01.IsPollingTime(dwTick)) { FPollEvent01.Polling = dwTick; //PostJobMessage(WM_THREAD, WP_PARAM_TRAFFIC, LP_MSG_16); DebugMsg(FrmLang->cxLabel11->Caption + FrmLang->cxLabelReq->Caption); } if (FPollVilgFrcs.IsPolling && FPollVilgFrcs.IsPollingTime(dwTick)) { FPollVilgFrcs.Polling = dwTick; //PostJobMessage(WM_THREAD, WP_PARAM_TRAFFIC, LP_MSG_17); DebugMsg(FrmLang->cxLabel12->Caption + FrmLang->cxLabelReq->Caption); } if (Now().FormatString("nn") == "13") { // 매시 10분에 기상정보를 저장하니까 13분에 디비에서 읽자 String sCurrTm = Now().FormatString("hh"); } if (!g_AppCfg.bAppClose) TmrPolling->Enabled = true; } //--------------------------------------------------------------------------- /* * 작업스레드로 작업 메시지를 전송한다. * arguments * * return * void */ bool __fastcall TFrmMain::PostJobMessage(UINT nMsg, int WParam/*=0*/, int LParam/*=0*/) { int nRes; if (g_AppCfg.bDebug) ITSUtil_Trace("PostJobMessage: Msg: %02X, WParam: %02X, LParam: %02X", nMsg, WParam, LParam); if (g_AppCfg.thr.dwThreadId) { for (int ii = 0; ii < 3; ii++) { if (PostThreadMessageW(g_AppCfg.thr.dwThreadId, nMsg, WParam, LParam)) { nRes = 0; return true; } else { nRes = GetLastError(); if (ERROR_INVALID_THREAD_ID == nRes) { Sleep(500); continue; } } } } return false; } //--------------------------------------------------------------------------- /* * 통합모니터링 화면 호출 */ void __fastcall TFrmMain::NITS0000MClick(TObject *Sender) { FORMSHOW(ITS0000M); } //--------------------------------------------------------------------------- /* * 현재소통정보 조회 화면 호출 */ void __fastcall TFrmMain::NITS0010MClick(TObject *Sender) { FORMSHOW(ITS0010M); } //--------------------------------------------------------------------------- /* * 소통정보제보 관리 화면 호출 */ void __fastcall TFrmMain::NITS0020MClick(TObject *Sender) { FORMSHOW(ITS0020M); } //--------------------------------------------------------------------------- /* * 돌발상황정보 관리 화면 호출 */ void __fastcall TFrmMain::NITS0030MClick(TObject *Sender) { FORMSHOW(ITS0030M); } //--------------------------------------------------------------------------- /* * 반복정체구간관리 화면 호출 */ void __fastcall TFrmMain::NITS0040MClick(TObject *Sender) { FORMSHOW(ITS0040M); } //--------------------------------------------------------------------------- /* * 노드관리 화면 호출 */ void __fastcall TFrmMain::NIDB0010MClick(TObject *Sender) { FORMSHOW(IDB0010M); } //--------------------------------------------------------------------------- /* * 링크관리 화면 호출 */ void __fastcall TFrmMain::NIDB0020MClick(TObject *Sender) { FORMSHOW(IDB0020M); } //--------------------------------------------------------------------------- /* * 도로관리 화면 호출 */ void __fastcall TFrmMain::NIDB0030MClick(TObject *Sender) { FORMSHOW(IDB0030M); } //--------------------------------------------------------------------------- /* * 회전정보 화면 호출 */ void __fastcall TFrmMain::NIDB0040MClick(TObject *Sender) { FORMSHOW(IDB0040M); } //--------------------------------------------------------------------------- /* * 간선도로 관리 화면 호출 */ void __fastcall TFrmMain::NIDB0120MClick(TObject *Sender) { FORMSHOW(IDB0120M); } //--------------------------------------------------------------------------- /* * 운영자그룹 메뉴관리 화면 호출 */ void __fastcall TFrmMain::NIDB0130MClick(TObject *Sender) { FORMSHOW(IDB0130M); } //--------------------------------------------------------------------------- /* * 파라미터관리 화면 호출 */ void __fastcall TFrmMain::NIDB0050MClick(TObject *Sender) { FORMSHOW(IDB0050M); } //--------------------------------------------------------------------------- /* * 소통등급관리 화면 호출 */ void __fastcall TFrmMain::NIDB0060MClick(TObject *Sender) { FORMSHOW(IDB0060M); } //--------------------------------------------------------------------------- /* * 휴일관리 화면 호출 */ void __fastcall TFrmMain::NIDB0070MClick(TObject *Sender) { FORMSHOW(IDB0070M); } //--------------------------------------------------------------------------- /* * 운영코드 관리 화면 호출 */ void __fastcall TFrmMain::NIDB0080MClick(TObject *Sender) { FORMSHOW(IDB0080M); } //--------------------------------------------------------------------------- /* * 운영자관리 화면 호출 */ void __fastcall TFrmMain::NIDB0090MClick(TObject *Sender) { FORMSHOW(IDB0090M); } //--------------------------------------------------------------------------- /* * 기관관리 화면 호출 */ void __fastcall TFrmMain::NIDB0110MClick(TObject *Sender) { FORMSHOW(IDB0110M); } //--------------------------------------------------------------------------- /* * 서버/프로세스관리 화면 호출 */ void __fastcall TFrmMain::NIDB0100MClick(TObject *Sender) { FORMSHOW(IDB0100M); } //--------------------------------------------------------------------------- /* * 시스템 환경설정 화면 호출 */ void __fastcall TFrmMain::NCFG0000MClick(TObject *Sender) { String sIniFile = ChangeFileExt(ExtractFileName(Application->ExeName), ".ini"); CFG0000M = new TCFG0000M(this); CFG0000M->IniFile = sIniFile; CFG0000M->ShowModal(); delete CFG0000M; CFG0000M = NULL; if (NITS0000M->Enabled) { HWND hWnd = FindChildWindow("ITS0000M"); if (hWnd) POST_MSG(hWnd, WM_MAINFORM, WP_DB_SELECT_OK, LP_MSG_11); } ShowFacilityStatus(); } //--------------------------------------------------------------------------- /* * 지도 레이어 설정 화면 호출 */ void __fastcall TFrmMain::NCFG0001MClick(TObject *Sender) { try { if (ITS00MAP) { ITS00MAP->ShowLayerEditForm(); } else { Application->MessageBox(L"지도레이어 설정은 메인화면이 실행되어 있을때 설정할 수 있습니다.\r\n메인화면을 먼저 실행하세요.", L"지도레이어 설정", MB_OK|MB_ICONWARNING|MB_APPLMODAL); } } catch(...) {} } //--------------------------------------------------------------------------- void __fastcall TFrmMain::dxSkinChooserGalleryItem1SkinChanged(TObject *Sender, const UnicodeString ASkinName) { g_AppCfg.sSkinName = ASkinName; WriteConfigInfo(g_AppCfg.sConfigFile, "APPLICATION", "SKINNAME", g_AppCfg.sSkinName); SetColorScheme(ASkinName); } //--------------------------------------------------------------------------- void __fastcall TFrmMain::SetColorScheme(String ASkinName) { Ribbon->ColorSchemeName = ASkinName; dxSkinController1->SkinName = ASkinName; dxSkinController1->Refresh(); dxTabbedMDIManager1->LookAndFeel->SkinName = ASkinName; dxStatusBar->Invalidate(); //Panel1->Color = Ribbon->ColorScheme->GetPartColor(rfspRibbonForm); //Ribbon.ColorSchemeName := AName; //SkinChooserSelectSkinName(AName); //Panel1.Color := Ribbon.ColorScheme.GetPartColor(rfspRibbonForm); //dxStatusBar.Invalidate; } //--------------------------------------------------------------------------- void __fastcall TFrmMain::ExecuteItsProgram(String AClassName, String AExeName, String AOption) { HWND hExeForm = FindWindow(AClassName.c_str(), NULL); if (hExeForm) { SetWindowPos(hExeForm, HWND_TOP, 0, 0, 0, 0, SWP_SHOWWINDOW | SWP_NOSIZE | SWP_NOMOVE); } else { String sExeName = ""; String sExeParam= ""; //if (!ReadConfigInfo(g_AppCfg.sConfigFile, "PROGRAM", AOption, sExeName)) { if (g_AppCfg.sAppPath == "") { sExeName = AExeName; } else { sExeName = g_AppCfg.sAppPath + "\\" + AExeName; } sExeParam = g_pLOGIN->sUserId; } ShellExecute(Handle, NULL, sExeName.c_str(), sExeParam.c_str(), NULL, SW_SHOWNORMAL); } } //--------------------------------------------------------------------------- void __fastcall TFrmMain::TermItsProgram(String AClassName, String AExeName) { HWND hExeForm = FindWindow(AClassName.c_str(), NULL); if (hExeForm) { POST_MSG(hExeForm, WM_CLOSE, 0, 0); } } //--------------------------------------------------------------------------- /* * 시설물 정보 관리 화면 호출 */ void __fastcall TFrmMain::NIFM0010MClick(TObject *Sender) { FORMSHOW(IFM0010M); } //--------------------------------------------------------------------------- /* * 시설물 업체 관리 화면 호출 */ void __fastcall TFrmMain::NIFM0020MClick(TObject *Sender) { FORMSHOW(IFM0020M); } //--------------------------------------------------------------------------- /* * 시설물 장애 관리 화면 호출 */ void __fastcall TFrmMain::NIFM0030MClick(TObject *Sender) { FORMSHOW(IFM0030M); } //--------------------------------------------------------------------------- /* * EXE 프로그램 실행시킴 */ void __fastcall TFrmMain::OnRunProgramClick(TObject *Sender) { TdxBarLargeButton *pButton = (TdxBarLargeButton*)Sender; int nIdx = pButton->Tag; if (nIdx < 0 || nIdx >= MAX_EXEPROGRAM) return; if (g_RunProgram[nIdx].AClassName == "") return; ExecuteItsProgram(g_RunProgram[nIdx].AClassName, g_RunProgram[nIdx].AExeName, g_RunProgram[nIdx].AOption); } //--------------------------------------------------------------------------- /* * 운영자 접속이력 화면 호출 */ void __fastcall TFrmMain::NIHS0010MClick(TObject *Sender) { FORMSHOW(IHS0010M); } //--------------------------------------------------------------------------- /* * 프로세스 이력조회 화면 호출 */ void __fastcall TFrmMain::NIHS0020MClick(TObject *Sender) { FORMSHOW(IHS0020M); } //--------------------------------------------------------------------------- /* * 수집데이터 이력조회 화면 호출 */ void __fastcall TFrmMain::NIHS0030MClick(TObject *Sender) { FORMSHOW(IHS0030M); } //--------------------------------------------------------------------------- /* * 가공데이터 이력조회 화면 호출 */ void __fastcall TFrmMain::NIHS0040MClick(TObject *Sender) { FORMSHOW(IHS0040M); } //--------------------------------------------------------------------------- /* * 교통정보 수집결과 분석조회 화면 호출 */ void __fastcall TFrmMain::NIAN0010MClick(TObject *Sender) { FORMSHOW(IAN0010M); } //--------------------------------------------------------------------------- /* * 교통정보 가공결과 분석조회 화면 호출 */ void __fastcall TFrmMain::NIAN0020MClick(TObject *Sender) { FORMSHOW(IAN0020M); } //--------------------------------------------------------------------------- /* * 교통정보 제공결과 분석조회 화면 호출 */ void __fastcall TFrmMain::NIAN0030MClick(TObject *Sender) { FORMSHOW(IAN0030M); } //--------------------------------------------------------------------------- /* * 소통정보 이력분석화면 호출 */ void __fastcall TFrmMain::NIAN0040MClick(TObject *Sender) { FORMSHOW(IAN0040M); } //--------------------------------------------------------------------------- /* * 패턴데이터 분석화면 호출 */ void __fastcall TFrmMain::NIAN0050MClick(TObject *Sender) { FORMSHOW(IAN0050M); } //--------------------------------------------------------------------------- /* * 반복정체구간 분석화면 호출 */ void __fastcall TFrmMain::NIAN0060MClick(TObject *Sender) { FORMSHOW(IAN0060M); } //--------------------------------------------------------------------------- /* * 인터넷 접속통계화면 호출 */ void __fastcall TFrmMain::NIST0010MClick(TObject *Sender) { FORMSHOW(IST0010M); } //--------------------------------------------------------------------------- /* * CCTV 접속통계화면 호출 */ void __fastcall TFrmMain::NIST0020MClick(TObject *Sender) { FORMSHOW(IST0020M); } //--------------------------------------------------------------------------- /* * 소통정보 통계화면 호출 */ void __fastcall TFrmMain::NIST0030MClick(TObject *Sender) { FORMSHOW(IST0030M); } //--------------------------------------------------------------------------- void __fastcall TFrmMain::NIST0070MClick(TObject *Sender) { FORMSHOW(IST0070M); } //--------------------------------------------------------------------------- void __fastcall TFrmMain::NIST0080MClick(TObject *Sender) { FORMSHOW(IST0080M); } //--------------------------------------------------------------------------- /* * 돌발상황 통계화면 호출 */ void __fastcall TFrmMain::NIST0040MClick(TObject *Sender) { FORMSHOW(IST0040M); } //--------------------------------------------------------------------------- /* * 시설물 통신단절통계화면 호출 */ void __fastcall TFrmMain::NIST0050MClick(TObject *Sender) { FORMSHOW(IST0050M); } //--------------------------------------------------------------------------- /* * 프로세스 상태통계화면 호출 */ void __fastcall TFrmMain::NIST0060MClick(TObject *Sender) { FORMSHOW(IST0060M); } //--------------------------------------------------------------------------- void __fastcall TFrmMain::NIRP0010MClick(TObject *Sender) { FORMSHOW(IRP0010M); } //--------------------------------------------------------------------------- /* * Application Hint Display Event Handler * arguments * * return * */ void __fastcall TFrmMain::OnAppHint(TObject *Sender) { dxStatusBar->Panels->Items[isbHint]->Text = " " + Application->Hint; dxStatusBar->Panels->Items[isbHint]->StatusBarControl->Refresh(); } //--------------------------------------------------------------------------- /* * Application Exception Event Handler * arguments * * return * */ void __fastcall TFrmMain::OnAppException(TObject *Sender, Exception *exception) { if (g_AppCfg.bAppClose) { ITSDb_Close(); Close(); // 응용프로그램 종료 } String sClassName = (NULL != Sender) ? Sender->ClassName() : String("Unknown_Class"); String sErrMsg = (NULL != exception) ? exception->Message : String("Unknown_Error"); String sError = sClassName + " : " + sErrMsg; //Application->ShowException(&exception); if (sError.Pos("ORA") || sError.Pos("TBR")) { ITSDb_Close(); } else { Application->NormalizeTopMosts(); Application->MessageBox(sError.c_str(), L"System Error", MB_OK|MB_ICONERROR|MB_APPLMODAL); Application->RestoreTopMosts(); } } //--------------------------------------------------------------------------- void __fastcall TFrmMain::UpdateThreadStatus(bool ARequest, bool APing/*=true*/) { return; try { if (APing) if (ARequest) PostJobMessage(WM_THREAD, WP_PING); ((TdxStatusBarTextPanelStyle*)dxStatusBar->Panels->Items[isbStatus]->PanelStyle)->ImageIndex = ARequest ? 7 : 8; dxStatusBar->Panels->Items[isbDb]->StatusBarControl->Refresh(); } catch(...) { } } //--------------------------------------------------------------------------- void __fastcall TFrmMain::UpdateDbStatus(bool ASelect) { try { ((TdxStatusBarTextPanelStyle*)dxStatusBar->Panels->Items[isbDb]->PanelStyle)->ImageIndex = ASelect ? 7 : 8; dxStatusBar->Panels->Items[isbDb]->StatusBarControl->Refresh(); } catch(...) { } } //--------------------------------------------------------------------------- /* * Application Event Message Handler * arguments * * return * */ void __fastcall TFrmMain::ApplicationEvents1Message(tagMSG &Msg, bool &Handled) { switch(Msg.message) { case WM_THREAD: switch(Msg.wParam) { case WP_PING: UpdateThreadStatus(false); //스레드 핑 확인 break; case WP_PARAM_TRAFFIC: break; case WP_DB_SELECT_START: UpdateDbStatus(true); break; case WP_DB_SELECT_OK: case WP_DB_SELECT_ERROR: case WP_DB_SELECT_CANCEL: UpdateDbStatus(false); if (Msg.wParam == WP_DB_SELECT_OK) { OnRefreshMessage(Msg.wParam, Msg.lParam); } else { DebugMsg(FrmLang->cxLabel13->Caption); } break; } break; #if 0 case WM_VCOMMDATA_RECV: OnUdpDataRecvMessage(Msg); break; #endif case WM_DATABASE_REFRESH: OnDatabaseMessage(Msg.wParam, Msg.lParam); break; case WM_PLUGINFORM: OnRefreshMessage(Msg.wParam, Msg.lParam); break; case WM_MOUSEMOVE: case WM_KEYDOWN: case WM_KEYUP: FLogoutTick = 0; break; case WM_USER+0xF4: if (Msg.wParam == 0xB2) { ITSDb_Close(); DebugMsg(FrmLang->cxLabel14->Caption); } break; } } //--------------------------------------------------------------------------- void __fastcall TFrmMain::OnRefreshMessage(WPARAM AWParam, LPARAM ALParam) { HWND hWnd; if (AWParam == WP_DB_SELECT_OK) { DWORD dwTick = GetTickCount(); switch(ALParam) { case LP_MSG_00: DebugMsg(FrmLang->cxLabel3->Caption + FrmLang->cxLabelRes->Caption); FPollTraffic00.Polling = dwTick; break; case LP_MSG_01: DebugMsg(FrmLang->cxLabel4->Caption + FrmLang->cxLabelRes->Caption); FPollTraffic01.Polling = dwTick; break; case LP_MSG_02: DebugMsg(FrmLang->cxLabel5->Caption + FrmLang->cxLabelRes->Caption); FPollTraffic02.Polling = dwTick; break; case LP_MSG_03: DebugMsg(FrmLang->cxLabel6->Caption + FrmLang->cxLabelRes->Caption); FPollTraffic03.Polling = dwTick; break; case LP_MSG_04: DebugMsg(FrmLang->cxLabel7->Caption + FrmLang->cxLabelRes->Caption); FPollTraffic04.Polling = dwTick; break; case LP_MSG_11: DebugMsg(FrmLang->cxLabel8->Caption + FrmLang->cxLabelRes->Caption); FPollStatus01.Polling = dwTick; break; case LP_MSG_12: DebugMsg(FrmLang->cxLabel9->Caption + FrmLang->cxLabelRes->Caption); FPollStatus02.Polling = dwTick; break; case LP_MSG_13: DebugMsg(FrmLang->cxLabel10->Caption + FrmLang->cxLabelRes->Caption); FPollStatus03.Polling = dwTick; break; case LP_MSG_16: DebugMsg(FrmLang->cxLabel11->Caption + FrmLang->cxLabelRes->Caption); FPollEvent01.Polling = dwTick; break; case LP_MSG_17: DebugMsg(FrmLang->cxLabel12->Caption + FrmLang->cxLabelRes->Caption); FPollVilgFrcs.Polling = dwTick; break; case LP_MSG_05: DebugMsg(FrmLang->cxLabel18->Caption + FrmLang->cxLabelRes->Caption); FPollTraffic05.Polling = dwTick; break; case LP_MSG_09: DebugMsg(FrmLang->cxLabel15->Caption + FrmLang->cxLabelRes->Caption); break; //프로세스정보 재로딩 case LP_MSG_14: DebugMsg(FrmLang->cxLabel16->Caption + FrmLang->cxLabelRes->Caption); break; //시설물정보 재로딩 } if (NITS0000M->Enabled) { hWnd = FindChildWindow("ITS0000M"); if (hWnd) POST_MSG(hWnd, WM_MAINFORM, AWParam, ALParam); } if (ALParam == LP_MSG_11) { //시설물 상태정보 업데이트 ShowFacilityStatus(); } else if (ALParam == LP_MSG_13) { //돌발발생정보 ShowAutoIncidentInfo(); } } else if (AWParam == WP_MSG_15) { if (LP_MSG_15 == ALParam) { if (g_AppCfg.bDebug) ITSUtil_Trace("LP_MSG_15-GisSelectLink"); if (NITS0000M->Enabled) { hWnd = FindChildWindow("ITS0000M"); if (hWnd) POST_MSG(hWnd, WM_MAINFORM, AWParam, ALParam); } } } else { LOGERROR("DB Thread failed: %02X[%02X]", ALParam, AWParam); } } //--------------------------------------------------------------------------- void __fastcall TFrmMain::OnDatabaseMessage(WPARAM AWParam, LPARAM ALParam) { HWND hWnd; switch(AWParam) { case WP_MSG_01: //소통등급변경 case WP_MSG_02: //돌발정보변경(오보/등록/해제) if (NITS0000M->Enabled) { hWnd = FindChildWindow("ITS0000M"); if (hWnd) POST_MSG(hWnd, WM_MAINFORM, AWParam, ALParam); } break; case WP_MSG_03: //시설물 정보 변경 DebugMsg(FrmLang->cxLabel16->Caption + FrmLang->cxLabelReq->Caption); PostJobMessage(WM_THREAD, WP_PARAM_TRAFFIC, LP_MSG_14); //hWnd = FindChildWindow("ITS0000M"); //if (hWnd) POST_MSG(hWnd, WM_MAINFORM, AWParam, ALParam); break; case WP_MSG_04: // IDB0070M-휴일정보 case WP_MSG_05: // FrmLinkGradeSet-구간등급변경 case WP_MSG_06: // IDB0060M - 소통등급 case WP_MSG_07: // IDB0050M -교통파라미터 //VComm_NodeLinkChangeReq(); break; case WP_MSG_09: // IDB0100M DebugMsg(FrmLang->cxLabel12->Caption + FrmLang->cxLabelReq->Caption); PostJobMessage(WM_THREAD, WP_PARAM_TRAFFIC, LP_MSG_09); //작업스레드에서 읽어 처리하도록 한다. break; case WP_MSG_14: // DSRM010M -DSRC-RSE 관리 PostJobMessage(WM_THREAD, WP_PARAM_TRAFFIC, LP_MSG_14); //작업스레드에서 읽어 처리하도록 한다. break; default: LOGERROR("Unknown Database Msg: %02X[%02X]", ALParam, AWParam); break; } } //--------------------------------------------------------------------------- void __fastcall TFrmMain::OnUdpDataRecvMessage(TMessage &Msg) { int nResult; IPCUDPMESSAGESTRUCT *RcvData = (IPCUDPMESSAGESTRUCT*)Msg.LParam; INT_SENDER *Sender = &RcvData->Sender; INT_PACKET *Pkt = &RcvData->Pkt; INT_HEAD *head = &Pkt->head; INT_DATA *data = &Pkt->data; char *pData = &data->Data[2]; BYTE OpCode = (BYTE)data->Data[0]; LOGINFO("*** OPR Client Req: %s.%d", VComm_ulong2ip(Sender->IP), Sender->Port); String sMsg = ""; String sVmsNmbr = ""; //UpdateVmsCommStatus(false); if (head->OPCode == INT_OP_COMM_COMMON) { switch(OpCode) { case INT_OP_PG_STATE_RES: { DebugMsg(FrmLang->cxLabel19->Caption); INT_PG_STATE_RES *ARes = (INT_PG_STATE_RES*)pData; for (int ii = 0; ii < ARes->Count && ii < INT_MAX_PG_STATE; ii++) { if (ARes->Unit[ii].Type == INT_ID_VMS_SERVER) { #if 0 FVmsServerState = ARes->Unit[ii].Action; UpdateVmsCommStatus(false); FPollPrcsState.Polling = GetTickCount(); //프로세스상태정보 조회 타이머 리셋 #endif break; } } } break; case INT_OP_VMS_STATE_RES: { char szVmsNmbr[INT_VMS_MAX_ID+1]; INT_VMS_STATE_RES *ARes = (INT_VMS_STATE_RES*)pData; sMsg = ""; //sMsg.printf(L"*** VMS 제어기 상태정보 수신: %d EA", ARes->Count); sMsg.printf(FrmLang->cxLabel19->Caption.c_str(), ARes->Count); DebugMsg(sMsg); #if 0 for (int ii = 0; ii < ARes->Count && ii < INT_MAX_VMS_STATE; ii++) { sMsg = ""; String sVmsNmbr; INT_VMS_STATE *pVms = &ARes->Unit[ii]; sprintf(szVmsNmbr, "%.*s", INT_VMS_MAX_ID, (char*)pVms->VmsId); sVmsNmbr = String(szVmsNmbr); TVmsCtlr *pObj = VmsManager->FLists.Find(sVmsNmbr); if (pObj) { VmsStatusCopy(&pObj->WSTATE, pVms); if (pObj->WSTATE.OprMode == 'A') pObj->OPER_MODE = "A"; else if (pObj->WSTATE.OprMode == 'B') pObj->OPER_MODE = "B"; else pObj->OPER_MODE = "F"; pObj->VMS_PHSE_CHNG_CYCL = pObj->WSTATE.ScheduledMessageOperatingTime; pObj->VMS_CMNC_ERR_BASS_VAL = pObj->WSTATE.ModuleOperatingTemperature; pObj->FAN_MTNS_TMPR = pObj->WSTATE.FanOperatingTemperature; pObj->HETR_MTNS_TMPR = pObj->WSTATE.HeaterOperatingTemperature; pObj->VMS_MODL_ERR_RATE = pObj->WSTATE.ModuleBasicFailureRate; pObj->CheckRunState(); } else { sMsg.printf(L"INT_OP_VMS_STATE_RES VMS not found: %s", sVmsNmbr.c_str()); DebugMsg(sMsg); } } RefreshVmsMessage(WM_VMS_STATE_REFRESH); FPollVmsState.Polling = GetTickCount(); #endif } break; case INT_OP_VMS_FORM_SAVE: { #if 0 FPollVmsMsg.Reset(); //VMS메시지 조회 타이머 리셋 char szDateTime[INT_VMS_MAX_DATETIME+1]; INT_VMS_FORM_SAVE_REQ *AReq = (INT_VMS_FORM_SAVE_REQ*)pData; sprintf(szDateTime, "%.*s", INT_VMS_MAX_DATETIME, (char*)AReq->Date); String sDateTime = String(szDateTime); sMsg = ""; sMsg.printf(L"*** VMS 폼생성 완료 메시지 수신: %s", sDateTime.c_str()); DebugMsg(sMsg); #endif } break; case INT_OP_VMS_FORM_DOWNLOAD: { #if 0 char szDateTime[INT_VMS_MAX_DATETIME+1]; char szVmsNmbr[INT_VMS_MAX_ID+1]; INT_VMS_FORM_DOWNLOAD_REQ *AReq = (INT_VMS_FORM_DOWNLOAD_REQ*)pData; sMsg.printf(L"*** VMS 폼 다운로드 메시지 수신: %d EA", AReq->Count); DebugMsg(sMsg); for (int ii = 0; ii < AReq->Count && ii < INT_MAX_VMS_FORM_DOWNLOAD; ii++) { sMsg = ""; INT_VMS_FORM_DOWNLOAD *pVms = &AReq->Unit[ii]; sprintf(szVmsNmbr, "%.*s", INT_VMS_MAX_ID, (char*)pVms->VmsId); sprintf(szDateTime, "%.*s", INT_VMS_MAX_DATETIME, (char*)pVms->Date); sVmsNmbr = String(szVmsNmbr); String sDateTime = String(szDateTime); TVmsCtlr *pObj = VmsManager->FLists.Find(sVmsNmbr); if (pObj) { bool bDnLd = (pVms->Result == vms_download_succ) ? true : false; String sResult = bDnLd ? "Succ" : "Fail"; pObj->VmsMsg->OFFER_DT = sDateTime; pObj->VmsMsg->OFFER_YN = bDnLd; for (int kk = 0; kk < pObj->VmsMsg->Total && kk < INT_MAX_VMS_FORM; kk++) { pObj->VmsMsg->PHASE[kk].DNLD_YN = bDnLd ? "Y" : "N"; } //sMsg.printf(L"*** ===> VMS Msg download: %s, %s", pObj->VMS_CTLR_ID.c_str(), sResult.c_str()); //DebugMsg(sMsg); } else { sMsg.printf(L"*** INT_OP_VMS_FORM_DOWNLOAD VMS not found: %s", sVmsNmbr.c_str()); DebugMsg(sMsg); } } #endif } break; } } else { //Vitzro internal communication OpCode = (BYTE)head->OPCode; pData = data->Data; switch(OpCode) { case INT_OP_PROC_EVENT: /* 0x01, 교통정보가공완료 */ { if (g_AppCfg.bDebug) ITSUtil_Trace("UDP: 교통정보 가공완료"); if (NITS0000M->Enabled) { HWND hWnd = FindChildWindow("ITS0000M"); if (hWnd) POST_MSG(hWnd, WM_MAINFORM, WP_DB_SELECT_OK, LP_MSG_10); } FPollTraffic00.Reset(); // 링크소통정보(전체) FPollTraffic01.Reset(); // 링크소통정보 FPollTraffic02.Reset(); // 서비스링크소통정보 FPollTraffic03.Reset(); // 도로소통정보 FPollTraffic04.Reset(); // 반복정체구간 } break; case INT_OP_NODELINK_CHANGE: /* 0x10, 노드링크 기반 정보 변경 */ { if (g_AppCfg.bDebug) ITSUtil_Trace("UDP: 노드링크 기반 정보 변경"); //휴일정보 //구간등급변경 //소통등급 //교통파라미터 /* * 기존에는 처리하는것이 없었음. * ---> 심심할때 처리하자 */ } break; case INT_OP_FACILITY_CHANGE: /* 0x12, 시설물 기반 정보 변경 */ { //CCTV, VMS관련기본정보 DebugMsg(FrmLang->cxLabel17->Caption); PostJobMessage(WM_THREAD, WP_PARAM_TRAFFIC, LP_MSG_14); } break; case INT_OP_RSE_CONTROL_REQ: /* 0xC0, RSE 제어정보 전송 */ { if (g_AppCfg.bDebug) ITSUtil_Trace("UDP: RSE 제어정보 전송"); } break; case INT_OP_RSE_CONTROL_RES: /* 0xC1, RSE 제어정보 응답 */ { if (g_AppCfg.bDebug) ITSUtil_Trace("UDP: RSE 제어정보 응답"); if (NDSRM020M->Enabled) { HWND hWnd = FindChildWindow("DSRM020M"); //if (hWnd) POST_MSG(hWnd, WM_MAINFORM, Msg.wParam, Msg.lParam); } } } } } //--------------------------------------------------------------------------- void __fastcall TFrmMain::OnUdpDataRecvMessage(tagMSG &Msg) { IPCUDPMESSAGESTRUCT *RcvData = (IPCUDPMESSAGESTRUCT*)Msg.lParam; INT_SENDER *Sender = &RcvData->Sender; INT_PACKET *Pkt = &RcvData->Pkt; INT_HEAD *head = &Pkt->head; INT_DATA *data = &Pkt->data; char *pData = &data->Data[2]; BYTE OpCode = (BYTE)data->Data[0]; LOGINFO("*** OPR Client Req: %s.%d", VComm_ulong2ip(Sender->IP), Sender->Port); String sMsg = ""; String sVmsNmbr = ""; //UpdateVmsCommStatus(false); if (head->OPCode == INT_OP_COMM_COMMON) { switch(OpCode) { case INT_OP_PG_STATE_RES: { DebugMsg("*** VMS 프로세스 상태정보 수신"); INT_PG_STATE_RES *ARes = (INT_PG_STATE_RES*)pData; for (int ii = 0; ii < ARes->Count && ii < INT_MAX_PG_STATE; ii++) { if (ARes->Unit[ii].Type == INT_ID_VMS_SERVER) { //FVmsServerState = ARes->Unit[ii].Action; //UpdateVmsCommStatus(false); //FPollStatus02.Reset(); //프로세스상태정보 조회 타이머 리셋 break; } } } break; case INT_OP_VMS_STATE_RES: { char szVmsNmbr[INT_VMS_MAX_ID+1]; INT_VMS_STATE_RES *ARes = (INT_VMS_STATE_RES*)pData; sMsg = ""; sMsg.printf(L"*** VMS 제어기 상태정보 수신: %d EA", ARes->Count); DebugMsg(sMsg); for (int ii = 0; ii < ARes->Count && ii < INT_MAX_VMS_STATE; ii++) { String sVmsNmbr; INT_VMS_STATE *pVms = &ARes->Unit[ii]; sprintf(szVmsNmbr, "%.*s", INT_VMS_MAX_ID, (char*)pVms->VmsId); sVmsNmbr = String(szVmsNmbr); #if 0 TVmsCtlr *pObj = VmsManager->FLists.Find(sVmsNmbr); if (pObj) { memcpy((char*)&pObj->STATE, (char*)pVms, sizeof(INT_VMS_STATE)); if (pObj->STATE.OprMode == 'A') pObj->OPER_MODE = "A"; else if (pObj->STATE.OprMode == 'B') pObj->OPER_MODE = "B"; else pObj->OPER_MODE = "F"; pObj->VMS_PHSE_CHNG_CYCL = pObj->STATE.ScheduledMessageOperatingTime; pObj->VMS_CMNC_ERR_BASS_VAL = pObj->STATE.ModuleOperatingTemperature; pObj->FAN_MTNS_TMPR = pObj->STATE.FanOperatingTemperature; pObj->HETR_MTNS_TMPR = pObj->STATE.HeaterOperatingTemperature; pObj->VMS_MODL_ERR_RATE = pObj->STATE.ModuleBasicFailureRate; } #endif } //RefreshVmsMessage(WM_VMS_STATE_REFRESH); } break; case INT_OP_VMS_FORM_SAVE: { //FPollVmsMsg.Reset(); //VMS메시지 조회 타이머 리셋 char szDateTime[INT_VMS_MAX_DATETIME+1]; INT_VMS_FORM_SAVE_REQ *AReq = (INT_VMS_FORM_SAVE_REQ*)pData; sprintf(szDateTime, "%.*s", INT_VMS_MAX_DATETIME, (char*)AReq->Date); String sDateTime = String(szDateTime); sMsg = ""; sMsg.printf(L"*** VMS 폼생성 완료 메시지 수신: %s", sDateTime.c_str()); DebugMsg(sMsg); } break; case INT_OP_VMS_FORM_DOWNLOAD: { char szDateTime[INT_VMS_MAX_DATETIME+1]; char szVmsNmbr[INT_VMS_MAX_ID+1]; INT_VMS_FORM_DOWNLOAD_REQ *AReq = (INT_VMS_FORM_DOWNLOAD_REQ*)pData; sMsg.printf(L"*** VMS 폼 다운로드 메시지 수신: %d EA", AReq->Count); DebugMsg(sMsg); for (int ii = 0; ii < AReq->Count && ii < INT_MAX_VMS_FORM_DOWNLOAD; ii++) { sMsg = ""; INT_VMS_FORM_DOWNLOAD *pVms = &AReq->Unit[ii]; sprintf(szVmsNmbr, "%.*s", INT_VMS_MAX_ID, (char*)pVms->VmsId); sprintf(szDateTime, "%.*s", INT_VMS_MAX_DATETIME, (char*)pVms->Date); sVmsNmbr = String(szVmsNmbr); String sDateTime = String(szDateTime); #if 0 TVmsCtlr *pObj = VmsManager->FLists.Find(sVmsNmbr); if (pObj) { bool bDnLd = (pVms->Result == vms_download_succ) ? true : false; String sResult = bDnLd ? "Succ" : "Fail"; pObj->VmsMsg->OFFER_DT = sDateTime; pObj->VmsMsg->OFFER_YN = bDnLd; for (int kk = 0; kk < pObj->VmsMsg->Total && kk < INT_MAX_VMS_FORM; kk++) { pObj->VmsMsg->PHASE[kk].DNLD_YN = bDnLd ? "Y" : "N"; } sMsg.printf(L"*** VMS Msg download: %s, %s", pObj->VMS_CTLR_ID.c_str(), sResult.c_str()); } else { sMsg.printf(L"*** INT_OP_VMS_FORM_DOWNLOAD VMS not found: %s", sVmsNmbr.c_str()); } DebugMsg(sMsg); #endif } } break; } } else { //Vitzro internal communication OpCode = (BYTE)head->OPCode; pData = data->Data; switch(OpCode) { case INT_OP_PROC_EVENT: /* 0x01, 교통정보가공완료 */ { if (g_AppCfg.bDebug) ITSUtil_Trace("UDP: 교통정보 가공완료"); if (NITS0000M->Enabled) { HWND hWnd = FindChildWindow("ITS0000M"); if (hWnd) POST_MSG(hWnd, WM_MAINFORM, WP_DB_SELECT_OK, LP_MSG_10); } FPollTraffic00.Reset(); // 링크소통정보(전체) FPollTraffic01.Reset(); // 링크소통정보 FPollTraffic02.Reset(); // 서비스링크소통정보 FPollTraffic03.Reset(); // 도로소통정보 FPollTraffic04.Reset(); // 반복정체구간 } break; case INT_OP_NODELINK_CHANGE: /* 0x10, 노드링크 기반 정보 변경 */ { if (g_AppCfg.bDebug) ITSUtil_Trace("UDP: 노드링크 기반 정보 변경"); //휴일정보 //구간등급변경 //소통등급 //교통파라미터 /* * 기존에는 처리하는것이 없었음. * ---> 심심할때 처리하자 */ } break; case INT_OP_FACILITY_CHANGE: /* 0x12, 시설물 기반 정보 변경 */ { if (g_AppCfg.bDebug) ITSUtil_Trace("UDP: 시설물 기반 정보 변경"); //CCTV, VMS관련기본정보 PostJobMessage(WM_THREAD, WP_PARAM_TRAFFIC, LP_MSG_14); } break; case INT_OP_RSE_CONTROL_REQ: /* 0xC0, RSE 제어정보 전송 */ { if (g_AppCfg.bDebug) ITSUtil_Trace("UDP: RSE 제어정보 전송"); } break; case INT_OP_RSE_CONTROL_RES: /* 0xC1, RSE 제어정보 응답 */ { if (g_AppCfg.bDebug) ITSUtil_Trace("UDP: RSE 제어정보 응답"); if (NDSRM020M->Enabled) { HWND hWnd = FindChildWindow("DSRM020M"); if (hWnd) POST_MSG(hWnd, WM_MAINFORM, Msg.wParam, Msg.lParam); } } } } } //--------------------------------------------------------------------------- void __fastcall TFrmMain::OnPollingThreadDone(TObject *Sender) { LOGINFO("Polling thead terminated"); g_AppCfg.thr.bRunning = false; } //--------------------------------------------------------------------------- void __fastcall TFrmMain::ShowFacilityStatus() { // HWND hWnd = FindChildWindow("ITS0000M"); // if (hWnd) POST_MSG(hWnd, WM_MAINFORM, AWParam, ALParam); bool bShow = false; try { try { ItsFacilityManager->FLists.Lock(); FOR_STL(TItsFacility*, pFacility, ItsFacilityManager->FLists) { if (pFacility->DEL_YN == "Y") continue; #if 0 if (pFacility->FCLT_TYPE == "DSRC") { if (pFacility->FCollCntBase > pFacility->FCollCntCurr) { bShow = true; break; } } #endif if (pFacility->FComm != state_normal) { bShow = true; break; } else { #if 0 try { String sValue = pFacility->FCBoxTmpr; int nValue = 0; if (TryStrToInt(sValue, nValue)) { if (nValue > g_AppCfg.Temp.AlarmValue) { bShow = true; break; } } } catch(...) {} #endif } } } __finally { ItsFacilityManager->FLists.UnLock(); } } catch(...) { } if (!bShow) { LblAlarm->Style->Font->Color = clBlack; //LblAlarm->Caption = "알람정보"; LblAlarm->Caption = FrmLang->cxLabel21->Caption; ImgAlarm->Visible = false; ImgAlarmNormal->Visible = true; try { if (ImgAlarm->Picture->Graphic->ClassName() == "TGIFImage") ((TGIFImage *)ImgAlarm->Picture->Graphic)->Animate = false; } catch(...) {} return; } ImgAlarmNormal->Visible = false; ImgAlarm->Visible = true; try { if (ImgAlarm->Picture->Graphic->ClassName() == "TGIFImage") ((TGIFImage *)ImgAlarm->Picture->Graphic)->Animate = true; } catch(...) {} //LblAlarm->Caption = "알람발생"; LblAlarm->Caption = FrmLang->cxLabel22->Caption; LblAlarm->Style->Font->Color = clRed; if (!g_AppCfg.Alarm.Enabled) return; if (!g_AppCfg.Alarm.Window) return; try { if (FrmFacilityAlarm == NULL) { FrmFacilityAlarm = new TFrmFacilityAlarm(Application); } FrmFacilityAlarm->Show(); FrmFacilityAlarm->ShowFacilityAlarm(); } catch(...) { } } //--------------------------------------------------------------------------- void __fastcall TFrmMain::ShowAutoIncidentInfo() { // HWND hWnd = FindChildWindow("ITS0000M"); // if (hWnd) POST_MSG(hWnd, WM_MAINFORM, AWParam, ALParam); if (!g_AppCfg.Incident.Enabled) return; bool bShow = false; try { try { ItsIncidentManager->FAutoLists.Lock(); if (ItsIncidentManager->FAutoLists.Size() > 0) { bShow = true; } } __finally { ItsIncidentManager->FAutoLists.UnLock(); } } catch(...) { } if (!bShow) return; try { if (FrmIncidentAlarm == NULL) { FrmIncidentAlarm = new TFrmIncidentAlarm(Application); } FrmIncidentAlarm->Show(); FrmIncidentAlarm->ShowIncidentAlarm(); } catch(...) { } } //--------------------------------------------------------------------------- /* ***************************************************************************** * DSRC-RSE 정보 ***************************************************************************** */ /* * DSRC-RSE 상태이력화면 호출 */ void __fastcall TFrmMain::NDSRH010MClick(TObject *Sender) { #ifdef USE_DSRC FORMSHOW(DSRH010M); #endif } //--------------------------------------------------------------------------- /* * DSRC-RSE 로그이력화면 호출 */ void __fastcall TFrmMain::NDSRH020MClick(TObject *Sender) { #ifdef USE_DSRC FORMSHOW(DSRH020M); #endif } //--------------------------------------------------------------------------- /* * DSRC-RSE 제어이력화면 호출 */ void __fastcall TFrmMain::NDSRH030MClick(TObject *Sender) { #ifdef USE_DSRC FORMSHOW(DSRH030M); #endif } //--------------------------------------------------------------------------- /* * DSRC-RSE 가공정보 이력조회화면 호출 */ void __fastcall TFrmMain::NDSRH040MClick(TObject *Sender) { #ifdef USE_DSRC FORMSHOW(DSRH040M); #endif } //--------------------------------------------------------------------------- /* * DSRC-RSE 제공정보 이력조회화면 호출 */ void __fastcall TFrmMain::NDSRH050MClick(TObject *Sender) { #ifdef USE_DSRC FORMSHOW(DSRH050M); #endif } //--------------------------------------------------------------------------- /* * DSRC-RSE 관리화면 호출 */ void __fastcall TFrmMain::NDSRM010MClick(TObject *Sender) { #ifdef USE_DSRC FORMSHOW(DSRM010M); #endif } //--------------------------------------------------------------------------- /* * DSRC-RSE 제어화면 호출 */ void __fastcall TFrmMain::NDSRM020MClick(TObject *Sender) { #ifdef USE_DSRC FORMSHOW(DSRM020M); #endif } //--------------------------------------------------------------------------- /* * DSRC-RSE 수집구간 설정화면 호출 */ void __fastcall TFrmMain::NDSRM030MClick(TObject *Sender) { #ifdef USE_DSRC FORMSHOW(DSRM030M); #endif } //--------------------------------------------------------------------------- /* * DSRC-RSE 제공구간 관리화면 호출 */ void __fastcall TFrmMain::NDSRM040MClick(TObject *Sender) { #ifdef USE_DSRC FORMSHOW(DSRM040M); #endif } //--------------------------------------------------------------------------- /* * VDS-제어기 관리화면 호출 */ void __fastcall TFrmMain::NVDSM010MClick(TObject *Sender) { FORMSHOW(VDSM010M); } //--------------------------------------------------------------------------- /* * VDS-검지기 관리화면 호출 */ void __fastcall TFrmMain::NVDSM020MClick(TObject *Sender) { FORMSHOW(VDSM020M); } //--------------------------------------------------------------------------- /* * VDS-제어기 상태이력화면 호출 */ void __fastcall TFrmMain::NVDSH010MClick(TObject *Sender) { FORMSHOW(VDSH010M); } //--------------------------------------------------------------------------- /* * VDS-제어기 이벤트이력화면 호출 */ void __fastcall TFrmMain::NVDSH020MxClick(TObject *Sender) { FORMSHOW(VDSH020M); } //--------------------------------------------------------------------------- /* * VDS-검지기 과거수집이력화면 호출 */ void __fastcall TFrmMain::NVDSH030MxClick(TObject *Sender) { FORMSHOW(VDSH030M); } //--------------------------------------------------------------------------- /* * VDS-검지기 원시수집이력화면 호출 */ void __fastcall TFrmMain::NVDSH040MClick(TObject *Sender) { FORMSHOW(VDSH040M); } //--------------------------------------------------------------------------- /* * VDS-검지기 평활화이력화면 호출 */ void __fastcall TFrmMain::NVDSH050MxClick(TObject *Sender) { FORMSHOW(VDSH050M); } //--------------------------------------------------------------------------- /* * VDS-검지기 보정이력화면 호출 */ void __fastcall TFrmMain::NVDSH060MxClick(TObject *Sender) { FORMSHOW(VDSH060M); } //--------------------------------------------------------------------------- /* * VDS-검지기 통계조회화면 호출 */ void __fastcall TFrmMain::NVDSS010MClick(TObject *Sender) { FORMSHOW(VDSS010M); } //--------------------------------------------------------------------------- void __fastcall TFrmMain::NVDSS020MClick(TObject *Sender) { FORMSHOW(VDSS020M); } //--------------------------------------------------------------------------- /* * AVI-제어기 관리화면 호출 */ void __fastcall TFrmMain::NAVIM010MClick(TObject *Sender) { #ifdef USE_AVI FORMSHOW(AVIM010M); #endif } //--------------------------------------------------------------------------- /* * AVI-구간 관리화면 호출 */ void __fastcall TFrmMain::NAVIM020MClick(TObject *Sender) { #ifdef USE_AVI FORMSHOW(AVIM020M); #endif } //--------------------------------------------------------------------------- /* * AVI-제어기 상태이력화면 호출 */ void __fastcall TFrmMain::NAVIH010MClick(TObject *Sender) { #ifdef USE_AVI FORMSHOW(AVIH010M); #endif } //--------------------------------------------------------------------------- /* * AVI-제어기 차량인식이력화면 호출 */ void __fastcall TFrmMain::NAVIH020MxClick(TObject *Sender) { #ifdef USE_AVI FORMSHOW(AVIH020M); #endif } //--------------------------------------------------------------------------- /* * AVI-제어기 교통정보이력화면 호출 */ void __fastcall TFrmMain::NAVIH030MxClick(TObject *Sender) { #ifdef USE_AVI FORMSHOW(AVIH030M); #endif } //--------------------------------------------------------------------------- /* * AVI-제어기 차량통과이력화면 호출 */ void __fastcall TFrmMain::NAVIH040MClick(TObject *Sender) { #ifdef USE_AVI FORMSHOW(AVIH040M); #endif } //--------------------------------------------------------------------------- /* * AVI-구간-매칭이력화면 호출 */ void __fastcall TFrmMain::NAVIH050MClick(TObject *Sender) { #ifdef USE_AVI FORMSHOW(AVIH050M); #endif } //--------------------------------------------------------------------------- /* * AVI-구간-수집이력화면 호출 */ void __fastcall TFrmMain::NAVIH060MClick(TObject *Sender) { #ifdef USE_AVI FORMSHOW(AVIH060M); #endif } //--------------------------------------------------------------------------- /* * AVI-구간-소통상황이력화면 호출 */ void __fastcall TFrmMain::NAVIH070MClick(TObject *Sender) { #ifdef USE_AVI FORMSHOW(AVIH070M); #endif } //--------------------------------------------------------------------------- /* * AVI-구간-소통상황통계화면 호출 */ void __fastcall TFrmMain::NAVIS010MClick(TObject *Sender) { #ifdef USE_AVI FORMSHOW(AVIS010M); #endif } //--------------------------------------------------------------------------- void __fastcall TFrmMain::NAVIS020MClick(TObject *Sender) { #ifdef USE_AVI FORMSHOW(AVIS020M); #endif } //--------------------------------------------------------------------------- void __fastcall TFrmMain::NSMS0010MClick(TObject *Sender) { //FORMSHOW(SMS0010M); } //--------------------------------------------------------------------------- void __fastcall TFrmMain::NSMS0020MClick(TObject *Sender) { //FORMSHOW(SMS0020M); } //--------------------------------------------------------------------------- void __fastcall TFrmMain::NSMS0030MClick(TObject *Sender) { //FORMSHOW(SMS0030M); } //--------------------------------------------------------------------------- void __fastcall TFrmMain::NIFM0040MClick(TObject *Sender) { FORMSHOW(IFM0040M); } //--------------------------------------------------------------------------- void __fastcall TFrmMain::NIFM0050MClick(TObject *Sender) { FORMSHOW(IFM0050M); } //--------------------------------------------------------------------------- void __fastcall TFrmMain::NPIS0010MClick(TObject *Sender) { #ifdef USE_PARK FORMSHOW(PIS0010M); #endif } //--------------------------------------------------------------------------- void __fastcall TFrmMain::NPIS0030MClick(TObject *Sender) { #ifdef USE_PARK FORMSHOW(PIS0030M); #endif } //--------------------------------------------------------------------------- void __fastcall TFrmMain::NPIS0020MClick(TObject *Sender) { #ifdef USE_PARK FORMSHOW(PIS0020M); #endif } //--------------------------------------------------------------------------- void __fastcall TFrmMain::NPISH010MClick(TObject *Sender) { #ifdef USE_PARK FORMSHOW(PISH010M); #endif } //--------------------------------------------------------------------------- void __fastcall TFrmMain::NDSRH060MClick(TObject *Sender) { #ifdef USE_DSRC FORMSHOW(DSRH060M); #endif } //--------------------------------------------------------------------------- void __fastcall TFrmMain::NDSRH070MClick(TObject *Sender) { #ifdef USE_DSRC FORMSHOW(DSRH070M); #endif } //--------------------------------------------------------------------------- void __fastcall TFrmMain::OnAlarmDblClick(TObject *Sender) { try { #if 1 //TODO if (FrmIncidentAlarm == NULL) { FrmIncidentAlarm = new TFrmIncidentAlarm(Application); } FrmIncidentAlarm->Show(); FrmIncidentAlarm->ShowIncidentAlarm(); #endif if (FrmFacilityAlarm == NULL) { FrmFacilityAlarm = new TFrmFacilityAlarm(Application); } FrmFacilityAlarm->Show(); FrmFacilityAlarm->ShowFacilityAlarm(); } catch(...) { } } //--------------------------------------------------------------------------- void __fastcall TFrmMain::NTST0000MClick(TObject *Sender) { #if 0 String sExeName = "Project1.exe"; String sParam = "\"" + g_pLOGIN->sUserId + "\" \"" + g_pLOGIN->sUserId + "\""; //ShellExecute(NULL,"open", "C:\\myprocess.exe", "\"my argument 1 containing spaces\" \"my argument 2\"","C:\\",SW_SHOWNORMAL); ShellExecute(Handle, NULL, sExeName.c_str(), sParam.c_str(), NULL, SW_SHOWNORMAL); #endif #include AnsiString sQry1 = "INSERT INTO TB_OPERSYST_MENU VALUES('%s', '%02d.%s', 'N', 1, '');\n"; AnsiString sQry2 = "INSERT INTO TB_OPERSYST_MENU VALUES('%s', '%s', 'N', 2, '%s');\n"; AnsiString sMenuFile = g_sAppDir + "Menu.TXT"; FILE *pFileMenu = NULL; pFileMenu = fopen(sMenuFile.c_str(), "w+"); if (pFileMenu == NULL) { ShowMessage("메뉴파일을 생성하지 못하였습니다."); return; } int nMenuCnt = 1; int nMenuTabs = Ribbon->Tabs->Count; for (int ii = 0; ii < nMenuTabs; ii++) { TdxRibbonTab *pTab = Ribbon->Tabs->Items[ii]; if (pTab->Visible == false) continue; AnsiString sMainName = pTab->Name; AnsiString sMainCap = pTab->Caption; fprintf(pFileMenu, sQry1.c_str(), sMainName.c_str(), nMenuCnt++, sMainCap.c_str()); int nSubMenus = pTab->Groups->Count; for (int jj = 0; jj < nSubMenus; jj++) { TdxRibbonTabGroup *pGroup = pTab->Groups->Items[jj]; TdxBar *pBar = pGroup->ToolBar; if (pBar->Visible == false) continue; int nMenus = pBar->ItemLinks->Count; for (int kk = 0; kk < nMenus; kk++) { TdxBarItemLink *pItemLink = pBar->ItemLinks->Items[kk]; TdxBarLargeButton *pMenuBtn = (TdxBarLargeButton*)pItemLink->Item; if (pMenuBtn->Visible != ivAlways) continue; AnsiString sMenuName = pMenuBtn->Name; AnsiString sMenuCap = pMenuBtn->Caption; fprintf(pFileMenu, sQry2.c_str(), sMenuName.c_str(), sMenuCap.c_str(), sMainName.c_str()); } } } fclose(pFileMenu); pFileMenu = NULL; #if 0 for (int ii = 0; ii < nCompnentCnt; ii++) { String sClassName = this->Components[ii]->ClassName(); if(sClassName == "TdxBarLargeButton") { TdxBarLargeButton *pMenu = (TdxBarLargeButton *)this->Components[ii]; if (pMenu->Name == sMenuId) { pMenu->Enabled = false; break; } } } #endif } //--------------------------------------------------------------------------- void __fastcall TFrmMain::NIHS0060MClick(TObject *Sender) { FORMSHOW(IHS0060M); } //--------------------------------------------------------------------------- void __fastcall TFrmMain::TmrDbCheckTimer(TObject *Sender) { TmrDbCheck->Enabled = false; if (ITSDb_IsOpen() == false) { //DebugMsg("데이터베이스 연결 오류...."); DebugMsg(FrmLang->cxLabel23->Caption); UpdateDbStatus(true); if (DbConnect()) { if (ITSDb_Open()) { UpdateDbStatus(false); //DebugMsg("데이터베이스 재연결 성공...."); DebugMsg(FrmLang->cxLabel24->Caption); } } TmrDbCheck->Interval = 10000; } else { if (IsDbAlive()) { TmrDbCheck->Interval = 10000; } else { TmrDbCheck->Interval = 5000; } } TmrDbCheck->Enabled = true; } //--------------------------------------------------------------------------- bool __fastcall TFrmMain::DbConnect() { TADOConnection *m_pConnection = new TADOConnection(NULL); try { try { m_pConnection->ConnectionString = ITSDb_GetConnStr(); m_pConnection->KeepConnection = true; m_pConnection->LoginPrompt = false; m_pConnection->Open(); m_pConnection->Close(); } catch(EDatabaseError &E) { return false; } catch (Exception &e) { return false; } catch (...) { return false; } } __finally { SAFE_DELETE(m_pConnection); } return true; } //--------------------------------------------------------------------------- bool __fastcall TFrmMain::IsDbAlive() { String sQry; TADOQuery *pADO = NULL; try { sQry = "SELECT TO_CHAR(SYSDATE, 'YYYYMMDDHH24MISS') AS CURDATE FROM DUAL"; try { pADO = new TADOQuery(NULL); pADO->Close(); pADO->Connection = ITSDb_GetConnection(); pADO->SQL->Clear(); pADO->SQL->Text = sQry; pADO->Open(); for( ; !pADO->Eof; pADO->Next()) { String sCurrDate = pADO->FieldByName("CURDATE")->AsString; } } catch (Exception &exception) { ITSDb_Close(); return false; } } __finally { if (pADO) { pADO->Close(); delete pADO; } } return true; } //--------------------------------------------------------------------------- void __fastcall TFrmMain::NBDS0010MClick(TObject *Sender) { #ifdef D_BLACKBOX FORMSHOW(BDS0010M); #endif } //--------------------------------------------------------------------------- void __fastcall TFrmMain::NBDS0020MClick(TObject *Sender) { #ifdef D_BLACKBOX FORMSHOW(BDS0020M); #endif } //--------------------------------------------------------------------------- void __fastcall TFrmMain::NBDH0010MClick(TObject *Sender) { #ifdef D_BLACKBOX FORMSHOW(BDSH010M); #endif } //--------------------------------------------------------------------------- void __fastcall TFrmMain::NBDH0020MClick(TObject *Sender) { #ifdef D_BLACKBOX FORMSHOW(BDSH020M); #endif } //--------------------------------------------------------------------------- void __fastcall TFrmMain::NTAS0010MClick(TObject *Sender) { FORMSHOW(TAS0010M); } //--------------------------------------------------------------------------- void __fastcall TFrmMain::NTAS0020MClick(TObject *Sender) { FORMSHOW(TAS0020M); } //--------------------------------------------------------------------------- void __fastcall TFrmMain::NTAS0030MClick(TObject *Sender) { FORMSHOW(TAS0030M); } //--------------------------------------------------------------------------- void __fastcall TFrmMain::NTAS0040MClick(TObject *Sender) { FORMSHOW(TAS0040M); } //--------------------------------------------------------------------------- void __fastcall TFrmMain::NTAS0050MClick(TObject *Sender) { FORMSHOW(TAS0050M); } //--------------------------------------------------------------------------- void __fastcall TFrmMain::NWBH0010MClick(TObject *Sender) { #ifdef D_WBH0010M FORMSHOW(WBH0010M); #endif } //--------------------------------------------------------------------------- void __fastcall TFrmMain::NAVIH080MClick(TObject *Sender) { #ifdef USE_AVI FORMSHOW(AVIH080M); #endif } //--------------------------------------------------------------------------- void __fastcall TFrmMain::NIDB0140MClick(TObject *Sender) { #ifdef D_IDB0140M FORMSHOW(IDB0140M); #endif } //--------------------------------------------------------------------------- void __fastcall TFrmMain::NITS0050MClick(TObject *Sender) { // FORMSHOW(ITS0050M); } //--------------------------------------------------------------------------- void __fastcall TFrmMain::RVDSM010MClick(TObject *Sender) { #ifdef USE_VDS FORMSHOW(VDSM010M); #endif } //--------------------------------------------------------------------------- void __fastcall TFrmMain::RVDSM020MClick(TObject *Sender) { #ifdef USE_VDS FORMSHOW(VDSM020M); #endif } //---------------------------------------------------------------------------