//--------------------------------------------------------------------------- #include #include "AppGlobalF.h" #include "ITSSkinF.h" #include "ITSUtilF.h" #include "CenterCommF.h" #pragma hdrstop #include "FrmVmsRemoteCtrlF.h" //--------------------------------------------------------------------------- #pragma package(smart_init) #pragma link "cxContainer" #pragma link "cxControls" #pragma link "cxEdit" #pragma link "cxGraphics" #pragma link "cxGroupBox" #pragma link "cxLabel" #pragma link "cxLookAndFeelPainters" #pragma link "cxLookAndFeels" #pragma link "cxPC" #pragma link "cxPCdxBarPopupMenu" #pragma link "cxSplitter" #pragma link "dxSkinBlack" #pragma link "dxSkinBlue" #pragma link "dxSkinCaramel" #pragma link "dxSkinCoffee" #pragma link "dxSkinDarkRoom" #pragma link "dxSkinDarkSide" #pragma link "dxSkinFoggy" #pragma link "dxSkinGlassOceans" #pragma link "dxSkiniMaginary" #pragma link "dxSkinLilian" #pragma link "dxSkinLiquidSky" #pragma link "dxSkinLondonLiquidSky" #pragma link "dxSkinMcSkin" #pragma link "dxSkinMoneyTwins" #pragma link "dxSkinOffice2007Black" #pragma link "dxSkinOffice2007Blue" #pragma link "dxSkinOffice2007Green" #pragma link "dxSkinOffice2007Pink" #pragma link "dxSkinOffice2007Silver" #pragma link "dxSkinOffice2010Black" #pragma link "dxSkinOffice2010Blue" #pragma link "dxSkinOffice2010Silver" #pragma link "dxSkinsCore" #pragma link "dxSkinscxPCPainter" #pragma link "dxSkinSeven" #pragma link "dxSkinSharp" #pragma link "dxSkinSilver" #pragma link "dxSkinStardust" #pragma link "cxClasses" #pragma link "cxCustomData" #pragma link "cxData" #pragma link "cxDataStorage" #pragma link "cxFilter" #pragma link "cxGrid" #pragma link "cxGridCustomTableView" #pragma link "cxGridCustomView" #pragma link "cxGridLevel" #pragma link "cxGridTableView" #pragma link "cxStyles" #pragma link "cxTextEdit" #pragma link "cxGridCardView" #pragma link "cxGridCustomLayoutView" #pragma link "cxCheckBox" #pragma link "cxDropDownEdit" #pragma link "cxImage" #pragma link "cxButtons" #pragma link "cxCalc" #pragma link "cxGridBandedTableView" #pragma link "FRAME_VmsStateF" #pragma link "FRAME_VmsStateF" #pragma link "FRAME_VmsMsgListF" #pragma link "ImageBtn" #pragma link "cxMaskEdit" #pragma link "cxRadioGroup" #pragma link "cxSpinEdit" #pragma link "cxTimeEdit" #pragma link "IdBaseComponent" #pragma link "IdComponent" #pragma link "IdIcmpClient" #pragma link "IdRawBase" #pragma link "IdRawClient" #pragma link "FFBaseComponent" #pragma link "FFBasePlay" #pragma link "FFPlay" #pragma link "IdHTTP" #pragma link "IdTCPClient" #pragma link "IdTCPConnection" #pragma link "cxHint" #pragma link "dxCustomHint" #pragma link "dxScreenTip" #pragma link "dxSkinsForm" #pragma link "dxGDIPlusClasses" #pragma resource "*.dfm" TFrmVmsRemoteCtrl *FrmVmsRemoteCtrl = NULL; #define LICENSE_KEY "FSXXXXXX-XXXXXXXX-XXXXXXXX-XXXXXXXX-XXXXXXXX" //--------------------------------------------------------------------------- __fastcall TFrmVmsRemoteCtrl::TFrmVmsRemoteCtrl(TComponent* Owner) : TForm(Owner) { //CMM_SetFormPosition(g_AppCfg.bSaveForm); ITSSkin_Initialize(Application, g_AppCfg.sLang); ITSSkin_Caption(false); ITSSkin_Load(this); //CMM_LoadForm(g_sFormsDir, this); SetColorScheme(g_AppCfg.sSkinName); LoadLocalSkin(); //if (FormStyle != fsMDIChild) CMM_LoadForm(g_sFormsDir, this); FPalyerForm = NULL; FSelVmsObj = NULL; TvList->OptionsView->GroupByBox = false; TvList->OptionsView->Footer = false; ColumnSel->Visible = true; TsOperMode->TabVisible = false; PgControl->ActivePage = TsControl; #if 0 cxTabSheet5->TabVisible = false; cxTabSheet5->Visible = false; cxTabSheet1->TabVisible = false; cxTabSheet1->Visible = false; cxTabSheet6->TabVisible = false; cxTabSheet6->Visible = false; #endif FVmsIds = new TStringList(); FTitle = Caption;//"VMS 제어"; FCtrlTab = NULL; FStrmPlay = false; reMsg->Lines->Clear(); String sAVILibDir = g_sAppDir + "LibAV"; FFPlayer1->SetLicenseKey(LICENSE_KEY); FFPlayer1->DisableFPUExceptions(); if (!FFPlayer1->LoadAVLib(sAVILibDir)) { reMsg->Lines->Add("영상표출 라이브러리 초기화 실패."); #if 0 if (g_AppCfg.sLang != "kr") Application->MessageBox(L"Stream display library load failed.", L"Stream display fail", MB_OK|MB_ICONERROR|MB_APPLMODAL); else Application->MessageBox(L"영상표출 라이브러리를 로드하지 못하였습니다.", L"영상표출 오류", MB_OK|MB_ICONERROR|MB_APPLMODAL); #endif } reMsg->Lines->Clear(); } //--------------------------------------------------------------------------- void __fastcall TFrmVmsRemoteCtrl::SetColorScheme(String ASkinName) { dxSkinController1->SkinName = ASkinName; dxSkinController1->Refresh(); } //--------------------------------------------------------------------------- void __fastcall TFrmVmsRemoteCtrl::CommClose() { try { WebCamStop(); SAFE_DELETE(FVmsIds); //if (FormStyle != fsMDIChild) CMM_SaveForm(g_sFormsDir, this); FStrmPlay = false; CComm_Terminate(); ITSSkin_Term(); //CMM_SaveForm(g_sFormsDir, this); } catch(...) { } } //--------------------------------------------------------------------------- void __fastcall TFrmVmsRemoteCtrl::FormShow(TObject *Sender) { Refresh(); #if 0 InitDbLoading(); UpdateList(); TvList->ApplyBestFit(NULL, true, false); #endif CxList->Enabled = false; TmrShow->Enabled = true; } //--------------------------------------------------------------------------- void __fastcall TFrmVmsRemoteCtrl::InitDbLoading() { Application->ProcessMessages(); if (SysCodeManager == NULL) { SysCodeManager = new TSysCodeManager(); } SysCodeManager->LoadFromDb(); if (!VmsCtlrManager) { VmsCtlrManager = new TVmsCtlrManager(); } VmsCtlrManager->LoadVmsModlSize(); VmsCtlrManager->LoadFromDb(); VmsCtlrManager->LoadStatusFromDb(); VmsCtlrManager->LoadParaFromDb(); if (!CenterCommManager) { CenterCommManager = new TCenterCommManager(); } CenterCommManager->LoadFromDb(g_AppCfg.PRCS_ID); FCommCtrlTarget = CenterCommManager->FLists.Find("71"); // VMS 제어 APP_FillCode(CbOPER_MODE, "VMS_OPER_MODE_CD"); //VMS운영모드 APP_FillCode(CbRPRS_STTS, "RPRSV_STTS_CD"); //대표상태 (코드구분=RPRSV_STTS_CD) APP_FillCode(CbCMNC_STTS, "CMNC_STTS_CD"); //통신상태 (코드구분=CMNC_STTS_CD) APP_FillCode(CbPS_STTS, "PS_STTS_CD"); //전원상태 (코드구분=PS_STTS_CD) APP_FillCode(CbFAN_STTS, "FAN_STTS_CD"); //팬상태 (코드구분=FAN_STTS_CD) APP_FillCode(CbHTER_STTS, "HTER_STTS_CD"); //히터상태 (코드구분=HTER_STTS_CD) APP_FillCode(CbDOOR_STTS, "DOOR_OPEN_STTS_CD"); //문상태(코드구분=DOOR_OPEN_STTS_CD) APP_FillCode(CbLUMI_MODE, "LUMI_MODE_CD"); //휘도모드(코드구분=LUMI_MODE_CD) APP_FillCode(CbFAN_MODE, "FAN_MODE_CD"); //팬모드(코드구분=FAN_MODE_CD) } //--------------------------------------------------------------------------- void __fastcall TFrmVmsRemoteCtrl::UpdateList() { CMM_ClearGridTableView(TvList); int ii, jj; int nCols = 0; TcxDataController *pGDC = TvList->DataController; TvList->BeginUpdate(); pGDC->BeginUpdate(); VmsCtlrManager->FLists.Lock(); try { int nRow; FOR_STL(TVmsCtlr*, pObj, VmsCtlrManager->FLists) { if (pObj->USE_YN != "Y") continue; nRow = pGDC->AppendRecord(); pGDC->Values[nRow][ColumnSel->Index] = false; pGDC->Values[nRow][ColVMS_CTLR_ID->Index] = pObj->VMS_CTLR_ID; pGDC->Values[nRow][ColVMS_NM->Index] = pObj->VMS_NM; pGDC->Values[nRow][ColVMS_MODL_KIND_NM->Index] = pObj->VMS_MODL_KIND_NM; pGDC->Values[nRow][ColOPER_MODE->Index] = APP_GetCodeName(CbOPER_MODE, pObj->OPER_MODE); pGDC->Values[nRow][ColLAST_DT_FMT->Index] = pObj->Stts->LAST_DT_FMT; pGDC->Values[nRow][ColRPRS_STTS->Index] = APP_GetCodeName(CbRPRS_STTS, pObj->Stts->RPRS_STTS); pGDC->Values[nRow][ColCMNC_STTS->Index] = APP_GetCodeName(CbCMNC_STTS, pObj->Stts->CMNC_STTS); pGDC->Values[nRow][ColPS_STTS->Index] = APP_GetCodeName(CbPS_STTS, pObj->Stts->PS_STTS); pGDC->Values[nRow][ColFAN_STTS->Index] = APP_GetCodeName(CbFAN_STTS, pObj->Stts->FAN_STTS); pGDC->Values[nRow][ColHTER_STTS->Index] = APP_GetCodeName(CbHTER_STTS, pObj->Stts->HTER_STTS); pGDC->Values[nRow][ColDOOR_STTS->Index] = APP_GetCodeName(CbDOOR_STTS, pObj->Stts->DOOR_STTS); pGDC->Values[nRow][ColRSET_YN->Index] = pObj->Stts->RSET_YN; pGDC->Values[nRow][ColTEMP->Index] = pObj->Stts->TEMP; pGDC->Values[nRow][ColHUM->Index] = pObj->Stts->HUM; pGDC->Values[nRow][ColBOX_TEMP->Index] = pObj->Stts->BOX_TEMP; pGDC->Values[nRow][Col99->Index] = (int)pObj; } } __finally { VmsCtlrManager->FLists.UnLock(); pGDC->EndUpdate(); TvList->EndUpdate(); } } //--------------------------------------------------------------------------- void __fastcall TFrmVmsRemoteCtrl::RefreshStatusInfo() { TcxDataController *pGDC = TvList->DataController; try { TvList->BeginUpdate(); pGDC->BeginUpdate(); int nRows = pGDC->RecordCount; for(int nRow = 0; nRow < nRows; nRow++) { int nMemPtr = TvList->DataController->Values[nRow][Col99->Index]; TVmsCtlr *pObj = (TVmsCtlr*)nMemPtr; if (!pObj) continue; pGDC->Values[nRow][ColOPER_MODE->Index] = APP_GetCodeName(CbOPER_MODE, pObj->OPER_MODE); pGDC->Values[nRow][ColLAST_DT_FMT->Index] = pObj->Stts->LAST_DT_FMT; pGDC->Values[nRow][ColRPRS_STTS->Index] = APP_GetCodeName(CbRPRS_STTS, pObj->Stts->RPRS_STTS); pGDC->Values[nRow][ColCMNC_STTS->Index] = APP_GetCodeName(CbCMNC_STTS, pObj->Stts->CMNC_STTS); pGDC->Values[nRow][ColPS_STTS->Index] = APP_GetCodeName(CbPS_STTS, pObj->Stts->PS_STTS); pGDC->Values[nRow][ColFAN_STTS->Index] = APP_GetCodeName(CbFAN_STTS, pObj->Stts->FAN_STTS); pGDC->Values[nRow][ColHTER_STTS->Index] = APP_GetCodeName(CbHTER_STTS, pObj->Stts->HTER_STTS); pGDC->Values[nRow][ColDOOR_STTS->Index] = APP_GetCodeName(CbDOOR_STTS, pObj->Stts->DOOR_STTS); pGDC->Values[nRow][ColRSET_YN->Index] = pObj->Stts->RSET_YN; pGDC->Values[nRow][ColTEMP->Index] = pObj->Stts->TEMP; pGDC->Values[nRow][ColHUM->Index] = pObj->Stts->HUM; pGDC->Values[nRow][ColBOX_TEMP->Index] = pObj->Stts->BOX_TEMP; } } __finally { pGDC->EndUpdate(); TvList->EndUpdate(); //CxList->LayoutChanged(); } } //--------------------------------------------------------------------------- void __fastcall TFrmVmsRemoteCtrl::LoadLocalSkin() { PnlVmsCam->ParentColor = false; PnlVmsCam->Color = clBlack; PnlRtspStream->ParentColor = false; PnlRtspStream->Color = clBlack; Refresh(); } //--------------------------------------------------------------------------- void __fastcall TFrmVmsRemoteCtrl::TmrShowTimer(TObject *Sender) { TmrShow->Enabled = false; InitDbLoading(); UpdateList(); //TvList->ApplyBestFit(NULL, true, false); CxList->Enabled = true; RefreshStatusInfo(); int nResult = CComm_Initialize((long)Handle, g_AppCfg.PRCS_ID, "P04010", 0); } //--------------------------------------------------------------------------- void __fastcall TFrmVmsRemoteCtrl::FormClose(TObject *Sender, TCloseAction &Action) { try { CommClose(); FrmVmsRemoteCtrl = NULL; Action = caFree; } catch(...) {} } //--------------------------------------------------------------------------- void __fastcall TFrmVmsRemoteCtrl::OnVmsStateRefreshMessage(TMessage &Msg) { RefreshStatusInfo(); } //--------------------------------------------------------------------------- void __fastcall TFrmVmsRemoteCtrl::DisplayInfo() { FSelVmsObj = NULL; PnlVms->Caption = " 선택 VMS: -"; TcxDataController *pGDC = TvList->DataController; int nSelIdx = CMM_GetRecordIndex(TvList); if (nSelIdx < 0) return; String sVmsCtlrId = VarToStr(pGDC->Values[nSelIdx][ColVMS_CTLR_ID->Index]); int nMemPtr = (int)pGDC->Values[nSelIdx][Col99->Index]; FSelVmsObj = (TVmsCtlr*)nMemPtr; if (!FSelVmsObj) return; PnlVms->Caption = " 선택 VMS: [" + FSelVmsObj->VMS_CTLR_ID + "] " + FSelVmsObj->VMS_NM; try { if (FSelVmsObj->Para->IsLoading) { SeCurrBrgh->Value = FSelVmsObj->Para->CUR_LUMI; SeWeekBrgh->Value = FSelVmsObj->Para->DAY_LUMI; SeNghtBrgh->Value = FSelVmsObj->Para->NGHT_LUMI; } } catch(Exception &e) { } try { reMsg->Lines->Clear(); WebCamPlay((FSelVmsObj->VMS_CTLR_ID)); } catch(Exception &e) { } BtnWebCamUrl->Enabled = true; } //--------------------------------------------------------------------------- void __fastcall TFrmVmsRemoteCtrl::ClearCheckList() { TcxDataController *pGDC = TvList->DataController; try { TvList->BeginUpdate(); pGDC->BeginUpdate(); int nRows = pGDC->RecordCount; for (int ii = 0; ii < nRows; ii++) { pGDC->Values[ii][ColumnSel->Index] = false; } } __finally { pGDC->EndUpdate(); TvList->EndUpdate(); } } //--------------------------------------------------------------------------- void __fastcall TFrmVmsRemoteCtrl::TvListCellDblClick(TcxCustomGridTableView *Sender, TcxGridTableDataCellViewInfo *ACellViewInfo, TMouseButton AButton, TShiftState AShift, bool &AHandled) { if (!ACellViewInfo) return; ClearCheckList(); TcxDataController *pGDC = TvList->DataController; int nSelIdx = CMM_GetRecordIndex(TvList); if (nSelIdx < 0) return; pGDC->Values[nSelIdx][ColumnSel->Index] = true; DisplayInfo(); } //--------------------------------------------------------------------------- void __fastcall TFrmVmsRemoteCtrl::Se01PropertiesChange(TObject *Sender) { if (((TcxSpinEdit*)Sender)->Value < ((TcxSpinEdit*)Sender)->Properties->MinValue) ((TcxSpinEdit*)Sender)->Value = ((TcxSpinEdit*)Sender)->Properties->MinValue; else if(((TcxSpinEdit*)Sender)->Value > ((TcxSpinEdit*)Sender)->Properties->MaxValue && ((TcxSpinEdit*)Sender)->Properties->MaxValue) ((TcxSpinEdit*)Sender)->Value = ((TcxSpinEdit*)Sender)->Properties->MaxValue; } //--------------------------------------------------------------------------- bool __fastcall TFrmVmsRemoteCtrl::GetSelListItems(bool ACommCheck/*=true*/) { String sMsg; TcxDataController *pGDC = TvList->DataController; FVmsIds->Clear(); if (FCommCtrlTarget == NULL) { sMsg = "VMS 원격제어\r\nVMS 원격제어 서버에 대한 정보가 없습니다.\r\n관리자에게 확인 후에 작업을 진행 하세요.\r\n원격제어 명령을 전송할 수 없습니다."; Application->MessageBox(sMsg.c_str(), FTitle.c_str(), MB_OK|MB_ICONERROR|MB_APPLMODAL); return false; } try { bool bSelected; int nRows = TvList->ViewData->RecordCount; TvList->BeginUpdate(); for (int ii = 0; ii < nRows; ii++) { TcxCustomGridRow* ARow = TvList->ViewData->Rows[ii]; int nMemPtr = (int)ARow->Values[Col99->Index]; TVmsCtlr *pVms = (TVmsCtlr*)nMemPtr; if (!pVms) continue; bSelected = (bool)ARow->Values[ColumnSel->Index]; if (bSelected) { String sVmsCtlrId = ARow->Values[ColVMS_CTLR_ID->Index]; //VMS번호 if (ACommCheck) { #if 0 if (pVms->STATE.Comm == vms_comm_normal) { FVmsIds->Add(sVmsCtlrId); } #endif } else { FVmsIds->Add(sVmsCtlrId); } } } } __finally { TvList->EndUpdate(); } if (FVmsIds->Count <= 0) { sMsg = "VMS 원격제어\r\nVVMS가 선택되지 않았습니다.\r\nVMS 목록에서 VMS를 선택하십시요."; Application->MessageBox(sMsg.c_str(), FTitle.c_str(), MB_OK|MB_ICONERROR|MB_APPLMODAL); CxList->SetFocus(); return false; } return true; } //--------------------------------------------------------------------------- bool __fastcall TFrmVmsRemoteCtrl::UpdateVmsParam(String AVmsNmbr, void *pData) { return true; } //--------------------------------------------------------------------------- void __fastcall TFrmVmsRemoteCtrl::BtnOnOffSetClick(TObject *Sender) { //전광판ON/OFF시각설정 String sTitle = "전광판 ON/OFF 시각 설정"; String sMsg = ""; int nOkCnt = 0; int nSelCnt = GetSelListItems(false); if (0 == nSelCnt) { sMsg = "VMS가 선택되지 않았습니다.\r\nVMS 목록에서 VMS를 선택하십시요."; Application->MessageBox(sMsg.c_str(), sTitle.c_str(), MB_OK|MB_ICONERROR|MB_APPLMODAL); CxList->SetFocus(); return; } int nCmdIdx = 0; sMsg = "선택하신 VMS의 전광판 ON/OFF 시각을 설정 하시겠습니까?"; if (Application->MessageBox(sMsg.c_str(), sTitle.c_str(), MB_YESNO|MB_ICONWARNING|MB_APPLMODAL) != IDYES) return; String sQry; TADOQuery *pADO = NULL; sQry = "UPDATE TB_VMS_CTLR \r\n" " SET VMS_OFF_HM = :p02, \r\n" " VMS_OFF_HM = :p03 \r\n" " WHERE VMS_CTLR_ID = :p01 \r\n"; String VMS_ON_HM = cxTimeOn->Time.FormatString("HHNN"); String VMS_OFF_HM = cxTimeOff->Time.FormatString("HHNN"); String LAST_CRPR_NMBR = g_AppCfg.OPER_ID; String LAST_CRCT_DT = Now().FormatString("yyyymmddhhnnss"); try { try { pADO = new TADOQuery(NULL); pADO->Close(); pADO->Connection = ITSDb_GetConnection(); pADO->SQL->Clear(); pADO->SQL->Text = sQry; for (int ii = 0; ii < nSelCnt; ii++) { String sVmsNmbr = FVmsIds->Strings[ii]; pADO->Parameters->ParamByName("p01")->Value = sVmsNmbr; pADO->Parameters->ParamByName("p02")->Value = VMS_OFF_HM; pADO->Parameters->ParamByName("p03")->Value = VMS_OFF_HM; pADO->ExecSQL(); nOkCnt++; TVmsCtlr *pObj = VmsCtlrManager->FLists.Find(sVmsNmbr); if (pObj) { pObj->VMS_ON_HM = VMS_OFF_HM; pObj->VMS_OFF_HM = VMS_OFF_HM; } } } catch(EDatabaseError &E) { DBERRORMSG("TVMS0500M::BtnOnOffSetClick", String(E.ClassName()), E.Message, sQry); throw Exception(String(E.ClassName()) + E.Message); } catch(Exception &e) { DBERRORMSG("TVMS0500M::BtnOnOffSetClick", String(e.ClassName()), e.Message, sQry); throw Exception(String(e.ClassName()) + e.Message); } } __finally { if (pADO) { pADO->Close(); delete pADO; } } sMsg = String(nSelCnt) + " 개의 선택 VMS 중에 " + String(nOkCnt) + " 개의 VMS로 전광판 ON/OFF 시각 설정을 요청하였습니다."; Application->MessageBox(sMsg.c_str(), sTitle.c_str(), MB_OK|MB_ICONINFORMATION|MB_APPLMODAL); for (int ii = 0; ii < nSelCnt; ii++) { String sVmsNmbr = FVmsIds->Strings[ii]; VmsCtlrManager->InsVmsControlHs(LAST_CRCT_DT, sVmsNmbr, "V05", VMS_OFF_HM+" "+VMS_OFF_HM, "1", LAST_CRPR_NMBR); } //RefreshStatus(); } //--------------------------------------------------------------------------- void __fastcall TFrmVmsRemoteCtrl::BtnModeControlClick(TObject *Sender) { //VMS 운영모드 변경 String sTitle = "VMS 운영모드 변경"; String sMsg = ""; int nOkCnt = 0; int nSelCnt = GetSelListItems(false); if (0 == nSelCnt) { sMsg = "VMS가 선택되지 않았습니다.\r\nVMS 목록에서 VMS를 선택하십시요."; Application->MessageBox(sMsg.c_str(), sTitle.c_str(), MB_OK|MB_ICONERROR|MB_APPLMODAL); CxList->SetFocus(); return; } int nCmdIdx = 0; sMsg = "선택하신 VMS의 운영모드를 변경 하시겠습니까?"; if (Application->MessageBox(sMsg.c_str(), sTitle.c_str(), MB_YESNO|MB_ICONWARNING|MB_APPLMODAL) != IDYES) return; String OPER_MODE; if (RdbAuto->Checked) { OPER_MODE = "A"; } else if (RdbFix->Checked) { OPER_MODE = "F"; } else if (RdbBase->Checked) { OPER_MODE = "B"; } String sQry; TADOQuery *pADO = NULL; sQry = "UPDATE TB_VMS_CTLR \r\n" " SET OPER_MODE = :p01 \r\n" " WHERE VMS_CTLR_ID = :p05 \r\n"; String LAST_CRPR_NMBR = g_AppCfg.OPER_ID; String LAST_CRCT_DT = Now().FormatString("yyyymmddhhnnss"); #if 0 try { try { pADO = new TADOQuery(NULL); pADO->Close(); pADO->Connection = ITSDb_GetConnection(); pADO->SQL->Clear(); pADO->SQL->Text = sQry; INT_VMS_MODE_REQ VmsMode; BYTE MsgSeq; memset(&VmsMode, 0x00, sizeof(VmsMode)); MsgSeq = (BYTE)0x50; memcpy(VmsMode.CmdTime, AnsiString(LAST_CRCT_DT).c_str(), INT_VMS_MAX_DATETIME); /* 명령수행시각 */ memcpy(VmsMode.OperId, AnsiString(LAST_CRPR_NMBR).c_str(), INT_VMS_MAX_OPER_ID); /* 운영자 ID */ for (int ii = 0; ii < nSelCnt; ii++) { String sVmsNmbr = FVmsIds->Strings[ii]; pADO->Parameters->ParamByName("p01")->Value = OPER_MODE; pADO->Parameters->ParamByName("p05")->Value = sVmsNmbr; pADO->ExecSQL(); nOkCnt++; TVmsCtlr *pObj = VmsCtlrManager->FLists.Find(sVmsNmbr); if (pObj) { pObj->OPER_MODE = OPER_MODE; if (pObj->OPER_MODE == "A") pObj->STATE.OprMode = 'A'; else if (pObj->OPER_MODE == "B") pObj->STATE.OprMode = 'B'; else pObj->STATE.OprMode = 'F'; } else continue; VmsMode.Unit[VmsMode.Count].VMS_CTLR_ID = sVmsNmbr.ToIntDef(0); /* VMS 제어기 번호 */ if (OPER_MODE == "A") VmsMode.Unit[VmsMode.Count].Mode = 'A'; else if (OPER_MODE == "B") VmsMode.Unit[VmsMode.Count].Mode = 'B'; else VmsMode.Unit[VmsMode.Count].Mode = 'F'; VmsMode.Count++; if (VmsMode.Count >= INT_VMS_MAX_MODE) { CComm_VmsModeReq(&VmsMode, MsgSeq); } } if (VmsMode.Count > 0) { CComm_VmsModeReq(&VmsMode, MsgSeq); } } catch(EDatabaseError &E) { DBERRORMSG("TVMS0500M::BtnModeControlClick", String(E.ClassName()), E.Message, sQry); throw Exception(String(E.ClassName()) + E.Message); } catch(Exception &e) { DBERRORMSG("TVMS0500M::BtnModeControlClick", String(e.ClassName()), e.Message, sQry); throw Exception(String(e.ClassName()) + e.Message); } } __finally { if (pADO) { pADO->Close(); delete pADO; } } sMsg = String(nSelCnt) + " 개의 선택 VMS 중에 " + String(nOkCnt) + " 개의 VMS 운영모드를 변경하였습니다."; Application->MessageBox(sMsg.c_str(), sTitle.c_str(), MB_OK|MB_ICONINFORMATION|MB_APPLMODAL); for (int ii = 0; ii < nSelCnt; ii++) { String sVmsNmbr = FVmsIds->Strings[ii]; VmsCtlrManager->InsVmsControlHs(LAST_CRCT_DT, sVmsNmbr, "V06", OPER_MODE, "1", LAST_CRPR_NMBR); } //RefreshStatus(); #endif } //--------------------------------------------------------------------------- void __fastcall TFrmVmsRemoteCtrl::BtnWebCamUrlClick(TObject *Sender) { #if 0 if (FSelVmsObj) { if (FSelVmsObj->WEB_CMRA_IP.Trim() != "") { String sUrl = "http://" + FSelVmsObj->WEB_CMRA_IP.Trim(); //if (FSelVmsObj->WEB_CMRA_PORT != "") //{ // sUrl = sUrl + ":" + FSelVmsObj->WEB_CMRA_PORT; //} ShellExecute(NULL, NULL, sUrl.c_str(), NULL, NULL, 0); } } #endif } //--------------------------------------------------------------------------- bool __fastcall TFrmVmsRemoteCtrl::UpdateVmsParam2(String AVmsNmbr, void *pData) { return true; } //--------------------------------------------------------------------------- void __fastcall TFrmVmsRemoteCtrl::TmrCommandTimer(TObject *Sender) { TmrCommand->Enabled = false; } //--------------------------------------------------------------------------- void __fastcall TFrmVmsRemoteCtrl::PgControlPageChanging(TObject *Sender, TcxTabSheet *NewPage, bool &AllowChange) { if (BtnAllSelect->Visible == false) BtnAllSelect->Visible = true; if (BtnAllClear->Visible == false) BtnAllClear->Visible = true; if (BtnReverse->Visible == false) BtnReverse->Visible = true; } //--------------------------------------------------------------------------- void __fastcall TFrmVmsRemoteCtrl::Col08CustomDrawCell(TcxCustomGridTableView *Sender, TcxCanvas *ACanvas, TcxGridTableDataCellViewInfo *AViewInfo, bool &ADone) { try { int iIndex = AViewInfo->Item->Index; ACanvas->Canvas->Brush->Style = bsSolid; String val = AViewInfo->GridRecord->DisplayTexts[iIndex]; ACanvas->Canvas->Font->Color = clBlack; if (val == "Normal") ACanvas->Canvas->Brush->Color = clLime; else if (val == "Delayed") ACanvas->Canvas->Brush->Color = clRed; else if (val == "Time out") ACanvas->Canvas->Brush->Color = clRed; else ACanvas->Canvas->Brush->Color = clSilver; } catch(...) {} } //--------------------------------------------------------------------------- void __fastcall TFrmVmsRemoteCtrl::ErrorMsg(String AErrMsg) { LblErrMsg->Caption = AErrMsg; LblErrMsg->BringToFront(); LblErrMsg->Transparent = true; LblErrMsg->Style->Font->Color = clWhite; LblErrMsg->Style->TextColor = clWhite; LblErrMsg->Visible = true; LblErrMsg->Refresh(); LblErrMsg->BringToFront(); } //--------------------------------------------------------------------------- void __fastcall TFrmVmsRemoteCtrl::WebCamPlay(String AVmsNo) { if (LblErrMsg->Visible) LblErrMsg->Visible = false; reMsg->Lines->Clear(); reMsg->Lines->Add("Connect..."); WebCamStop(); TVmsCtlr *pObj = VmsCtlrManager->FLists.Find(AVmsNo); if (!pObj) return; PnlRtspStream->Caption = "영상 연결 중..."; PnlRtspStream->Refresh(); try { FStrmAddr = pObj->VMS_RTSP_ADDR.Trim(); if (FStrmAddr != "") { FFPlayer1->AspectRatio = ChkFullScreen->Checked ? -1 : 0; FFPlayer1->TryOpen(FStrmAddr, PnlRtspStream->Handle); //FStrmUser = pObj->WEB_CMRA_ID; //FStrmPswd = pObj->WEB_CMRA_PWD; FStrmHttp = FStrmAddr; FStrmPlay = true; } else { FStrmHttp = ""; PnlRtspStream->Caption = "영상정보가 없습니다..."; } } catch(Exception &e) { } } //--------------------------------------------------------------------------- void __fastcall TFrmVmsRemoteCtrl::WebCamStop() { if (!FStrmPlay) return; try { if (FFPlayer1->ScreenHandle != NULL) { FFPlayer1->Stop(true); PostMessage(FFPlayer1->ScreenHandle, CM_INVALIDATE, 0, 0); UpdateWindow(FFPlayer1->ScreenHandle); //FFPlayer1->ScreenHandle = NULL; } } catch(Exception &e) { } PnlRtspStream->Caption = "Disconnected"; PnlRtspStream->Refresh(); FStrmPlay = false; } //--------------------------------------------------------------------------- void __fastcall TFrmVmsRemoteCtrl::BtnModuleControlClick(TObject *Sender) { TcxButton *pBtnControl = (TcxButton*)Sender; if (!GetSelListItems(false)) { return; } String sMsg = ""; sMsg = "VMS 원격제어 - 전광판 전원 제어\r\n선택하신 VMS에 전광판 전원 제어 명령을 전송하시겠습니까?\r\n(통신상태에 따라 명령이 실행되지 않을 수 있습니다.)"; if (Application->MessageBox(sMsg.c_str(), FTitle.c_str(), MB_YESNO|MB_ICONWARNING|MB_APPLMODAL) != IDYES) return; int result; int nOkCnt = 0; int nTotal = 0; int nSelCnt = FVmsIds->Count; for (int ii = 0; ii < nSelCnt; ii++) { String sVmsCtlrId = FVmsIds->Strings[ii]; FOR_STL(TCommInfo*, pCommInfo, FCommCtrlTarget->FLists) { nTotal++; result = CComm_VmsReqPowerOnOff(pCommInfo->SRVR_IP, pCommInfo->CMNC_PORT, g_AppCfg.OPER_ID, sVmsCtlrId, pBtnControl->Tag == 1); if (VERR_NONE == result) { nOkCnt++; } Sleep(200); Application->ProcessMessages(); } } sMsg = String(nSelCnt) + " 개의 선택 VMS 중에 " + String(nOkCnt) + " 개의 VMS로 전광판 전원 제어 명령을 요청하였습니다."; Application->MessageBox(sMsg.c_str(), FTitle.c_str(), MB_OK|MB_ICONINFORMATION|MB_APPLMODAL); } //--------------------------------------------------------------------------- void __fastcall TFrmVmsRemoteCtrl::BtnResetClick(TObject *Sender) { TcxButton *pBtnControl = (TcxButton*)Sender; if (!GetSelListItems(false)) { return; } String sMsg = ""; sMsg = "VMS 원격제어 - 제어기 리셋\r\n선택하신 VMS에 제어기 리셋 명령을 전송하시겠습니까?\r\n(통신상태에 따라 명령이 실행되지 않을 수 있습니다.)"; if (Application->MessageBox(sMsg.c_str(), FTitle.c_str(), MB_YESNO|MB_ICONWARNING|MB_APPLMODAL) != IDYES) return; int result; int nOkCnt = 0; int nTotal = 0; int nSelCnt = FVmsIds->Count; for (int ii = 0; ii < nSelCnt; ii++) { String sVmsCtlrId = FVmsIds->Strings[ii]; FOR_STL(TCommInfo*, pCommInfo, FCommCtrlTarget->FLists) { nTotal++; result = CComm_VmsReqReset(pCommInfo->SRVR_IP, pCommInfo->CMNC_PORT, g_AppCfg.OPER_ID, sVmsCtlrId); if (VERR_NONE == result) { nOkCnt++; } Sleep(200); Application->ProcessMessages(); } } sMsg = String(nSelCnt) + " 개의 선택 VMS 중에 " + String(nOkCnt) + " 개의 VMS로 제어기 리셋 명령을 요청하였습니다."; Application->MessageBox(sMsg.c_str(), FTitle.c_str(), MB_OK|MB_ICONINFORMATION|MB_APPLMODAL); } //--------------------------------------------------------------------------- void __fastcall TFrmVmsRemoteCtrl::BtnBlankDisplayClick(TObject *Sender) { TcxButton *pBtnControl = (TcxButton*)Sender; if (!GetSelListItems(false)) { return; } String sMsg = ""; sMsg = "VMS 원격제어 - 화면 삭제(빈화면표출)\r\n선택하신 VMS에 화면 삭제(빈화면표출) 명령을 전송하시겠습니까?\r\n(통신상태에 따라 명령이 실행되지 않을 수 있습니다.)"; if (Application->MessageBox(sMsg.c_str(), FTitle.c_str(), MB_YESNO|MB_ICONWARNING|MB_APPLMODAL) != IDYES) return; int result; int nOkCnt = 0; int nTotal = 0; int nSelCnt = FVmsIds->Count; for (int ii = 0; ii < nSelCnt; ii++) { String sVmsCtlrId = FVmsIds->Strings[ii]; FOR_STL(TCommInfo*, pCommInfo, FCommCtrlTarget->FLists) { nTotal++; result = CComm_VmsReqBlank(pCommInfo->SRVR_IP, pCommInfo->CMNC_PORT, g_AppCfg.OPER_ID, sVmsCtlrId); if (VERR_NONE == result) { nOkCnt++; } Sleep(200); Application->ProcessMessages(); } } sMsg = String(nSelCnt) + " 개의 선택 VMS 중에 " + String(nOkCnt) + " 개의 VMS로 화면 삭제(빈화면표출) 명령을 요청하였습니다."; Application->MessageBox(sMsg.c_str(), FTitle.c_str(), MB_OK|MB_ICONINFORMATION|MB_APPLMODAL); } //--------------------------------------------------------------------------- void __fastcall TFrmVmsRemoteCtrl::BtnBrghControl0Click(TObject *Sender) { TcxButton *pBtnControl = (TcxButton*)Sender; if (!GetSelListItems(false)) { return; } int setValue = 0; String sCommand = "휘도설정(자동 모드)"; if (pBtnControl->Tag == 0) { setValue = 0; sCommand = "휘도설정(자동 모드)"; } else if (pBtnControl->Tag == 1) { setValue = SeWeekBrgh->Value; sCommand = "휘도설정(주간 모드) 밝기 " + String(setValue); } else if (pBtnControl->Tag == 2) { setValue = SeNghtBrgh->Value; sCommand = "휘도설정(야간 모드) 밝기 " + String(setValue); } else if (pBtnControl->Tag == 3) { setValue = SeUserBrgh->Value; sCommand = "휘도설정(수동 모드) 밝기 " + String(setValue); } String sMsg = ""; sMsg = "VMS 원격제어 - " + sCommand + "\r\n선택하신 VMS에 " + sCommand + " 명령을 전송하시겠습니까?\r\n(통신상태에 따라 명령이 실행되지 않을 수 있습니다.)"; if (Application->MessageBox(sMsg.c_str(), FTitle.c_str(), MB_YESNO|MB_ICONWARNING|MB_APPLMODAL) != IDYES) return; int result; int nOkCnt = 0; int nTotal = 0; int nSelCnt = FVmsIds->Count; BYTE Value = (BYTE)(setValue & 0xFF); for (int ii = 0; ii < nSelCnt; ii++) { String sVmsCtlrId = FVmsIds->Strings[ii]; FOR_STL(TCommInfo*, pCommInfo, FCommCtrlTarget->FLists) { nTotal++; result = CComm_VmsReqLumiSet(pCommInfo->SRVR_IP, pCommInfo->CMNC_PORT, g_AppCfg.OPER_ID, sVmsCtlrId, (BYTE)pBtnControl->Tag, Value); if (VERR_NONE == result) { nOkCnt++; } Sleep(200); Application->ProcessMessages(); } } sMsg = String(nSelCnt) + " 개의 선택 VMS 중에 " + String(nOkCnt) + " 개의 VMS로 " + sCommand + " 명령을 요청하였습니다."; Application->MessageBox(sMsg.c_str(), FTitle.c_str(), MB_OK|MB_ICONINFORMATION|MB_APPLMODAL); } //--------------------------------------------------------------------------- void __fastcall TFrmVmsRemoteCtrl::BtnModlErrRateClick(TObject *Sender) { TcxButton *pBtnControl = (TcxButton*)Sender; if (!GetSelListItems(false)) { return; } String sCommand = "모듈장애율설정"; String sMsg = ""; sMsg = "VMS 원격제어 - " + sCommand + "\r\n선택하신 VMS에 " + sCommand + " 명령을 전송하시겠습니까?\r\n(통신상태에 따라 명령이 실행되지 않을 수 있습니다.)"; if (Application->MessageBox(sMsg.c_str(), FTitle.c_str(), MB_YESNO|MB_ICONWARNING|MB_APPLMODAL) != IDYES) return; int result; int nOkCnt = 0; int nTotal = 0; int nSelCnt = FVmsIds->Count; for (int ii = 0; ii < nSelCnt; ii++) { String sVmsCtlrId = FVmsIds->Strings[ii]; FOR_STL(TCommInfo*, pCommInfo, FCommCtrlTarget->FLists) { nTotal++; result = CComm_VmsReqModlErrRate(pCommInfo->SRVR_IP, pCommInfo->CMNC_PORT, g_AppCfg.OPER_ID, sVmsCtlrId, (BYTE)SeERR_MODL_RT->Value); if (VERR_NONE == result) { nOkCnt++; } Sleep(200); Application->ProcessMessages(); } } sMsg = String(nSelCnt) + " 개의 선택 VMS 중에 " + String(nOkCnt) + " 개의 VMS로 " + sCommand + " 명령을 요청하였습니다."; Application->MessageBox(sMsg.c_str(), FTitle.c_str(), MB_OK|MB_ICONINFORMATION|MB_APPLMODAL); } //--------------------------------------------------------------------------- void __fastcall TFrmVmsRemoteCtrl::BtnDfltScnrRunTmClick(TObject *Sender) { TcxButton *pBtnControl = (TcxButton*)Sender; if (!GetSelListItems(false)) { return; } String sCommand = "통신장애시간설정"; String sMsg = ""; sMsg = "VMS 원격제어 - " + sCommand + "\r\n선택하신 VMS에 " + sCommand + " 명령을 전송하시겠습니까?\r\n(통신상태에 따라 명령이 실행되지 않을 수 있습니다.)"; if (Application->MessageBox(sMsg.c_str(), FTitle.c_str(), MB_YESNO|MB_ICONWARNING|MB_APPLMODAL) != IDYES) return; int result; int nOkCnt = 0; int nTotal = 0; int nSelCnt = FVmsIds->Count; for (int ii = 0; ii < nSelCnt; ii++) { String sVmsCtlrId = FVmsIds->Strings[ii]; FOR_STL(TCommInfo*, pCommInfo, FCommCtrlTarget->FLists) { nTotal++; result = CComm_VmsReqCmncErrMin(pCommInfo->SRVR_IP, pCommInfo->CMNC_PORT, g_AppCfg.OPER_ID, sVmsCtlrId, (BYTE)CbDFLT_SCNR_RUN_TM->ItemIndex); if (VERR_NONE == result) { nOkCnt++; } Sleep(200); Application->ProcessMessages(); } } sMsg = String(nSelCnt) + " 개의 선택 VMS 중에 " + String(nOkCnt) + " 개의 VMS로 " + sCommand + " 명령을 요청하였습니다."; Application->MessageBox(sMsg.c_str(), FTitle.c_str(), MB_OK|MB_ICONINFORMATION|MB_APPLMODAL); } //--------------------------------------------------------------------------- void __fastcall TFrmVmsRemoteCtrl::FFPlayer1State(TObject *Sender, TPlayState APlayState) { switch(APlayState) { case Ffbasecomponent::psPlay: reMsg->Lines->Add("Play..."); break; case Ffbasecomponent::psResume: reMsg->Lines->Add("Resume."); break; case Ffbasecomponent::psPause: reMsg->Lines->Add("Pause.."); break; case Ffbasecomponent::psStep: reMsg->Lines->Add("Step..."); break; case Ffbasecomponent::psStop: if (FFPlayer1->ScreenHandle != NULL) { PostMessage(FFPlayer1->ScreenHandle, CM_INVALIDATE, 0, 0); UpdateWindow(FFPlayer1->ScreenHandle); //FFPlayer1->ScreenHandle = NULL; } reMsg->Lines->Add("Stop..."); break; case Ffbasecomponent::psEnd: { FFPlayer1->Stop(true); PostMessage(FFPlayer1->ScreenHandle, CM_INVALIDATE, 0, 0); UpdateWindow(FFPlayer1->ScreenHandle); //FFPlayer1->ScreenHandle = NULL; } reMsg->Lines->Add("End..."); break; } } //--------------------------------------------------------------------------- void __fastcall TFrmVmsRemoteCtrl::FFPlayer1OpenFailed(TObject *Sender) { //ErrorMsg("웹카메라에 연결할 수 없습니다."); //WebCamStop(); } //--------------------------------------------------------------------------- void __fastcall TFrmVmsRemoteCtrl::ChkFullScreenClick(TObject *Sender) { FFPlayer1->AspectRatio = ChkFullScreen->Checked ? -1 : 0; } //--------------------------------------------------------------------------- void __fastcall TFrmVmsRemoteCtrl::BtnSearchClick(TObject *Sender) { VmsCtlrManager->LoadStatusFromDb(); VmsCtlrManager->LoadParaFromDb(); RefreshStatusInfo(); EdFocus->SetFocus(); } //--------------------------------------------------------------------------- void __fastcall TFrmVmsRemoteCtrl::BtnAllSelectClick(TObject *Sender) { TcxButton *pBtn = (TcxButton*)Sender; CMM_CheckAllListItem(TvList, ColumnSel->Index, pBtn->Tag); } //--------------------------------------------------------------------------- void __fastcall TFrmVmsRemoteCtrl::ColRPRS_STTSCustomDrawCell(TcxCustomGridTableView *Sender, TcxCanvas *ACanvas, TcxGridTableDataCellViewInfo *AViewInfo, bool &ADone) { try { TColor tColor; String sStatus = AViewInfo->GridRecord->DisplayTexts[AViewInfo->Item->Index]; tColor = ACanvas->Brush->Color; if (sStatus.Pos("알수")) tColor = clGray; else if (sStatus.Pos("일수")) tColor = clGray; else if (sStatus.Pos("이상")) tColor = clRed; else if (sStatus.Pos("오류")) tColor = clRed; else if (sStatus.Pos("불량")) tColor = clRed; else if (sStatus.Pos("비정상")) tColor = clRed; else if (sStatus.Pos("장애")) tColor = clRed; else if (sStatus.Pos("켜짐")) tColor = clYellow; else if (sStatus.Pos("열림")) tColor = clRed; else if (sStatus.Pos("동작")) tColor = clYellow; else if (sStatus.Pos("가동")) tColor = clYellow; else tColor = clLime; // 정상 ACanvas->SetBrushColor(tColor); ACanvas->Font->Color = clBlack; /*if (AViewInfo->GridRecord->Selected) { ACanvas->Font->Color = clBlack; }*/ } catch(Exception &e) { } } //--------------------------------------------------------------------------- void __fastcall TFrmVmsRemoteCtrl::CbDFLT_SCNR_RUN_TMClick(TObject *Sender) { BtnDfltScnrRunTm->SetFocus(); } //---------------------------------------------------------------------------