ITS_OP/WebCamCtrl - ffmpeg/MAIN/FrmWebCamCtrlF.cpp

//---------------------------------------------------------------------------

#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 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"

//---------------------------------------------------------------------------
__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;
    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
    }

    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;
    }
    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 != "")
        {
            FFPlayer1->AspectRatio = -1;//ChkFullScreen->Checked ? -1 : 0;
            FFPlayer1->TryOpen(FStrmAddr, PnlCamera->Handle);

            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 (FFPlayer1->ScreenHandle != NULL)
        {
            FFPlayer1->Stop(true);
            PostMessage(FFPlayer1->ScreenHandle, CM_INVALIDATE, 0, 0);
            UpdateWindow(FFPlayer1->ScreenHandle);
            //FFPlayer1->ScreenHandle = NULL;
        }
    }
    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;
    }
}
//---------------------------------------------------------------------------