//--------------------------------------------------------------------------- #include #pragma hdrstop #include "FrmCctvCtrlF.h" #include "TVS.h" //--------------------------------------------------------------------------- //--------------------------------------------------------------------------- #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 "cxMaskEdit" #pragma link "cxPC" #pragma link "cxPCdxBarPopupMenu" #pragma link "cxSpinEdit" #pragma link "cxTextEdit" #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 "dxSkinCaramel" #pragma link "dxSkinChooserGallery" #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 "dxSkinsdxBarPainter" #pragma link "dxSkinsdxRibbonPainter" #pragma link "dxSkinSeven" #pragma link "dxSkinsForm" #pragma link "dxSkinSharp" #pragma link "dxSkinSilver" #pragma link "dxSkinStardust" #pragma link "dxStatusBar" #pragma link "dxTabbedMDI" #pragma link "IdAntiFreeze" #pragma link "IdAntiFreezeBase" #pragma link "IdBaseComponent" #pragma link "cxButtons" #pragma link "cxGroupBox" #pragma link "ImageBtn" #pragma link "TVSLib_OCX" #pragma link "cxDropDownEdit" #pragma resource "*.dfm" TFrmCctvCtrl *FrmCctvCtrl = NULL; //--------------------------------------------------------------------------- __fastcall TFrmCctvCtrl::TFrmCctvCtrl(TComponent* Owner) : TForm(Owner)//TdxCustomRibbonForm(Owner)//TForm(Owner) { //DoubleBuffered = true; Application->OnException = OnAppException; reMsg->Lines->Clear(); m_lCurChID = 0; ::CoInitialize(NULL); } //--------------------------------------------------------------------------- void __fastcall TFrmCctvCtrl::FormCreate(TObject *Sender) { /* 레지스터리 등록 IE 최신버전 */ String sExeName = ExtractFileName(Application->ExeName); UpdateExplorerEmulatorVersion(sExeName); Application->ShowMainForm = false; try { Application->Icon->LoadFromResourceName(((unsigned int)HInstance), "MAINICON"); } catch(...) { ShowMessage("LoadFromResourceName failed"); } Application->ShowMainForm = true; Application->OnHint = OnAppHint; } //--------------------------------------------------------------------------- void __fastcall TFrmCctvCtrl::reMsgDblClick(TObject *Sender) { reMsg->Lines->Clear(); } //--------------------------------------------------------------------------- #include bool __fastcall TFrmCctvCtrl::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->CloseKey(); reg->Free(); return true; } //--------------------------------------------------------------------------- void __fastcall TFrmCctvCtrl::FormShow(TObject *Sender) { Refresh(); Application->ProcessMessages(); VARIANT var; VariantInit(&var); var.vt = VT_I4; var.lVal = 1;// / MAX_INSTANCE; TVSLiveControl1->set_LocalConfig(TN_LCI_MAX_DISPLAY_CHANNEL, var); var = TVSLiveControl1->get_LocalConfig(TN_LCI_OSD_MODE); var.lVal = TN_OSD_MODE_D3D;//GDI TVSLiveControl1->set_LocalConfig(TN_LCI_OSD_MODE, var); var = TVSLiveControl1->get_LocalConfig(TN_LCI_MAX_DISPLAY_CHANNEL); m_pDisp = TVSLiveControl1->GetDisplay(); m_pDisp->set_LayoutMode(0, TN_LM_4X4); //VARIANT var; var.vt = VT_I4; var.lVal = 4; //m_dlgVideo[m_nLastSelInst].m_tvsLive.SetLocalConfig(TN_LCI_BUFFER_FRAMES, var); TVSLiveControl1->set_LocalConfig(TN_LCI_BUFFER_FRAMES, var); TVSLiveControl1->set_LocalConfig(TN_LCI_DISPLAY_GRID_ON, var); TVSLiveControl1->set_LocalConfig(TN_LCI_DISPLAY_GRID_COLOR, var); TVSLiveControl1->set_LocalConfig(TN_LCI_DISPLAY_GRID_WIDTH, var); TmrOnShow->Enabled = true; } //--------------------------------------------------------------------------- void __fastcall TFrmCctvCtrl::TmrOnShowTimer(TObject *Sender) { Refresh(); TmrOnShow->Enabled = false; Application->ProcessMessages(); } //--------------------------------------------------------------------------- void __fastcall TFrmCctvCtrl::FormClose(TObject *Sender, TCloseAction &Action) { CommClose(); Action = caFree; } //--------------------------------------------------------------------------- void __fastcall TFrmCctvCtrl::CommClose() { try { Disconnect(); ::CoUninitialize(); } catch(...) { } } //--------------------------------------------------------------------------- void __fastcall TFrmCctvCtrl::OnAppHint(TObject *Sender) { } //--------------------------------------------------------------------------- void __fastcall TFrmCctvCtrl::OnAppException(TObject *Sender, Exception *exception) { 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); Application->NormalizeTopMosts(); Application->MessageBox(sError.c_str(), L"System Error", MB_OK|MB_ICONERROR|MB_APPLMODAL); Application->RestoreTopMosts(); } //--------------------------------------------------------------------------- void __fastcall TFrmCctvCtrl::ApplicationEvents1SettingChange(TObject *Sender, int Flag, const UnicodeString Section, int &Result) { DateSeparator = '-'; TimeSeparator = ':'; ShortDateFormat = "yyyy-MM-dd"; ShortTimeFormat = "HH:NN:SS"; LongTimeFormat = "HH:NN:SS"; cxFormatController()->BeginUpdate(); cxFormatController()->UseDelphiDateTimeFormats = true; cxFormatController()->EndUpdate(); cxFormatController()->GetFormats(); cxFormatController()->NotifyListeners(); } //--------------------------------------------------------------------------- bool __fastcall TFrmCctvCtrl::Connect() { if (m_lCurChID <= 0) { int nProtocol = 0; bool bHD = false; // High Definition bool bAudio = false; String sAddress = ""; String sAudio = ""; String sVideo = ""; String sStream = ""; m_IpAddr = EdIp->Text.Trim(); m_Port = EdPort->Text.Trim(); m_nChannel = CbChannel->ItemIndex + 1; m_nStream = CbStream->ItemIndex; m_UserId = EdUserId->Text.Trim(); m_UserPswd = EdUserPswd->Text.Trim(); if (bAudio) sAudio = "+audio" + String(m_nChannel); sStream = (m_nStream == 1) ? "s" : ""; // secondary == s, primary == null sVideo = "video" + String(m_nChannel) + sStream; //"vsnm://210.99.141.193:2323/video1s+audio1"; if (nProtocol == 0) // tcp sAddress = "vsnm://" + m_IpAddr + ":" + m_Port + "//" + sVideo + sAudio; else if (nProtocol == 1) // multicate sAddress = "vsnm-multicast://" + m_IpAddr + ":" + m_Port + "//" + sVideo + sAudio; else // udp sAddress = "vsnm-udp://" + m_IpAddr + ":" + m_Port + "//" + sVideo + sAudio; VARIANT var; VariantInit(&var); var.vt = VT_I4; var.lVal = bHD ? 1 : 0; TVSLiveControl1->set_LocalConfig(TN_LCI_MAX_HD_CHANNEL, var); m_lCurChID = TVSLiveControl1->Connect(sAddress.c_str(), m_UserId.c_str(), m_UserPswd.c_str()); if (m_lCurChID <= 0) { reMsg->Lines->Add("Connection error(" + String(m_lCurChID) + ")"); return false; } m_pDisp->set_MapChannel(0, 0, m_lCurChID); VARIANT_BOOL vb; vb = true; TVSLiveControl1->set_AutoReconnect(m_lCurChID, vb); TVSLiveControl1->set_VideoOn(m_lCurChID, true); TVSLiveControl1->Play(m_lCurChID); //TVSLiveControl1->Pause(m_lCurChID); m_pDisp->set_ShowToolbar(1, 0); m_pDisp->set_OsdBackColor(0, 0); PnlCamConrtol->Enabled = true; } return true; } //--------------------------------------------------------------------------- void __fastcall TFrmCctvCtrl::Disconnect() { if (m_lCurChID > 0) { if (TVSLiveControl1->get_ChannelState(m_lCurChID) & TN_CS_CONNECTED) { TVSLiveControl1->Disconnect(m_lCurChID); } m_lCurChID = 0; BtnCamera->Caption = "영상 연결"; BtnCamera->Tag = 0; } } //--------------------------------------------------------------------------- void __fastcall TFrmCctvCtrl::TVSLiveControl1ChannelNotify(TObject *Sender, long lChID, long eNewState, long eReason) { if (eNewState & TN_CS_CONNECTED) { reMsg->Lines->Add("ChannelNotify(TN_CS_CONNECTED)"); } else { if (eReason < 10) { reMsg->Lines->Add("ChannelNotify(NOT CONNECTED:reason=" + String(eReason)); } else { switch (eReason) { case TN_SNC_CN_SERVER_UNREACHABLE: reMsg->Lines->Add("ChannelNotify(NOT CONNECTED:Server is unreachable for connection)"); //m_pdlgMain->Pause(); break; case TN_SNC_CN_TOO_MANY_CONNECTION: reMsg->Lines->Add("ChannelNotify(NOT CONNECTED:Too many connections on the server)"); break; case TN_SNC_CN_PASSWORD_MISMATCH: reMsg->Lines->Add("ChannelNotify(NOT CONNECTED:Password is incorrect)"); break; case TN_SNC_CN_CONNECTION_DISABLED: reMsg->Lines->Add("ChannelNotify(NOT CONNECTED:Server disabled the connection)"); break; case TN_SNC_CN_ID_NOT_EXIST: reMsg->Lines->Add("ChannelNotify(NOT CONNECTED:Login ID doesn't exist)"); break; case TN_SNC_CN_DOMAINNAME_UNKNOWN: reMsg->Lines->Add("ChannelNotify(NOT CONNECTED:Can't resolve the domain name)"); break; /* case TN_SNC_CN_PARAMETER_OUTOFRANGE: reMsg->Lines->Add("ChannelNotify(NOT CONNECTED:Invalid channels is one of this case)"); break; */ case TN_SNC_CN_DUPLICATE_CONNECT: reMsg->Lines->Add("ChannelNotify(NOT CONNECTED:Multiple connections to a channel are not allowed)"); break; case TN_SNC_CN_KEEPALIVE_FAILED: reMsg->Lines->Add("ChannelNotify(NOT CONNECTED:Disconnected due to keep alive timeout)"); //m_pdlgMain->Pause(); break; case TN_SNC_CN_NO_AUTHORITY_OPERATION: reMsg->Lines->Add("ChannelNotify(NOT CONNECTED:No authority operation)"); break; case TN_SNC_CN_OPERATION_FAILED: reMsg->Lines->Add("ChannelNotify(NOT CONNECTED:General failure)"); break; } Disconnect(); } } if (eNewState & TN_CS_STREAMED) { reMsg->Lines->Add("ChannelNotify(TN_CS_STREAMED)"); } if (eNewState & TN_CS_DECODED) { reMsg->Lines->Add("ChannelNotify(TN_CS_DECODED)"); } if (eNewState & TN_CS_DISPLAYED) { reMsg->Lines->Add("ChannelNotify(TN_CS_DISPLAYED)"); } if (eNewState & TN_CS_RECORDED) { reMsg->Lines->Add("ChannelNotify(TN_CS_RECORDED)"); } } //--------------------------------------------------------------------------- void __fastcall TFrmCctvCtrl::TVSLiveControl1ServerEvent(TObject *Sender, long lChID, long eEventType, short nIndex, long eEventStatus, Variant vData) { switch (eEventType) { case TN_ET_DI: reMsg->Lines->Add("ServerEvent([%" + String(nIndex) + "] TN_ET_DI=" + String(eEventStatus) + ")"); break; case TN_ET_VIDEOLOSS: reMsg->Lines->Add("ServerEvent([%" + String(nIndex) + "] TN_ET_VIDEOLOSS=" + String(eEventStatus) + ")"); break; case TN_ET_MOTION: //reMsg->Lines->Add("ServerEvent([%" + String(nIndex) + "] TN_ET_MOTION=" + String(eEventStatus) + ")"); break; case TN_ET_TIMECHANGED: reMsg->Lines->Add("ServerEvent([%" + String(nIndex) + "] TN_ET_TIMECHANGED=" + String(eEventStatus) + ")"); break; case TN_ET_DO: reMsg->Lines->Add("ServerEvent([%" + String(nIndex) + "] TN_ET_DO=" + String(eEventStatus) + ")"); break; case TN_ET_RECORD: reMsg->Lines->Add("ServerEvent([%" + String(nIndex) + "] TN_ET_RECORD=" + String(eEventStatus) + ")"); break; case TN_ET_RESOLUTIONCHANGED: reMsg->Lines->Add("ServerEvent([%" + String(nIndex) + "] TN_ET_RESOLUTIONCHANGED=" + String(eEventStatus) + ")"); break; default: reMsg->Lines->Add("ServerEvent(unknown)"); break; } } //--------------------------------------------------------------------------- void __fastcall TFrmCctvCtrl::BtnCameraClick(TObject *Sender) { if (BtnCamera->Tag == 0) { if (Connect()) { BtnCamera->Caption = "영상 연결 해제"; BtnCamera->Tag = 1; } } else { Disconnect(); } } //--------------------------------------------------------------------------- void __fastcall TFrmCctvCtrl::BtnPTZMouseDown(TObject *Sender, TMouseButton Button, TShiftState Shift, int X, int Y) { TImageBtn *pBtn = (TImageBtn*)Sender; long lPTZSpeed = PTZSpeed->Position; try { //nType Type of control. 0: PAN, 1: TILT, 2: ZOOM switch(pBtn->Tag) { //case 0: TVSLiveControl1->SendPTZCommand(m_lCurChID, TN_PTZ_HOME); break; // HOME case 1: // Tilt Up case 2: // Tilt Down TVSLiveControl1->SetPTZControlSpeed(m_lCurChID, 1, lPTZSpeed); break; case 3: // Pan left case 4: // Pan right TVSLiveControl1->SetPTZControlSpeed(m_lCurChID, 0, lPTZSpeed); break; case 9: // Zoom In case 10: // Zoom Out TVSLiveControl1->SetPTZControlSpeed(m_lCurChID, 2, lPTZSpeed); break; case 12: // Focus In case 13: // Focus Out break; default: return; } switch(pBtn->Tag) { case 0: TVSLiveControl1->SendPTZCommand(m_lCurChID, TN_PTZ_HOME); break; // HOME case 1: TVSLiveControl1->SendPTZCommand(m_lCurChID, TN_PTZ_UP); break; // Tilt Up case 2: TVSLiveControl1->SendPTZCommand(m_lCurChID, TN_PTZ_DOWN); break; // Tilt Down case 3: TVSLiveControl1->SendPTZCommand(m_lCurChID, TN_PTZ_LEFT); break; // Pan left case 4: TVSLiveControl1->SendPTZCommand(m_lCurChID, TN_PTZ_RIGHT); break; // Pan right case 9: TVSLiveControl1->SendPTZCommand(m_lCurChID, TN_PTZ_ZOOMIN); break; // Zoom In case 10: TVSLiveControl1->SendPTZCommand(m_lCurChID, TN_PTZ_ZOOMOUT); break; // Zoom Out case 12: TVSLiveControl1->SendPTZCommand(m_lCurChID, TN_PTZ_FOCUSNEAR); break; // Focus In case 13: TVSLiveControl1->SendPTZCommand(m_lCurChID, TN_PTZ_FOCUSFAR); break; // Focus Out default: return; } } catch(...) {} } //--------------------------------------------------------------------------- void __fastcall TFrmCctvCtrl::BtnPTZMouseUp(TObject *Sender, TMouseButton Button, TShiftState Shift, int X, int Y) { TImageBtn *pBtn = (TImageBtn*)Sender; String sPTZSpeed = String(PTZSpeed->Position); TVSLiveControl1->SendPTZCommand(m_lCurChID, TN_PTZ_STOP); } //---------------------------------------------------------------------------