1234567891011121314151617181920212223242526272829303132333435363738394041424344454647484950515253545556575859606162636465666768697071727374757677787980818283848586878889909192939495969798991001011021031041051061071081091101111121131141151161171181191201211221231241251261271281291301311321331341351361371381391401411421431441451461471481491501511521531541551561571581591601611621631641651661671681691701711721731741751761771781791801811821831841851861871881891901911921931941951961971981992002012022032042052062072082092102112122132142152162172182192202212222232242252262272282292302312322332342352362372382392402412422432442452462472482492502512522532542552562572582592602612622632642652662672682692702712722732742752762772782792802812822832842852862872882892902912922932942952962972982993003013023033043053063073083093103113123133143153163173183193203213223233243253263273283293303313323333343353363373383393403413423433443453463473483493503513523533543553563573583593603613623633643653663673683693703713723733743753763773783793803813823833843853863873883893903913923933943953963973983994004014024034044054064074084094104114124134144154164174184194204214224234244254264274284294304314324334344354364374384394404414424434444454464474484494504514524534544554564574584594604614624634644654664674684694704714724734744754764774784794804814824834844854864874884894904914924934944954964974984995005015025035045055065075085095105115125135145155165175185195205215225235245255265275285295305315325335345355365375385395405415425435445455465475485495505515525535545555565575585595605615625635645655665675685695705715725735745755765775785795805815825835845855865875885895905915925935945955965975985996006016026036046056066076086096106116126136146156166176186196206216226236246256266276286296306316326336346356366376386396406416426436446456466476486496506516526536546556566576586596606616626636646656666676686696706716726736746756766776786796806816826836846856866876886896906916926936946956966976986997007017027037047057067077087097107117127137147157167177187197207217227237247257267277287297307317327337347357367377387397407417427437447457467477487497507517527537547557567577587597607617627637647657667677687697707717727737747757767777787797807817827837847857867877887897907917927937947957967977987998008018028038048058068078088098108118128138148158168178188198208218228238248258268278288298308318328338348358368378388398408418428438448458468478488498508518528538548558568578588598608618628638648658668678688698708718728738748758768778788798808818828838848858868878888898908918928938948958968978988999009019029039049059069079089099109119129139149159169179189199209219229239249259269279289299309319329339349359369379389399409419429439449459469479489499509519529539549559569579589599609619629639649659669679689699709719729739749759769779789799809819829839849859869879889899909919929939949959969979989991000100110021003100410051006100710081009101010111012101310141015101610171018101910201021102210231024102510261027102810291030103110321033103410351036103710381039104010411042104310441045104610471048104910501051105210531054105510561057105810591060106110621063106410651066106710681069107010711072107310741075107610771078107910801081108210831084108510861087108810891090109110921093109410951096109710981099110011011102110311041105110611071108110911101111111211131114111511161117111811191120112111221123112411251126112711281129113011311132113311341135113611371138113911401141114211431144114511461147114811491150115111521153115411551156115711581159116011611162116311641165116611671168116911701171117211731174117511761177117811791180118111821183118411851186118711881189119011911192119311941195119611971198119912001201120212031204120512061207120812091210121112121213121412151216121712181219122012211222122312241225122612271228122912301231123212331234123512361237123812391240124112421243124412451246124712481249125012511252125312541255125612571258125912601261126212631264126512661267126812691270127112721273127412751276127712781279128012811282128312841285128612871288128912901291129212931294129512961297129812991300130113021303130413051306130713081309131013111312131313141315131613171318131913201321132213231324132513261327132813291330133113321333133413351336133713381339134013411342134313441345134613471348134913501351135213531354135513561357135813591360 |
- //---------------------------------------------------------------------------
- #include <vcl.h>
- #include "AppGlobalF.h"
- #include "ITSSkinF.h"
- #include "ITSUtilF.h"
- #include "ITSLangTransF.h"
- #include "FrmInitializeF.h"
- #include "DMDbF.h"
- #pragma hdrstop
- #include "FrmWebCamCtrlF.h"
- //---------------------------------------------------------------------------
- #pragma package(smart_init)
- #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 "dxSkinBlue"
- #pragma link "dxSkinsCore"
- #pragma link "dxSkinscxPCPainter"
- #pragma link "FFBaseComponent"
- #pragma link "FFBasePlay"
- #pragma link "FFPlay"
- #pragma link "FRAME_WCamStateListF"
- #pragma link "IdBaseComponent"
- #pragma link "IdComponent"
- #pragma link "IdIcmpClient"
- #pragma link "IdRawBase"
- #pragma link "IdRawClient"
- #pragma link "ImageBtn"
- #pragma link "dxSkinBlack"
- #pragma link "dxSkinsForm"
- #pragma link "dxSkinMcSkin"
- #pragma link "IdHTTP"
- #pragma link "IdTCPClient"
- #pragma link "IdTCPConnection"
- #pragma link "AcesTechXPlayer2Lib_OCX"
- #pragma resource "*.dfm"
- TFrmWebCamCtrl *FrmWebCamCtrl = 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
- #define LICENSE_KEY "FSXXXXXX-XXXXXXXX-XXXXXXXX-XXXXXXXX-XXXXXXXX"
- #define FFPLAY 0
- #define ACES 1
- //---------------------------------------------------------------------------
- __fastcall TFrmWebCamCtrl::TFrmWebCamCtrl(TComponent* Owner)
- : TForm(Owner)
- {
- //::CoInitialize(NULL);
- LangTrans->Translate(this, ITSDb_GetConnection());
- ITSSkin_Load(this);
- LoadLocalSkin();
- CMM_LoadForm(g_sFormsDir, this);
- FSelCtlr = NULL;
- FRAMEWCamStateList1->PnlTop->Visible = false;
- FRAMEWCamStateList1->PnlBottom->Visible = false;
- FRAMEWCamStateList1->TvList->OptionsView->Footer = false;
- //FRAMEWCamStateList1->Col04->Visible = false;
- FRAMEWCamStateList1->Col05->Visible = false;
- FRAMEWCamStateList1->Col06->Visible = true;
- FRAMEWCamStateList1->ColumnSel->Visible = false;
- PgControl->ActivePageIndex = 0;
- FSelIds = new TStringList();
- FTitle = Caption;
- //TabPreset->Visible = false;
- //TabPreset->TabVisible = false;
- FStrmPlay = false;
- FStrmHandle = 0;
- #if FFPLAY
- AcesTechXPlayer21->Visible = false;
- 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
- }
- #endif
- PgCam->Properties->HideTabs = true;
- PnlCamera->ParentColor = false;
- FTmrShow = true;
- }
- //---------------------------------------------------------------------------
- void __fastcall TFrmWebCamCtrl::CommClose()
- {
- try
- {
- SAFE_DELETE(FSelIds);
- CMM_SaveForm(g_sFormsDir, this);
- CloseRtsp();
- //::CoUninitialize();
- }
- catch(...)
- {
- }
- }
- //---------------------------------------------------------------------------
- void __fastcall TFrmWebCamCtrl::FormShow(TObject *Sender)
- {
- Refresh();
- TmrShow->Enabled = FTmrShow;
- }
- //---------------------------------------------------------------------------
- void __fastcall TFrmWebCamCtrl::FormActivate(TObject *Sender)
- {
- ActivateForm(true);
- }
- //---------------------------------------------------------------------------
- void __fastcall TFrmWebCamCtrl::FormDeactivate(TObject *Sender)
- {
- ActivateForm(false);
- }
- //---------------------------------------------------------------------------
- void __fastcall TFrmWebCamCtrl::LoadLocalSkin()
- {
- PnlCamera->ParentColor = false;
- PnlCamera->Color = clBlack;
- Refresh();
- }
- //---------------------------------------------------------------------------
- void __fastcall TFrmWebCamCtrl::TmrShowTimer(TObject *Sender)
- {
- TmrShow->Enabled = false;
- if (!WCamCtlrManager)
- {
- WCamCtlrManager = new TWCamCtlrManager();
- }
- FrmInitialize = new TFrmInitialize(this);
- FrmInitialize->ShowModal();
- FrmInitialize = NULL;
- FRAMEWCamStateList1->UpdateList();
- FRAMEWCamStateList1->CxList->Enabled = false;
- UpdatePingList();
- FRAMEWCamStateList1->CxList->Enabled = true;
- BtnStatRefresh->Enabled = true;
- TmrRefresh->Enabled = true;
- }
- //---------------------------------------------------------------------------
- void __fastcall TFrmWebCamCtrl::FormClose(TObject *Sender, TCloseAction &Action)
- {
- try {
- CommClose();
- FrmWebCamCtrl = NULL;
- Action = caFree;
- } catch(...) {}
- }
- //---------------------------------------------------------------------------
- void __fastcall TFrmWebCamCtrl::OnMainFormMessage(TMessage &Msg)
- {
- }
- //---------------------------------------------------------------------------
- void __fastcall TFrmWebCamCtrl::OnCctvStateRefreshMessage(TMessage &Msg)
- {
- FRAMEWCamStateList1->RefreshStatus();
- RefreshPingList();
- }
- //---------------------------------------------------------------------------
- void __fastcall TFrmWebCamCtrl::ActivateForm(bool AActivate)
- {
- if (AActivate) FRAMEWCamStateList1->RefreshStatus();
- }
- //---------------------------------------------------------------------------
- void __fastcall TFrmWebCamCtrl::DisplayInfo()
- {
- ClearPreset();
- FSelCtlr = NULL;
- PnlCctv->Caption = " " + lblSelCctv->Caption + " -";//" Select CCTV: -";
- TcxGridBandedTableView *TvList = FRAMEWCamStateList1->TvList;
- TcxDataController *pGDC = TvList->DataController;
- int nSelIdx = CMM_GetRecordIndex(TvList);
- if (nSelIdx < 0) return;
- String CTLR_NMBR = VarToStr(pGDC->Values[nSelIdx][FRAMEWCamStateList1->Col01->Index]);
- int nMemPtr = (int)pGDC->Values[nSelIdx][FRAMEWCamStateList1->Col99->Index];
- FSelCtlr = (TWCamCtlr*)nMemPtr;
- if (!FSelCtlr) return;
- PnlCctv->Caption = " " + lblSelCctv->Caption + " [" + FSelCtlr->WCAM_CTLR_ID + "] " + FSelCtlr->WCAM_NM;
- PnlCamConrtol->Enabled = false;
- PnlPreset->Enabled = false;
- try
- {
- OpenRtsp();
- InitPreset();
- //PnlCamConrtol->Enabled = true;
- //PnlPreset->Enabled = true;
- #if ACES
- if (FSelCtlr->STATE.Comm != (BYTE)wcam_normal)
- {
- PnlCamConrtol->Enabled = false;
- PnlPreset->Enabled = false;
- }
- #endif
- }
- catch(Exception &e)
- {
- }
- BtnWebCamUrl->Enabled = true;
- }
- //---------------------------------------------------------------------------
- bool __fastcall TFrmWebCamCtrl::OpenRtsp()
- {
- if (!FSelCtlr) return false;
- try
- {
- reMsg->Lines->Clear();
- CloseRtsp();
- #if 1
- FStrmAddr = FSelCtlr->FULL_STRM_ADDR.Trim();
- if (FStrmAddr == "") FStrmAddr = FSelCtlr->STRM_SESN_NM.Trim();
- #else
- FStrmAddr = FSelCtlr->STRM_SESN_NM.Trim();
- #endif
- if (FStrmAddr != "")
- {
- #if FFPLAY
- FFPlayer1->AspectRatio = -1;//ChkFullScreen->Checked ? -1 : 0;
- FFPlayer1->TryOpen(FStrmAddr, PnlCamera->Handle);
- #endif
- #if ACES
- AcesTechXPlayer21->URL = FStrmAddr;
- FStrmHandle = AcesTechXPlayer21->ConnectAsync();
- if (FStrmHandle > 0)
- {
- PnlCamConrtol->Enabled = true;
- PnlPreset->Enabled = true;
- }
- #endif
- FStrmUser = FSelCtlr->CMRA_ID;
- FStrmPswd = FSelCtlr->CMRA_PSWD;
- FStrmHttp = "http://" + FSelCtlr->WCAM_CTLR_IP;
- FStrmPlay = true;
- }
- }
- catch(Exception &e)
- {
- }
- return true;
- }
- //---------------------------------------------------------------------------
- void __fastcall TFrmWebCamCtrl::CloseRtsp()
- {
- if (!FStrmPlay) return;
- try
- {
- #if FFPLAY
- if (FFPlayer1->ScreenHandle != NULL)
- {
- FFPlayer1->Stop(true);
- PostMessage(FFPlayer1->ScreenHandle, CM_INVALIDATE, 0, 0);
- UpdateWindow(FFPlayer1->ScreenHandle);
- //FFPlayer1->ScreenHandle = NULL;
- }
- #endif
- #if ACES
- if (FStrmHandle > 0)
- {
- AcesTechXPlayer21->Close();
- }
- #endif
- }
- catch(Exception &e)
- {
- }
- PnlCamConrtol->Enabled = false;
- PnlPreset->Enabled = false;
- FStrmPlay = false;
- }
- //---------------------------------------------------------------------------
- void __fastcall TFrmWebCamCtrl::BtnAllSelectClick(TObject *Sender)
- {
- TcxButton *pBtn = (TcxButton*)Sender;
- if (PgControl->Properties->ActivePage != TabPing)
- CMM_CheckAllListItem(FRAMEWCamStateList1->TvList, FRAMEWCamStateList1->ColumnSel->Index, pBtn->Tag);
- else
- CMM_CheckAllListItem(TvPing, ColumnSel->Index, pBtn->Tag);
- }
- //---------------------------------------------------------------------------
- void __fastcall TFrmWebCamCtrl::ClearCheckList()
- {
- #if 0
- TcxGridBandedTableView *TvList = FRAMEWCamStateList1->TvList;
- TcxDataController *pGDC = TvList->DataController;
- try
- {
- TvList->BeginUpdate();
- pGDC->BeginUpdate();
- int nRows = pGDC->RecordCount;
- for (int ii = 0; ii < nRows; ii++)
- {
- pGDC->Values[ii][FRAMEWCamStateList1->ColumnSel->Index] = false;
- }
- }
- __finally
- {
- pGDC->EndUpdate();
- TvList->EndUpdate();
- }
- #endif
- }
- //---------------------------------------------------------------------------
- void __fastcall TFrmWebCamCtrl::FRAMEWCamStateList1TvListCellDblClick(TcxCustomGridTableView *Sender,
- TcxGridTableDataCellViewInfo *ACellViewInfo, TMouseButton AButton,
- TShiftState AShift, bool &AHandled)
- {
- if (!ACellViewInfo) return;
- ClearCheckList();
- TcxGridBandedTableView *TvList = FRAMEWCamStateList1->TvList;
- TcxDataController *pGDC = TvList->DataController;
- int nSelIdx = CMM_GetRecordIndex(TvList);
- if (nSelIdx < 0) return;
- pGDC->Values[nSelIdx][FRAMEWCamStateList1->ColumnSel->Index] = true;
- DisplayInfo();
- }
- //---------------------------------------------------------------------------
- int __fastcall TFrmWebCamCtrl::GetSelListItems(bool ACommCheck/*=true*/)
- {
- TcxGridBandedTableView *TvList = FRAMEWCamStateList1->TvList;
- TcxDataController *pGDC = TvList->DataController;
- FSelIds->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[FRAMEWCamStateList1->Col99->Index];
- TWCamCtlr *pCctv = (TWCamCtlr*)nMemPtr;
- if (!pCctv) continue;
- bSelected = (bool)ARow->Values[FRAMEWCamStateList1->ColumnSel->Index];
- if (bSelected)
- {
- String CTLR_NMBR = ARow->Values[FRAMEWCamStateList1->Col01->Index];
- if (ACommCheck)
- {
- if (pCctv->STATE.Comm == wcam_normal)
- {
- FSelIds->Add(CTLR_NMBR);
- }
- }
- else
- {
- FSelIds->Add(CTLR_NMBR);
- }
- }
- }
- }
- __finally
- {
- TvList->EndUpdate();
- }
- return FSelIds->Count;
- }
- //---------------------------------------------------------------------------
- void __fastcall TFrmWebCamCtrl::BtnWebCamUrlClick(TObject *Sender)
- {
- if (FSelCtlr)
- {
- if (FSelCtlr->WCAM_CTLR_IP.Trim() != "")
- {
- String sUrl = "http://" + FSelCtlr->WCAM_CTLR_IP.Trim();
- ShellExecute(NULL, NULL, sUrl.c_str(), NULL, NULL, 0);
- }
- }
- }
- //---------------------------------------------------------------------------
- void __fastcall TFrmWebCamCtrl::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 TFrmWebCamCtrl::UpdatePingList()
- {
- CMM_ClearGridTableView(TvPing);
- int ii, jj;
- int nCols = 0;
- TcxDataController *pGDC = TvPing->DataController;
- WCamCtlrManager->FLists.Lock();
- try
- {
- int nRow;
- TvPing->BeginUpdate();
- pGDC->BeginUpdate();
- FOR_STL(TWCamCtlr*, pObj, WCamCtlrManager->FLists)
- {
- if (pObj->DEL_YN == "Y") continue;
- nRow = pGDC->AppendRecord();
- if (pObj->STATE.Comm == wcam_normal) pGDC->Values[nRow][ColumnSel->Index] = false;
- else pGDC->Values[nRow][ColumnSel->Index] = true;
- pGDC->Values[nRow][Col01->Index] = String(pObj->WCAM_CTLR_NMBR);
- pGDC->Values[nRow][Col02->Index] = pObj->WCAM_CTLR_ID;
- pGDC->Values[nRow][Col03->Index] = pObj->WCAM_NM;
- pGDC->Values[nRow][Col04->Index] = pObj->STATE.Comm == wcam_normal ? FrmLang->lblComm0->Caption : FrmLang->lblComm1->Caption;
- pGDC->Values[nRow][Col05->Index] = pObj->WCAM_CTLR_IP;
- pGDC->Values[nRow][Col06->Index] = "-";
- pGDC->Values[nRow][Col07->Index] = "-";
- pGDC->Values[nRow][Col08->Index] = "-";
- pGDC->Values[nRow][Col09->Index] = pObj->WCAM_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
- {
- WCamCtlrManager->FLists.UnLock();
- pGDC->EndUpdate();
- TvPing->EndUpdate();
- }
- }
- //---------------------------------------------------------------------------
- void __fastcall TFrmWebCamCtrl::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];
- TWCamCtlr *pObj = (TWCamCtlr*)nMemPtr;
- if (!pObj) continue;
- if (AInit == false && PgControl->Properties->ActivePage != TabPing)
- {
- if (pObj->STATE.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->STATE.Comm == wcam_normal ? FrmLang->lblComm0->Caption : FrmLang->lblComm1->Caption;
- }
- }
- __finally
- {
- pGDC->EndUpdate();
- TvPing->EndUpdate();
- }
- }
- //---------------------------------------------------------------------------
- void __fastcall TFrmWebCamCtrl::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 TFrmWebCamCtrl::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;
- Application->MessageBox(sMsg.c_str(), L"Web Camera 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 TFrmWebCamCtrl::BtnNwkPingClearClick(TObject *Sender)
- {
- RefreshPingList(true);
- }
- //---------------------------------------------------------------------------
- void __fastcall TFrmWebCamCtrl::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 (sStatus.Pos("-")) tColor = clGray;
- else if (sStatus.Pos(FrmLang->lblComm1->Caption.Trim())) tColor = clRed;
- else tColor = clLime;
- ACanvas->SetBrushColor(tColor);
- ACanvas->Font->Color = clBlack;
- }
- catch(Exception &e)
- {
- }
- }
- //---------------------------------------------------------------------------
- void __fastcall TFrmWebCamCtrl::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 TFrmWebCamCtrl::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 TFrmWebCamCtrl::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);
- }
- }
- //---------------------------------------------------------------------------
- void __fastcall TFrmWebCamCtrl::BtnSaveImgFileClick(TObject *Sender)
- {
- #if 0
- String sSaveFileName;
- if (!FSelCtlr || XNVTViewerCtrl1->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->WCAM_CTLR_NMBR, Now().FormatString("yyyymmddhhnnss").c_str());
- if (XNVTViewerCtrl1->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);
- }
- #endif
- }
- //---------------------------------------------------------------------------
- void __fastcall TFrmWebCamCtrl::ClearPreset()
- {
- CMM_ClearGridTableView(TvPreset);
- SePresetNo->Value = 1;
- EdPresetName->Text = "";
- ChkCctvPresetDef->Checked = false;
- //PnlPreset->Enabled = false;
- }
- //---------------------------------------------------------------------------
- void __fastcall TFrmWebCamCtrl::InitPreset()
- {
- if (!FSelCtlr) return;
- ClearPreset();
- TcxDataController* pGDC = TvPreset->DataController;
- TvPreset->BeginUpdate();
- try
- {
- FSelCtlr->FLists.Lock();
- try
- {
- FOR_STL(TWCamPset*, 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 TFrmWebCamCtrl::BtnCctvPresetClick(TObject *Sender)
- {
- //프리셋 이동
- if (!FStrmPlay) return;
- if (!FSelCtlr) return;
- if (FSelCtlr->WCAM_CTLR_IP.Trim() == "") return;
- String sPTZSpeed = String(PTZSpeed->Position);
- try
- {
- String sCmdHtml = "";
- int nPresetNo = SePresetNo->Value;
- // 프리셋 정보 요청
- // /stw-cgi/ptzconfig.cgi?msubmenu=preset&action=view
- // 채널0 번 프리셋 정보 요청
- // /stw-cgi/ptzconfig.cgi?msubmenu=preset&action=view&Channel=0
- // 홈설정
- // /stw-cgi/ptzconfig.cgi?msubmenu=home&action=set
- // /stw-cgi/ptzcontrol.cgi?msubmenu=preset&action=control&PresetName=PresetName1 ==> 프리셋명으로 이동
- sCmdHtml.printf(L"%s/stw-cgi/ptzcontrol.cgi?msubmenu=preset&action=control&Preset=%d", FStrmHttp.c_str(), nPresetNo);
- if (sCmdHtml == "") return;
- IdHTTP1->HTTPOptions = IdHTTP1->HTTPOptions >> hoInProcessAuth;
- IdHTTP1->HTTPOptions = IdHTTP1->HTTPOptions << hoInProcessAuth;
- String sResult = IdHTTP1->Get(sCmdHtml);
- reMsg->Lines->Add(sResult);
- IdHTTP1->Disconnect();
- }
- catch(...) {}
- }
- //---------------------------------------------------------------------------
- void __fastcall TFrmWebCamCtrl::BtnCctvPresetSetClick(TObject *Sender)
- {
- if (!FStrmPlay) return;
- if (!FSelCtlr) return;
- if (FSelCtlr->WCAM_CTLR_IP.Trim() == "") return;
- 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();
- }
- // Adding ‘Preset 1’ with the name ‘preset001’
- // /stw-cgi/ptzconfig.cgi?msubmenu=preset&action=add&Preset=1&Name=preset001
- // Adding ‘Preset 3’ with the name ‘preset003’ to Channel 0
- // /stw-cgi/ptzconfig.cgi?msubmenu=preset&action=add&Channel=0&Preset=3&Name=Preset003
- // Removing presets 1 and 3
- // /stw-cgi/ptzconfig.cgi?msubmenu=preset&action=remove&Channel=0&Preset=1,3
- // Removing all presets at once
- // /stw-cgi/ptzconfig.cgi?msubmenu=preset&action=remove&Channel=0&Preset=All
- String sCmdHtml = "";
- sPresetNm = StringReplace(sPresetNm, " ", "", TReplaceFlags() << rfReplaceAll);
- String sUtfPresetNm = TIdURI::ParamsEncode(sPresetNm);
- sCmdHtml.printf(L"%s/stw-cgi/ptzconfig.cgi?msubmenu=preset&action=add&Preset=1&Name=%s", FStrmHttp.c_str(), sUtfPresetNm.c_str());
- if (sCmdHtml == "") return;
- IdHTTP1->HTTPOptions = IdHTTP1->HTTPOptions >> hoInProcessAuth;
- IdHTTP1->HTTPOptions = IdHTTP1->HTTPOptions << hoInProcessAuth;
- String sResult = IdHTTP1->Get(sCmdHtml);
- reMsg->Lines->Add(sResult);
- IdHTTP1->Disconnect();
- if (sResult.Trim() != "OK") return;
- if (sDefault == "Y")
- {
- sCmdHtml = "";
- sCmdHtml.printf(L"%s/stw-cgi/ptzconfig.cgi?msubmenu=home&action=set", FStrmHttp.c_str());
- if (sCmdHtml == "") return;
- IdHTTP1->HTTPOptions = IdHTTP1->HTTPOptions >> hoInProcessAuth;
- IdHTTP1->HTTPOptions = IdHTTP1->HTTPOptions << hoInProcessAuth;
- String sResult = IdHTTP1->Get(sCmdHtml);
- reMsg->Lines->Add(sResult);
- IdHTTP1->Disconnect();
- if (sResult.Trim() != "OK")
- {
- sDefault = "N";
- }
- }
- if (!DMDb->Connect())
- {
- if (g_AppCfg.sLang != "kr")
- {
- Application->MessageBox(L"Database connection failed.\r\n\r\nPlease restart the program.",
- L"Database connection error !!!",
- MB_OK|MB_ICONERROR);
- }
- else
- {
- Application->MessageBox(L"데이터베이스 연결에 실패하였습니다.\r\n\r\n프로그램을 다시 시작하십시요.",
- L"데이터베이스 연결 오류!!!",
- MB_OK|MB_ICONERROR);
- }
- return;
- }
- TWCamPset *pSet = FSelCtlr->FLists.Find(nPresetNo);
- if (!pSet)
- {
- pSet = new TWCamPset();
- pSet->WCAM_CTLR_NMBR = FSelCtlr->WCAM_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";
- WCamCtlrManager->SavePreSet(FSelCtlr, DMDb->GetConnection());
- InitPreset();
- SePresetNo->Value = nPresetNo;
- EdPresetName->Text = sPresetNm;
- ChkCctvPresetDef->Checked = sDefault == "Y" ? true : false;
- BtnCctvPresetDel->Enabled = true;
- DMDb->Close();;
- }
- //---------------------------------------------------------------------------
- void __fastcall TFrmWebCamCtrl::BtnCctvPresetDelClick(TObject *Sender)
- {
- //프리셋 삭제
- if (!FStrmPlay) return;
- if (!FSelCtlr) return;
- if (FSelCtlr->WCAM_CTLR_IP.Trim() == "") return;
- int nPresetNo = SePresetNo->Value;
- String sCmdHtml = "";
- sCmdHtml.printf(L"%s/stw-cgi/ptzconfig.cgi?msubmenu=preset&action=remove&Channel=0&Preset=%d", FStrmHttp.c_str(), nPresetNo);
- if (sCmdHtml == "") return;
- IdHTTP1->HTTPOptions = IdHTTP1->HTTPOptions >> hoInProcessAuth;
- IdHTTP1->HTTPOptions = IdHTTP1->HTTPOptions << hoInProcessAuth;
- String sResult = IdHTTP1->Get(sCmdHtml);
- reMsg->Lines->Add(sResult);
- IdHTTP1->Disconnect();
- if (sResult.Trim() != "OK") return;
- if (!DMDb->Connect())
- {
- if (g_AppCfg.sLang != "kr")
- {
- Application->MessageBox(L"Database connection failed.\r\n\r\nPlease restart the program.",
- L"Database connection error !!!",
- MB_OK|MB_ICONERROR);
- }
- else
- {
- Application->MessageBox(L"데이터베이스 연결에 실패하였습니다.\r\n\r\n프로그램을 다시 시작하십시요.",
- L"데이터베이스 연결 오류!!!",
- MB_OK|MB_ICONERROR);
- }
- return;
- }
- TWCamPset *pSet = FSelCtlr->FLists.Find(nPresetNo);
- if (!pSet)
- {
- DMDb->Close();;
- return;
- }
- pSet->PSET_NM = "";
- pSet->DEL_YN = "Y";
- WCamCtlrManager->SavePreSet(FSelCtlr, DMDb->GetConnection());
- InitPreset();
- DMDb->Close();;
- }
- //---------------------------------------------------------------------------
- void __fastcall TFrmWebCamCtrl::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 TFrmWebCamCtrl::SePresetNoPropertiesEditValueChanged(TObject *Sender)
- {
- if (FSelCtlr)
- {
- int nPresetNo = SePresetNo->Value;
- TWCamPset* pSet = FSelCtlr->FLists.Find(nPresetNo);
- if (pSet) BtnCctvPresetDel->Enabled = true;
- else BtnCctvPresetDel->Enabled = false;
- }
- }
- //---------------------------------------------------------------------------
- void __fastcall TFrmWebCamCtrl::reMsgDblClick(TObject *Sender)
- {
- reMsg->Lines->Clear();
- }
- //---------------------------------------------------------------------------
- void __fastcall TFrmWebCamCtrl::FFPlayer1State(TObject *Sender, TPlayState APlayState)
- {
- switch(APlayState)
- {
- case Ffbasecomponent::psPlay:
- reMsg->Lines->Add("Play...");
- PnlCamConrtol->Enabled = true;
- PnlPreset->Enabled = true;
- 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;
- FStrmPlay = false;
- }
- reMsg->Lines->Add("End...");
- break;
- }
- }
- //---------------------------------------------------------------------------
- void __fastcall TFrmWebCamCtrl::BtnStatRefreshClick(TObject *Sender)
- {
- TmrRefresh->Enabled = false;
- BtnStatRefresh->Enabled = false;
- if (!DMDb->Connect())
- {
- if (g_AppCfg.sLang != "kr")
- {
- Application->MessageBox(L"Database connection failed.\r\n\r\nPlease restart the program.",
- L"Database connection error !!!",
- MB_OK|MB_ICONERROR);
- }
- else
- {
- Application->MessageBox(L"데이터베이스 연결에 실패하였습니다.\r\n\r\n프로그램을 다시 시작하십시요.",
- L"데이터베이스 연결 오류!!!",
- MB_OK|MB_ICONERROR);
- }
- BtnStatRefresh->Enabled = true;
- TmrRefresh->Enabled = true;
- return;
- }
- WCamCtlrManager->LoadStatusFromDb(DMDb->GetConnection());
- FRAMEWCamStateList1->RefreshStatus();
- RefreshPingList();
- DMDb->Close();;
- BtnStatRefresh->Enabled = true;
- TmrRefresh->Enabled = true;
- }
- //---------------------------------------------------------------------------
- void __fastcall TFrmWebCamCtrl::TmrRefreshTimer(TObject *Sender)
- {
- BtnStatRefreshClick(NULL);
- }
- //---------------------------------------------------------------------------
- void __fastcall TFrmWebCamCtrl::IdHTTP1Authorization(TObject *Sender, TIdAuthentication *Authentication, bool &Handled)
- {
- #if 1
- IdHTTP1->Request->Username = FStrmUser;
- IdHTTP1->Request->Password = FStrmPswd;
- #endif
- Authentication->Username = FStrmUser;
- Authentication->Password = FStrmPswd;
- TIdDigestAuthentication *pAuth1 = (TIdDigestAuthentication*)IdHTTP1->Request->Authentication;
- TIdDigestAuthentication *pAuth2 = (TIdDigestAuthentication*)Authentication;
- pAuth1->Uri = IdHTTP1->Request->URL;
- pAuth2->Method = "GET";
- Handled = true;
- }
- //---------------------------------------------------------------------------
- void __fastcall TFrmWebCamCtrl::BtnUpMouseDown(TObject *Sender, TMouseButton Button, TShiftState Shift, int X, int Y)
- {
- // PANControl
- if (!FStrmPlay) return;
- if (!FSelCtlr) return;
- if (FSelCtlr->WCAM_CTLR_IP.Trim() == "") return;
- String sPTZSpeed = String(PTZSpeed->Position);
- try
- {
- String sCmdHtml = "";
- TImageBtn *pBtn = (TImageBtn*)Sender;
- switch(pBtn->Tag)
- {
- case 0: sCmdHtml.printf(L"%s/stw-cgi/ptzcontrol.cgi?msubmenu=home&action=control&Channel=0", FStrmHttp.c_str()); break; // HOME
- case 1: sCmdHtml.printf(L"%s/stw-cgi/ptzcontrol.cgi?msubmenu=continuous&action=control&Tilt=5&Duration=1", FStrmHttp.c_str()); break; // Tilt Up
- case 2: sCmdHtml.printf(L"%s/stw-cgi/ptzcontrol.cgi?msubmenu=continuous&action=control&Tilt=-5&Duration=1", FStrmHttp.c_str()); break; // Tilt Down
- case 3: sCmdHtml.printf(L"%s/stw-cgi/ptzcontrol.cgi?msubmenu=continuous&action=control&Pan=5", FStrmHttp.c_str()); break; // Pan left
- case 4: sCmdHtml.printf(L"%s/stw-cgi/ptzcontrol.cgi?msubmenu=continuous&action=control&Pan=-5", FStrmHttp.c_str()); break; // Pan right
- case 9: sCmdHtml.printf(L"%s/stw-cgi/ptzcontrol.cgi?msubmenu=continuous&action=control&Zoom=3", FStrmHttp.c_str()); break; // Zoom In
- case 10: sCmdHtml.printf(L"%s/stw-cgi/ptzcontrol.cgi?msubmenu=continuous&action=control&Zoom=-3", FStrmHttp.c_str()); break; // Zoom Out
- case 12: sCmdHtml.printf(L"%s/stw-cgi/ptzcontrol.cgi?msubmenu=continuous&action=control&Focus=Near", FStrmHttp.c_str()); break; // Focus In
- case 13: sCmdHtml.printf(L"%s/stw-cgi/ptzcontrol.cgi?msubmenu=continuous&action=control&Focus=Far", FStrmHttp.c_str()); break; // Focus Out
- default: return;
- }
- if (sCmdHtml == "") return;
- IdHTTP1->HTTPOptions = IdHTTP1->HTTPOptions >> hoInProcessAuth;
- IdHTTP1->HTTPOptions = IdHTTP1->HTTPOptions << hoInProcessAuth;
- String sResult = IdHTTP1->Get(sCmdHtml);
- reMsg->Lines->Add(sResult);
- IdHTTP1->Disconnect();
- }
- catch(...) {}
- }
- //---------------------------------------------------------------------------
- void __fastcall TFrmWebCamCtrl::BtnUpMouseUp(TObject *Sender, TMouseButton Button, TShiftState Shift, int X, int Y)
- {
- // PANControl Stop
- if (!FStrmPlay) return;
- if (!FSelCtlr) return;
- if (FSelCtlr->WCAM_CTLR_IP.Trim() == "") return;
- String sPTZSpeed = String(PTZSpeed->Position);
- try
- {
- String sCmdHtml = "";
- TImageBtn *pBtn = (TImageBtn*)Sender;
- switch(pBtn->Tag)
- {
- case 1: // Tilt Up
- case 2: // Tilt Down
- sCmdHtml.printf(L"%s/stw-cgi/ptzcontrol.cgi?msubmenu=continuous&action=control&Tilt=0&Duration=1", FStrmHttp.c_str());
- break;
- case 3: // Pan left
- case 4: // Pan right
- sCmdHtml.printf(L"%s/stw-cgi/ptzcontrol.cgi?msubmenu=continuous&action=control&Pan=0", FStrmHttp.c_str());
- break;
- case 9: // Zoom In
- case 10: // Zoom Out
- sCmdHtml.printf(L"%s/stw-cgi/ptzcontrol.cgi?msubmenu=continuous&action=control&Zoom=0", FStrmHttp.c_str());
- break;
- case 12: // Focus In
- case 13: // Focus Out
- sCmdHtml.printf(L"%s/stw-cgi/ptzcontrol.cgi?msubmenu=continuous&action=control&Focus=Stop", FStrmHttp.c_str());
- break;
- default: return;
- }
- if (sCmdHtml == "") return;
- IdHTTP1->HTTPOptions = IdHTTP1->HTTPOptions >> hoInProcessAuth;
- IdHTTP1->HTTPOptions = IdHTTP1->HTTPOptions << hoInProcessAuth;
- String sResult = IdHTTP1->Get(sCmdHtml);
- reMsg->Lines->Add(sResult);
- IdHTTP1->Disconnect();
- }
- catch(...) {}
- }
- //---------------------------------------------------------------------------
- void __fastcall TFrmWebCamCtrl::EdPresetNameKeyPress(TObject *Sender, wchar_t &Key)
- {
- if (Key == VK_SPACE)
- {
- Key = 0;
- }
- }
- //---------------------------------------------------------------------------
|