//--------------------------------------------------------------------------- #include #include "AppGlobalF.h" #include "ITSSkinF.h" #include "ITSUtilF.h" #include "ITSLangTransF.h" #pragma hdrstop #include "CTV0500MF.h" //--------------------------------------------------------------------------- #pragma package(smart_init) #pragma link "FRAME_CctvStateListF" #pragma link "cxButtons" #pragma link "cxCalc" #pragma link "cxCheckBox" #pragma link "cxClasses" #pragma link "cxContainer" #pragma link "cxControls" #pragma link "cxCustomData" #pragma link "cxData" #pragma link "cxDataStorage" #pragma link "cxEdit" #pragma link "cxFilter" #pragma link "cxGraphics" #pragma link "cxGrid" #pragma link "cxGridBandedTableView" #pragma link "cxGridCustomTableView" #pragma link "cxGridCustomView" #pragma link "cxGridLevel" #pragma link "cxGridTableView" #pragma link "cxGroupBox" #pragma link "cxLabel" #pragma link "cxLookAndFeelPainters" #pragma link "cxLookAndFeels" #pragma link "cxMaskEdit" #pragma link "cxPC" #pragma link "cxPCdxBarPopupMenu" #pragma link "cxSpinEdit" #pragma link "cxStyles" #pragma link "cxTextEdit" #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 "FRAME_CctvStateListF" #pragma link "IdBaseComponent" #pragma link "IdComponent" #pragma link "IdIcmpClient" #pragma link "IdRawBase" #pragma link "IdRawClient" #pragma link "ImageBtn" #pragma link "NVSVIEWERCTRLLib_OCX" #pragma resource "*.dfm" TCTV0500M *CTV0500M = NULL; //{* Information Bar *} #define CAP_CAMERA_NAME 0x01 #define CAP_TIME 0x02 #define CAP_CHANNEL 0x04 #define CAP_SIZE 0x08 #define CAP_EVENT 0x10 #define CAP_FPSCHANGED 0x20 //{* Pan/tilt/Zoom and Transparent controls *} #define CTL_FOCUS_CONT 0x2001 #define CTL_PTZ_CONT 0x2002 #define CTL_TRANSPARENT 0x7000 #define CTL_TRANSPARENT_RS232 0x7001 //{* OCXState for NVSMPEG4OCX *} #define GRAPH_NONE 0x00000000 #define GRAPH_PREVIEW 0x00000001 #define GRAPH_CAPTURE 0x00000002 #define GRAPH_PREVIEWCAPTURE 0x00000003 #define GRAPH_AUDIO_LISTEN 0x00000100 #define GRAPH_AUDIO_CAPTURE 0x00000200 #define GRAPH_AUDIO_LISTENCAPTURE 0x00000400 #define GRAPH_STATE_RUNNING 0x80000000 #define SB_PAN_LEFT 0x000000C4 #define SB_PAN_RIGHT 0x0000003C #define SB_TILT_UP 0x00003C00 #define SB_TILT_DOWN 0x0000C400 #define SB_ZOOM_IN 0x003C0000 #define SB_ZOOM_OUT 0x00C40000 #define SB_FOCUS_IN 0x3C #define SB_FOCUS_OUT 0xC4 enum { E_MJPG=0, E_MP4S, E_DX50, E_MPEG2, E_MPEG1, E_H264 }; enum { BR_32K=0, BR_64K, BR_128K, BR_256K, BR_384K, BR_500K, BR_750K, BR_1M, BR_1_5M, BR_2M, BR_4M, BR_5M, BR_6M, BR_7M, BR_8M }; enum { S_1080P=0, S_720P, S_D1, S_4CIF, S_VGA, S_HD1, S_H4CIF, S_HVGA, S_CIF, S_QVGA, S_QCIF, S_QQVGA }; #define PRESET_SET 0x1020 // Unsigned 1 byte #define PRESET_MOVE 0x1021 // Unsigned 1 byte #define PRESET_CLEAR 0x1022 // Unsigned 1 byte //--------------------------------------------------------------------------- __fastcall TCTV0500M::TCTV0500M(TComponent* Owner) : TForm(Owner) { //::CoInitialize(NULL); LangTrans->Translate(this, ITSDb_GetConnection()); ITSSkin_Load(this); LoadLocalSkin(); //CMM_LoadForm(g_sFormsDir, this); FSelCtlr = NULL; FRAMECctvStateList1->PnlTop->Visible = false; FRAMECctvStateList1->PnlBottom->Visible = false; FRAMECctvStateList1->TvList->OptionsView->Footer = false; FRAMECctvStateList1->Col04->Visible = false; FRAMECctvStateList1->Col05->Visible = false; FRAMECctvStateList1->Col06->Visible = true; FRAMECctvStateList1->ColumnSel->Visible = false; PgControl->ActivePageIndex = 0; FCctvIds = new TStringList(); FTitle = Caption; //TabPreset->Visible = false; //TabPreset->TabVisible = false; PgCam->Properties->HideTabs = true; PnlCamera->ParentColor = false; FTmrShow = true; } //--------------------------------------------------------------------------- void __fastcall TCTV0500M::CommClose() { try { SAFE_DELETE(FCctvIds); //CMM_SaveForm(g_sFormsDir, this); CloseWebCamera(); //::CoUninitialize(); } catch(...) { } } //--------------------------------------------------------------------------- void __fastcall TCTV0500M::FormShow(TObject *Sender) { Refresh(); TmrShow->Enabled = FTmrShow; } //--------------------------------------------------------------------------- void __fastcall TCTV0500M::FormActivate(TObject *Sender) { ActivateForm(true); } //--------------------------------------------------------------------------- void __fastcall TCTV0500M::FormDeactivate(TObject *Sender) { ActivateForm(false); } //--------------------------------------------------------------------------- void __fastcall TCTV0500M::LoadLocalSkin() { PnlCamera->ParentColor = false; PnlCamera->Color = clBlack; NVSViewerCtrl1->Visible = false; Refresh(); } //--------------------------------------------------------------------------- void __fastcall TCTV0500M::TmrShowTimer(TObject *Sender) { TmrShow->Enabled = false; FRAMECctvStateList1->UpdateList(); FRAMECctvStateList1->CxList->Enabled = false; UpdatePingList(); FRAMECctvStateList1->CxList->Enabled = true; } //--------------------------------------------------------------------------- void __fastcall TCTV0500M::FormClose(TObject *Sender, TCloseAction &Action) { try { CommClose(); CTV0500M = NULL; Action = caFree; } catch(...) {} } //--------------------------------------------------------------------------- void __fastcall TCTV0500M::OnMainFormMessage(TMessage &Msg) { } //--------------------------------------------------------------------------- void __fastcall TCTV0500M::OnCctvStateRefreshMessage(TMessage &Msg) { FRAMECctvStateList1->RefreshStatus(); RefreshPingList(); } //--------------------------------------------------------------------------- void __fastcall TCTV0500M::ActivateForm(bool AActivate) { if (AActivate) FRAMECctvStateList1->RefreshStatus(); } //--------------------------------------------------------------------------- void __fastcall TCTV0500M::DisplayInfo() { ClearPreset(); FSelCtlr = NULL; PnlCctv->Caption = " " + lblSelCctv->Caption + " -";//" Select CCTV: -"; TcxGridBandedTableView *TvList = FRAMECctvStateList1->TvList; TcxDataController *pGDC = TvList->DataController; int nSelIdx = CMM_GetRecordIndex(TvList); if (nSelIdx < 0) return; String CTLR_NMBR = VarToStr(pGDC->Values[nSelIdx][FRAMECctvStateList1->Col01->Index]); int nMemPtr = (int)pGDC->Values[nSelIdx][FRAMECctvStateList1->Col99->Index]; FSelCtlr = (TCctvCtlr*)nMemPtr; if (!FSelCtlr) return; PnlCctv->Caption = " " + lblSelCctv->Caption + " [" + FSelCtlr->CCTV_CTLR_ID + "] " + FSelCtlr->CCTV_NM; try { } catch(Exception &e) { } try { OpenWebCamera(); } catch(Exception &e) { } InitPreset(); BtnWebCamUrl->Enabled = true; } //--------------------------------------------------------------------------- void __fastcall TCTV0500M::BtnAllSelectClick(TObject *Sender) { TcxButton *pBtn = (TcxButton*)Sender; if (PgControl->Properties->ActivePage != TabPing) CMM_CheckAllListItem(FRAMECctvStateList1->TvList, FRAMECctvStateList1->ColumnSel->Index, pBtn->Tag); else CMM_CheckAllListItem(TvPing, ColumnSel->Index, pBtn->Tag); } //--------------------------------------------------------------------------- void __fastcall TCTV0500M::ClearCheckList() { #if 0 TcxGridBandedTableView *TvList = FRAMECctvStateList1->TvList; TcxDataController *pGDC = TvList->DataController; try { TvList->BeginUpdate(); pGDC->BeginUpdate(); int nRows = pGDC->RecordCount; for (int ii = 0; ii < nRows; ii++) { pGDC->Values[ii][FRAMECctvStateList1->ColumnSel->Index] = false; } } __finally { pGDC->EndUpdate(); TvList->EndUpdate(); } #endif } //--------------------------------------------------------------------------- void __fastcall TCTV0500M::FRAMECctvStateList1TvListCellDblClick(TcxCustomGridTableView *Sender, TcxGridTableDataCellViewInfo *ACellViewInfo, TMouseButton AButton, TShiftState AShift, bool &AHandled) { if (!ACellViewInfo) return; ClearCheckList(); TcxGridBandedTableView *TvList = FRAMECctvStateList1->TvList; TcxDataController *pGDC = TvList->DataController; int nSelIdx = CMM_GetRecordIndex(TvList); if (nSelIdx < 0) return; pGDC->Values[nSelIdx][FRAMECctvStateList1->ColumnSel->Index] = true; DisplayInfo(); } //--------------------------------------------------------------------------- int __fastcall TCTV0500M::GetSelListItems(bool ACommCheck/*=true*/) { TcxGridBandedTableView *TvList = FRAMECctvStateList1->TvList; TcxDataController *pGDC = TvList->DataController; FCctvIds->Clear(); 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[FRAMECctvStateList1->Col99->Index]; TCctvCtlr *pCctv = (TCctvCtlr*)nMemPtr; if (!pCctv) continue; bSelected = (bool)ARow->Values[FRAMECctvStateList1->ColumnSel->Index]; if (bSelected) { String CTLR_NMBR = ARow->Values[FRAMECctvStateList1->Col01->Index]; if (ACommCheck) { if (pCctv->RSTATE.Comm == cctv_normal) { FCctvIds->Add(CTLR_NMBR); } } else { FCctvIds->Add(CTLR_NMBR); } } } } __finally { TvList->EndUpdate(); } return FCctvIds->Count; } //--------------------------------------------------------------------------- void __fastcall TCTV0500M::BtnWebCamUrlClick(TObject *Sender) { if (FSelCtlr) { if (FSelCtlr->CCTV_CTLR_IP.Trim() != "") { String sUrl = "http://" + FSelCtlr->CCTV_CTLR_IP.Trim(); ShellExecute(NULL, NULL, sUrl.c_str(), NULL, NULL, 0); } } } //--------------------------------------------------------------------------- void __fastcall TCTV0500M::PgControlPageChanging(TObject *Sender, TcxTabSheet *NewPage, bool &AllowChange) { if (NewPage == TabPing) { BtnAllSelect->Visible = false; BtnAllClear->Visible = false; BtnReverse->Visible = false; } else { #if 0 if (BtnAllSelect->Visible == false) BtnAllSelect->Visible = true;; if (BtnAllClear->Visible == false) BtnAllClear->Visible = true;; if (BtnReverse->Visible == false) BtnReverse->Visible = true;; #endif } } //--------------------------------------------------------------------------- void __fastcall TCTV0500M::UpdatePingList() { CMM_ClearGridTableView(TvPing); int ii, jj; int nCols = 0; TcxDataController *pGDC = TvPing->DataController; CctvCtlrManager->FLists.Lock(); try { int nRow; TvPing->BeginUpdate(); pGDC->BeginUpdate(); FOR_STL(TCctvCtlr*, pObj, CctvCtlrManager->FLists) { if (pObj->DEL_YN == "Y") continue; nRow = pGDC->AppendRecord(); if (pObj->RSTATE.Comm == cctv_normal) pGDC->Values[nRow][ColumnSel->Index] = false; else pGDC->Values[nRow][ColumnSel->Index] = true; pGDC->Values[nRow][Col01->Index] = String(pObj->CCTV_CTLR_NMBR); pGDC->Values[nRow][Col02->Index] = pObj->CCTV_CTLR_ID; pGDC->Values[nRow][Col03->Index] = pObj->CCTV_NM; pGDC->Values[nRow][Col04->Index] = pObj->RSTATE.Comm == cctv_normal ? FrmLang->lblState0->Caption : FrmLang->lblState1->Caption; pGDC->Values[nRow][Col05->Index] = pObj->CCTV_CTLR_IP; pGDC->Values[nRow][Col06->Index] = "-"; pGDC->Values[nRow][Col07->Index] = "-"; pGDC->Values[nRow][Col08->Index] = "-"; pGDC->Values[nRow][Col09->Index] = pObj->CCTV_CTLR_IP; pGDC->Values[nRow][Col10->Index] = "-"; pGDC->Values[nRow][Col11->Index] = "-"; pGDC->Values[nRow][Col12->Index] = "-"; pGDC->Values[nRow][Col99->Index] = (int)pObj; } } __finally { CctvCtlrManager->FLists.UnLock(); pGDC->EndUpdate(); TvPing->EndUpdate(); } } //--------------------------------------------------------------------------- void __fastcall TCTV0500M::RefreshPingList(bool AInit/*=false*/) { TcxDataController *pGDC = TvPing->DataController; try { TvPing->BeginUpdate(); pGDC->BeginUpdate(); int nRows = pGDC->RecordCount; for(int nRow = 0; nRow < nRows; nRow++) { int nMemPtr = TvPing->DataController->Values[nRow][Col99->Index]; TCctvCtlr *pObj = (TCctvCtlr*)nMemPtr; if (!pObj) continue; if (AInit == false && PgControl->Properties->ActivePage != TabPing) { if (pObj->RSTATE.Comm == cctv_normal) pGDC->Values[nRow][ColumnSel->Index] = false; else pGDC->Values[nRow][ColumnSel->Index] = true; } if (AInit) { pGDC->Values[nRow][Col06->Index] = "-"; pGDC->Values[nRow][Col07->Index] = "-"; pGDC->Values[nRow][Col08->Index] = "-"; pGDC->Values[nRow][Col10->Index] = "-"; pGDC->Values[nRow][Col11->Index] = "-"; pGDC->Values[nRow][Col12->Index] = "-"; } pGDC->Values[nRow][Col04->Index] = pObj->RSTATE.Comm == cctv_normal ? FrmLang->lblState0->Caption : FrmLang->lblState1->Caption; } } __finally { pGDC->EndUpdate(); TvPing->EndUpdate(); } } //--------------------------------------------------------------------------- void __fastcall TCTV0500M::PingNetwork(String AIp, int APort) { try { IdIcmpClient1->Host = AIp; IdIcmpClient1->Port = EdPingPort->Value/*512*/; IdIcmpClient1->ReceiveTimeout = EdPingTimeout->Value; IdIcmpClient1->Ping(IdIcmpClient1->Host, IdIcmpClient1->Port); } catch (Exception &e) { Application->ShowException(&e); } catch(...) { ShowMessage("Ping error[Unknown]"); } } //--------------------------------------------------------------------------- void __fastcall TCTV0500M::BtnNwkPingClick(TObject *Sender) { TWaitCursor waitCrs; TcxDataController *pGDC = TvPing->DataController; int nRows = pGDC->RecordCount; String sMsg; int nSelCnt = CMM_GetCheckCount(TvPing, ColumnSel->Index); if (0 == nSelCnt) { sMsg = cxLabel14->Caption;//"CCTV가 선택되지 않았습니다.\r\nCCTV 목록에서 CCTV를 선택하십시요."; Application->MessageBox(sMsg.c_str(), L"CCTV Network Ping Test", MB_OK|MB_ICONERROR|MB_APPLMODAL); CxPing->SetFocus(); return; } RefreshPingList(true); PnlPing->Enabled = false; String sSvrIp; int nSvrPort; bool bPing; for (int ii = 0; ii < nRows; ii++) { bPing = pGDC->Values[ii][ColumnSel->Index]; if (!bPing) continue; //pGDC->Values[ii][ColPingMon->Index] = Now().FormatString("yyyy-mm-dd hh:mm:ss"); FPingType = 1; sSvrIp = pGDC->Values[ii][Col05->Index]; if (sSvrIp == NULL || sSvrIp.IsEmpty()) { continue; } pGDC->Values[ii][Col06->Index] = "?"; pGDC->Values[ii][Col07->Index] = "?"; pGDC->Values[ii][Col08->Index] = "?"; nSvrPort = 0; FPingTimeout = false; PingNetwork(sSvrIp.Trim(), nSvrPort); if (FPingTimeout) { pGDC->Values[ii][Col08->Index] = "Time out"; } Application->ProcessMessages(); FPingType = 2; sSvrIp = pGDC->Values[ii][Col09->Index]; if (sSvrIp == NULL || sSvrIp.IsEmpty()) { continue; } pGDC->Values[ii][Col10->Index] = "?"; pGDC->Values[ii][Col11->Index] = "?"; pGDC->Values[ii][Col12->Index] = "?"; nSvrPort = 0; FPingTimeout = false; PingNetwork(sSvrIp.Trim(), nSvrPort); if (FPingTimeout) { pGDC->Values[ii][Col12->Index] = "Time out"; } Application->ProcessMessages(); } PnlPing->Enabled = true; } //--------------------------------------------------------------------------- void __fastcall TCTV0500M::BtnNwkPingClearClick(TObject *Sender) { RefreshPingList(true); } //--------------------------------------------------------------------------- void __fastcall TCTV0500M::Col04CustomDrawCell(TcxCustomGridTableView *Sender, TcxCanvas *ACanvas, TcxGridTableDataCellViewInfo *AViewInfo, bool &ADone) { try { TColor tColor; String sStatus = AViewInfo->GridRecord->DisplayTexts[AViewInfo->Item->Index]; tColor = ACanvas->Brush->Color; #if 0 if (sStatus.Pos("-")) tColor = clGray; 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; #else if (sStatus.Pos("-")) tColor = clGray; else if (sStatus.Pos(FrmLang->lblState1->Caption.Trim())) tColor = clRed; else if (sStatus.Pos(FrmLang->lblPOWER0->Caption.Trim())) tColor = clYellow; else if (sStatus.Pos(FrmLang->lblCDS1->Caption.Trim())) tColor = clRed; else if (sStatus.Pos(FrmLang->lblFAN0->Caption.Trim())) tColor = clYellow; //else if (sStatus.Pos(frmLang->lblHEAT0->Caption.Trim())) tColor = clYellow; else tColor = clLime; #endif ACanvas->SetBrushColor(tColor); ACanvas->Font->Color = clBlack; /*if (AViewInfo->GridRecord->Selected) { ACanvas->Font->Color = clBlack; }*/ } catch(Exception &e) { } } //--------------------------------------------------------------------------- void __fastcall TCTV0500M::IdIcmpClient1Reply(TComponent *ASender, const TReplyStatus *AReplyStatus) { try { String sRcvIp = AReplyStatus->FromIpAddress; int nRcvPort= IdIcmpClient1->Port; if (rsTimeOut == AReplyStatus->ReplyStatusType || sRcvIp == "0.0.0.0") { FPingTimeout = true; return; } TcxDataController *pGDC = TvPing->DataController; int nRows = pGDC->RecordCount; String sSvrIp; for (int ii = 0; ii < nRows; ii++) { if (FPingType == 1) sSvrIp = pGDC->Values[ii][Col05->Index]; else sSvrIp = pGDC->Values[ii][Col09->Index]; int nSvrPort = 0; if (sSvrIp.Trim() == sRcvIp && nRcvPort == nSvrPort) { if (FPingType == 1) { if (AReplyStatus->MsRoundTripTime > 100) { pGDC->Values[ii][Col08->Index] = "Delayed"; } else { pGDC->Values[ii][Col08->Index] = "Normal"; } pGDC->Values[ii][Col06->Index] = String(AReplyStatus->MsRoundTripTime) + " "; pGDC->Values[ii][Col07->Index] = String(AReplyStatus->TimeToLive) + " "; } else { if (AReplyStatus->MsRoundTripTime > 100) { pGDC->Values[ii][Col12->Index] = "Delayed"; } else { pGDC->Values[ii][Col12->Index] = "Normal"; } pGDC->Values[ii][Col10->Index] = String(AReplyStatus->MsRoundTripTime) + " "; pGDC->Values[ii][Col11->Index] = String(AReplyStatus->TimeToLive) + " "; } break; } } } catch(Exception &e) { } } //--------------------------------------------------------------------------- void __fastcall TCTV0500M::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 TCTV0500M::TvPingCellDblClick(TcxCustomGridTableView *Sender, TcxGridTableDataCellViewInfo *ACellViewInfo, TMouseButton AButton, TShiftState AShift, bool &AHandled) { if (!ACellViewInfo) return; TcxGridDataController *pGDC = TvPing->DataController; int nRow = pGDC->FocusedRecordIndex; if( nRow <= -1 ) return; if (ACellViewInfo->Item->Index == Col05->Index || ACellViewInfo->Item->Index == Col09->Index) { String sSvrIp = pGDC->Values[nRow][ACellViewInfo->Item->Index]; ITSUtil_NetworkPing(sSvrIp); } } //--------------------------------------------------------------------------- bool __fastcall TCTV0500M::OpenWebCamera() { if (!FSelCtlr) return false; try { NVSViewerCtrl1->IPAddress = FSelCtlr->CCTV_CTLR_IP; NVSViewerCtrl1->Port = FSelCtlr->CCTV_PORT; NVSViewerCtrl1->ID = FSelCtlr->CCTV_ID; NVSViewerCtrl1->Password = FSelCtlr->CCTV_PSWD; NVSViewerCtrl1->EnableInternalCodec = true; NVSViewerCtrl1->EnableAudio = false; NVSViewerCtrl1->SelectChannel(FSelCtlr->CCTV_CHNL); #if 0 NVSViewerCtrl1->PutAddress((LPCTSTR)FSelCtlr->CCTV_CTLR_IP.c_str(), FSelCtlr->CCTV_PORT, "" ); NVSViewerCtrl1->PutAccount((LPCTSTR)FSelCtlr->CCTV_ID.c_str(), (LPCTSTR)FSelCtlr->CCTV_PSWD.c_str()); NVSViewerCtrl1->SetEnableInternalCodec(TRUE); NVSViewerCtrl1->SetEnableAudio(FALSE); NVSViewerCtrl1->SelectChannel(FSelCtlr->CCTV_CHNL); #endif if (NVSViewerCtrl1->Preview()) { BtnSaveImgFile->Enabled = true; return true; } BtnSaveImgFile->Enabled = false; } catch(...) { } return false; } //--------------------------------------------------------------------------- void __fastcall TCTV0500M::CloseWebCamera() { try { NVSViewerCtrl1->Stop(); } catch(...) { } } //--------------------------------------------------------------------------- void __fastcall TCTV0500M::BtnZoomInOutMouseDown(TObject *Sender, TMouseButton Button, TShiftState Shift, int X, int Y) { try { TImageBtn *pBtn = (TImageBtn*)Sender; if (pBtn->Tag == 0) { NVSViewerCtrl1->PutCamCtl(CTL_PTZ_CONT, SB_ZOOM_IN, 3); } else { NVSViewerCtrl1->PutCamCtl(CTL_PTZ_CONT, SB_ZOOM_OUT, 3); } } catch(...) {} } //--------------------------------------------------------------------------- void __fastcall TCTV0500M::BtnZoomInOutMouseUp(TObject *Sender, TMouseButton Button, TShiftState Shift, int X, int Y) { try { TImageBtn *pBtn = (TImageBtn*)Sender; NVSViewerCtrl1->PutCamCtl(CTL_PTZ_CONT, 0x000000, 3); } catch(...) {} } //--------------------------------------------------------------------------- void __fastcall TCTV0500M::BtnFocusInOutMouseDown(TObject *Sender, TMouseButton Button, TShiftState Shift, int X, int Y) { try { TImageBtn *pBtn = (TImageBtn*)Sender; if (pBtn->Tag == 0) { NVSViewerCtrl1->PutCamCtl(CTL_FOCUS_CONT, SB_FOCUS_IN, 1); } else { NVSViewerCtrl1->PutCamCtl(CTL_FOCUS_CONT, SB_FOCUS_OUT, 1); } } catch(...) {} } //--------------------------------------------------------------------------- void __fastcall TCTV0500M::BtnFocusInOutMouseUp(TObject *Sender, TMouseButton Button, TShiftState Shift, int X, int Y) { try { TImageBtn *pBtn = (TImageBtn*)Sender; NVSViewerCtrl1->PutCamCtl(CTL_FOCUS_CONT, 0x000000, 3); } catch(...) {} } //--------------------------------------------------------------------------- void __fastcall TCTV0500M::BtnPanTileMouseDown(TObject *Sender, TMouseButton Button, TShiftState Shift, int X, int Y) { try { TImageBtn *pBtn = (TImageBtn*)Sender; switch(pBtn->Tag) { case 0: NVSViewerCtrl1->PutCamCtl(CTL_PTZ_CONT, SB_TILT_UP, 3); break; // Up case 1: NVSViewerCtrl1->PutCamCtl(CTL_PTZ_CONT, SB_TILT_DOWN, 3); break; // Down case 2: NVSViewerCtrl1->PutCamCtl(CTL_PTZ_CONT, SB_PAN_LEFT, 3); break; // Left case 3: NVSViewerCtrl1->PutCamCtl(CTL_PTZ_CONT, SB_PAN_RIGHT, 3); break; // Right } } catch(...) {} } //--------------------------------------------------------------------------- void __fastcall TCTV0500M::BtnPanTileMouseUp(TObject *Sender, TMouseButton Button, TShiftState Shift, int X, int Y) { // Zoom In/Out MouseUp Event 와 동일 try { TImageBtn *pBtn = (TImageBtn*)Sender; NVSViewerCtrl1->PutCamCtl(CTL_PTZ_CONT, 0x000000, 3); } catch(...) {} } //--------------------------------------------------------------------------- void __fastcall TCTV0500M::BtnSaveImgFileClick(TObject *Sender) { String sSaveFileName; if (!FSelCtlr || NVSViewerCtrl1->OCXState == GRAPH_NONE) { String sMsg = cxLabel1->Caption; Application->MessageBox(sMsg.c_str(), L"Save Snap Shot", MB_OK|MB_ICONERROR|MB_APPLMODAL); return; } sSaveFileName.printf(L"%s\\%d_%s.bmp", g_sTempDir.c_str(), FSelCtlr->CCTV_CTLR_NMBR, Now().FormatString("yyyymmddhhnnss").c_str()); if (NVSViewerCtrl1->FileSnapShot(sSaveFileName.c_str())) { Application->MessageBox(sSaveFileName.c_str(), L"Save Snap Shot Success", MB_OK|MB_ICONINFORMATION|MB_APPLMODAL); } else { Application->MessageBox(cxLabel2->Caption.c_str(), L"Save Snap Shot Fail", MB_OK|MB_ICONERROR|MB_APPLMODAL); } } //--------------------------------------------------------------------------- void __fastcall TCTV0500M::ClearPreset() { CMM_ClearGridTableView(TvPreset); SePresetNo->Value = 1; EdPresetName->Text = ""; ChkCctvPresetDef->Checked = false; //PnlPreset->Enabled = false; } //--------------------------------------------------------------------------- void __fastcall TCTV0500M::InitPreset() { if (!FSelCtlr) return; ClearPreset(); TcxDataController* pGDC = TvPreset->DataController; TvPreset->BeginUpdate(); try { FSelCtlr->FLists.Lock(); try { FOR_STL(TCctvPset*, pObj, FSelCtlr->FLists) { if (pObj->DEL_YN == "Y") continue; int nRow = pGDC->AppendRecord(); pGDC->Values[nRow][ColPresetNo->Index] = String(pObj->PSET_NMBR); pGDC->Values[nRow][ColPresetName->Index] = pObj->PSET_NM; pGDC->Values[nRow][ColPresetPan->Index] = String(pObj->PAN); pGDC->Values[nRow][ColPresetTilt->Index] = String(pObj->TILT); pGDC->Values[nRow][ColPresetZoom->Index] = String(pObj->ZOOM); pGDC->Values[nRow][ColPresetFocus->Index] = String(pObj->FOCS); pGDC->Values[nRow][ColPresetAngle->Index] = ""; pGDC->Values[nRow][ColPresetDefault->Index] = pObj->DFLT_YN; } } __finally { FSelCtlr->FLists.UnLock(); } } __finally { TvPreset->EndUpdate(); PnlPreset->Enabled = true; BtnCctvPresetDel->Enabled = false; } } //--------------------------------------------------------------------------- void __fastcall TCTV0500M::BtnCctvPresetClick(TObject *Sender) { //프리셋 이동 if (FSelCtlr) { int nPresetNo = SePresetNo->Value; if (NVSViewerCtrl1->PutCamCtl(PRESET_MOVE, nPresetNo, 1)) { } } } //--------------------------------------------------------------------------- void __fastcall TCTV0500M::BtnCctvPresetSetClick(TObject *Sender) { //프리셋 설정 if (FSelCtlr) { int nPresetNo = SePresetNo->Value; String sPresetNm = EdPresetName->Text.Trim(); String sDefault = ChkCctvPresetDef->Checked ? "Y" : "N"; if (sPresetNm == "") { String sMsg; sMsg = cxLabel3->Caption;//"프리셋 명을 입력하세요.."; Application->MessageBox(sMsg.c_str(), cxLabel4->Caption.c_str(), MB_OK|MB_ICONERROR|MB_APPLMODAL); EdPresetName->SetFocus(); } if (NVSViewerCtrl1->PutCamCtl(PRESET_SET, nPresetNo, 1)) { TCctvPset *pSet = FSelCtlr->FLists.Find(nPresetNo); if (!pSet) { pSet = new TCctvPset(); pSet->CCTV_CTLR_NMBR = FSelCtlr->CCTV_CTLR_NMBR; pSet->PSET_NMBR = nPresetNo; FSelCtlr->FLists.Push(pSet->PSET_NMBR, pSet); } pSet->PSET_NM = sPresetNm; pSet->DFLT_YN = sDefault; pSet->DEL_YN = "N"; CctvCtlrManager->SavePreSet(FSelCtlr); InitPreset(); SePresetNo->Value = nPresetNo; EdPresetName->Text = sPresetNm; ChkCctvPresetDef->Checked = sDefault == "Y" ? true : false; BtnCctvPresetDel->Enabled = true; } } } //--------------------------------------------------------------------------- void __fastcall TCTV0500M::BtnCctvPresetDelClick(TObject *Sender) { //프리셋 삭제 if (FSelCtlr) { int nPresetNo = SePresetNo->Value; if (NVSViewerCtrl1->PutCamCtl(PRESET_CLEAR, nPresetNo, 1)) { TCctvPset *pSet = FSelCtlr->FLists.Find(nPresetNo); if (!pSet) { return; } pSet->PSET_NM = ""; pSet->DEL_YN = "Y"; CctvCtlrManager->SavePreSet(FSelCtlr); InitPreset(); } } } //--------------------------------------------------------------------------- void __fastcall TCTV0500M::TvPresetCellDblClick(TcxCustomGridTableView *Sender, TcxGridTableDataCellViewInfo *ACellViewInfo, TMouseButton AButton, TShiftState AShift, bool &AHandled) { if (!ACellViewInfo) return; int nRow = TvPreset->DataController->FocusedRecordIndex; if( nRow <= -1 ) return; String sPresetNo = TvPreset->DataController->Values[nRow][ColPresetNo->Index]; String sPresetNm = TvPreset->DataController->Values[nRow][ColPresetName->Index]; String sDefault = TvPreset->DataController->Values[nRow][ColPresetDefault->Index]; ChkCctvPresetDef->Checked = sDefault == "Y" ? true : false; SePresetNo->Value = sPresetNo.ToIntDef(1); EdPresetName->Text = sPresetNm; BtnCctvPresetDel->Enabled = true; } //--------------------------------------------------------------------------- void __fastcall TCTV0500M::SePresetNoPropertiesEditValueChanged(TObject *Sender) { if (FSelCtlr) { int nPresetNo = SePresetNo->Value; TCctvPset* pSet = FSelCtlr->FLists.Find(nPresetNo); if (pSet) BtnCctvPresetDel->Enabled = true; else BtnCctvPresetDel->Enabled = false; } } //---------------------------------------------------------------------------