ITS_OP/VmsMsgVideoMngr/SRC/FrmVmsMsgVideoMngrF.cpp

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

#include <vcl.h>
#include <IOUtils.hpp>
#include "ITSSkinF.h"
#include "ITSUtilF.h"
#include "AppGlobalF.h"
#include <jpeg.hpp>
#include <GIFimg.hpp>
#pragma hdrstop

#include "FrmVmsMsgVideoMngrF.h"

//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma link "cxButtons"
#pragma link "cxCalendar"
#pragma link "cxContainer"
#pragma link "cxControls"
#pragma link "cxDropDownEdit"
#pragma link "cxEdit"
#pragma link "cxGraphics"
#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 "cxSplitter"
#pragma link "cxTextEdit"
#pragma link "cxTimeEdit"
#pragma link "dxSkinBlack"
#pragma link "dxSkinBlue"
#pragma link "dxSkinCaramel"
#pragma link "dxSkinCoffee"
#pragma link "dxSkinDarkRoom"
#pragma link "dxSkinDarkSide"
#pragma link "dxSkinFoggy"
#pragma link "dxSkinGlassOceans"
#pragma link "dxSkiniMaginary"
#pragma link "dxSkinLilian"
#pragma link "dxSkinLiquidSky"
#pragma link "dxSkinLondonLiquidSky"
#pragma link "dxSkinMcSkin"
#pragma link "dxSkinMoneyTwins"
#pragma link "dxSkinOffice2007Black"
#pragma link "dxSkinOffice2007Blue"
#pragma link "dxSkinOffice2007Green"
#pragma link "dxSkinOffice2007Pink"
#pragma link "dxSkinOffice2007Silver"
#pragma link "dxSkinOffice2010Black"
#pragma link "dxSkinOffice2010Blue"
#pragma link "dxSkinOffice2010Silver"
#pragma link "dxSkinsCore"
#pragma link "dxSkinscxPCPainter"
#pragma link "dxSkinSeven"
#pragma link "dxSkinSharp"
#pragma link "dxSkinSilver"
#pragma link "dxSkinStardust"
#pragma link "cxRadioGroup"
#pragma link "cxClasses"
#pragma link "cxCustomData"
#pragma link "cxData"
#pragma link "cxDataStorage"
#pragma link "cxDBData"
#pragma link "cxFilter"
#pragma link "cxGrid"
#pragma link "cxGridCustomTableView"
#pragma link "cxGridCustomView"
#pragma link "cxGridDBTableView"
#pragma link "cxGridLevel"
#pragma link "cxGridTableView"
#pragma link "cxStyles"
#pragma link "cxCheckBox"
#pragma link "cxImage"
#pragma link "cxButtonEdit"
#pragma link "cxBlobEdit"
#pragma link "cxHint"
#pragma link "dxCustomHint"
#pragma link "dxScreenTip"
#pragma link "dxSkinsForm"
#pragma link "FFBaseComponent"
#pragma link "FFBasePlay"
#pragma link "FFPlay"
#pragma link "dxGDIPlusClasses"
#pragma link "FFDecode"
#pragma link "cxCalc"
#pragma resource "*.dfm"

#define LICENSE_KEY "FSXXXXXX-XXXXXXXX-XXXXXXXX-XXXXXXXX-XXXXXXXX"

#define SBT_GENERAL     "SBT1"  // 일반
#define SBT_TRAFFIC     "SBT2"  // 소통정보
#define SBT_ATMP        "SBT3"  // 대기환경
#define SBT_WEATHER     "SBT4"  // 기상정보
#define SBT_INCIDENT    "SBT5"  // 돌발
#define SBT_VIDEO       "SBT6"  // 동영상
#define SBT_TRAFBAK     "SBT7"  // 소통정보배경

TFrmVmsMsgVideoMngr *FrmVmsMsgVideoMngr = NULL;
//---------------------------------------------------------------------------

__fastcall TFrmVmsMsgVideoMngr::TFrmVmsMsgVideoMngr(TComponent* Owner)
    : TForm(Owner)
{
    //CMM_SetFormPosition(g_AppCfg.bSaveForm);

    ITSSkin_Initialize(Application, g_AppCfg.sLang);
    ITSSkin_Caption(false);
    ITSSkin_Load(this);
    //CMM_LoadForm(g_sFormsDir, this);

    SetColorScheme(g_AppCfg.sSkinName);

    PnlSymbol->Align = alClient;

    FUpdate= false;
    FTitle = Caption;//"VMS 심볼이미지 관리";

    PgSymb->Properties->HideTabs = true;
    PgSymb->Properties->ActivePage = TsSbt6;
    //ChangeSymbPage(SBT_GENERAL);

    EditMode = false;
    FIsUpdate = false;

    TvList->OptionsView->DataRowHeight  = 160;//0;
    TvList->OptionsView->CellAutoHeight = true;
    TvList->OptionsView->Indicator      = false;

    TvList->OptionsCustomize->ColumnMoving  = false;
    TvList->OptionsCustomize->ColumnSorting = false;

    TvList->Columns[0]->Width = 60;
    TvList->Columns[0]->Options->HorzSizing = false;

    FSymbFmtLists.Push("avi",  new TSymbFmt("avi", "AV"));
    FSymbFmtLists.Push("mpge", new TSymbFmt("mpeg", "MP"));
    FSymbFmtLists.Push("mkv",  new TSymbFmt("mkv", "MK"));
    FSymbFmtLists.Push("mp4",  new TSymbFmt("mp4", "M4"));

    CURR_SYMB_DATA = new TMemoryStream();
    CURR_SYMB_AVI_DATA = new TMemoryStream();

    FThumbNail = 0;
    FMakeThumbNail = false;

    FFDecoder1->SetLicenseKey(LICENSE_KEY);
    String sAVILibDir = g_sAppDir + "LibAV";
    FFPlayer1->SetLicenseKey(LICENSE_KEY);
    FFPlayer1->DisableFPUExceptions();

    if (!FFPlayer1->LoadAVLib(sAVILibDir))
    {
        Application->MessageBox(L"Stream display library load failed.", L"Stream display fail", MB_OK|MB_ICONERROR|MB_APPLMODAL);
    }
    FPlayStream = false;
}
//---------------------------------------------------------------------------

void __fastcall TFrmVmsMsgVideoMngr::SetColorScheme(String ASkinName)
{
    dxSkinController1->SkinName = ASkinName;
    dxSkinController1->Refresh();
}
//---------------------------------------------------------------------------

void __fastcall TFrmVmsMsgVideoMngr::CommClose()
{
    try
    {
#if 0
        if (CURR_SYMB_DATA) {
            CURR_SYMB_DATA->Free();
        }
        if (CURR_SYMB_AVI_DATA) {
            CURR_SYMB_AVI_DATA->Free();
        }
#endif

        ITSSkin_Term();
        //CMM_SaveForm(g_sFormsDir, this);
    }
    catch(...)
    {
    }
}
//---------------------------------------------------------------------------

void __fastcall TFrmVmsMsgVideoMngr::FormShow(TObject *Sender)
{
    Refresh();

    InitDbLoading();

    FormInit();
    ChangeEditMode(1);
    TmrShow->Enabled = true;
}
//---------------------------------------------------------------------------
void __fastcall TFrmVmsMsgVideoMngr::InitDbLoading()
{
    Application->ProcessMessages();
    if (!VmsCtlrManager) {
        VmsCtlrManager = new TVmsCtlrManager();
    }
    VmsCtlrManager->LoadVmsModlSize();
    VmsCtlrManager->LoadFromDb();
}
//---------------------------------------------------------------------------

void __fastcall TFrmVmsMsgVideoMngr::FormInit()
{
	EdNmbr->Text = "";
    EdName->Text = "";
    EdExpl->Text = "";
    SeSize->Value = 0;
    SeWidth->Value = 0;
    SeHeight->Value = 0;
    //EdImageFileName->Text = "";

#if 0
    ImgGeneral->Picture->Bitmap->FreeImage();
    ImgGeneral->Picture->Bitmap = NULL;

    ImgVideo->Picture->Bitmap->FreeImage();
    ImgVideo->Picture->Bitmap = NULL;

    ImgTemp->Picture->Bitmap->FreeImage();
    ImgTemp->Picture->Bitmap = NULL;
#endif

    FNewDb = false;
}
//---------------------------------------------------------------------------

void __fastcall TFrmVmsMsgVideoMngr::TmrShowTimer(TObject *Sender)
{
    TmrShow->Enabled = false;

    LoadImageSymbol();
}
//---------------------------------------------------------------------------

void __fastcall TFrmVmsMsgVideoMngr::BtnCloseClick(TObject *Sender)
{
    Close();
}
//---------------------------------------------------------------------------

void __fastcall TFrmVmsMsgVideoMngr::FormClose(TObject *Sender, TCloseAction &Action)
{
    CommClose();
    FrmVmsMsgVideoMngr = NULL;
    Action = caFree;
}
//---------------------------------------------------------------------------

void __fastcall TFrmVmsMsgVideoMngr::LoadingImage(TImage *AImage, String AFileName)
{
    try {
        AImage->Picture->LoadFromFile(AFileName);
        if (AImage->Picture->Graphic->ClassName() == "TGIFImage") {
            ((TGIFImage *)AImage->Picture->Graphic)->Animate = true;
            AImage->Transparent = true;
        }
        else {
            AImage->Transparent = false;
        }
    }
    catch(Exception &e) {
        String errMsg = "이미지를 읽어오는 중에 오류가 발생했습니다.\r\n" + e.Message;
        Application->MessageBox(errMsg.c_str(), L"이미지 로딩 실패", MB_OK|MB_ICONERROR|MB_APPLMODAL);
    }
}
//---------------------------------------------------------------------------

void __fastcall TFrmVmsMsgVideoMngr::DisplayInfo()
{
    FormInit();

	int nRow = TvList->DataController->FocusedRecordIndex;
	if( nRow <= -1 )
		return;

	TcxGridDataController *pGDC = TvList->DataController;

	nRow = pGDC->FocusedRecordIndex;

    CURR_VMS_FORM_OBJ_ID= pGDC->Values[nRow][ColSYMB_NMBR->Index];
    CURR_PICT_NM        = pGDC->Values[nRow][ColSYMB_NM->Index];
    CURR_PICT_EXT       = pGDC->Values[nRow][ColSYMB_FILE_EXT->Index];
    CURR_PICT_DATA_SZ   = pGDC->Values[nRow][ColSYMB_SIZE->Index];
    //CURR_PICT_WDTH      = pGDC->Values[nRow][ColSYMB_WDTH->Index];
    //CURR_PICT_HGHT      = pGDC->Values[nRow][ColSYMB_HGHT->Index];
    //CURR_USE_YN         = pGDC->Values[nRow][ColUSE_YN->Index];

    String imageFilePath = pGDC->Values[nRow][ColImagePath->Index];
    String videoFilePath = pGDC->Values[nRow][ColVideoPath->Index];

    CURR_LOCAL_FILE_NM = pGDC->Values[nRow][ColVideoPath->Index];
    LoadingImage(ImgVideo, imageFilePath);

    EdNmbr->Text    = CURR_VMS_FORM_OBJ_ID;
    EdName->Text    = CURR_PICT_NM;
    SeSize->Value   = CURR_PICT_DATA_SZ;
    SeWidth->Value  = CURR_PICT_WDTH;
    SeHeight->Value = CURR_PICT_HGHT;
    EdImageFileName->Text = CURR_LOCAL_FILE_NM;

    ChangeEditMode(3);
    BtnPlay->Enabled = true;
    BtnStop->Enabled = false;
    BtnPause->Enabled = false;
}
//---------------------------------------------------------------------------

void __fastcall TFrmVmsMsgVideoMngr::BtnEditClick(TObject *Sender)
{
    if (BtnEdit->Caption == "편집")//"편집")
    {
        ChangeEditMode(0);
        FNewDb = false;
    }
    else
    {
        String sId = EdNmbr->Text;
        ChangeEditMode(1);

        if (CMM_FindGridData(TvList->DataController, sId, ColSYMB_NMBR->Index) >= 0)
        {
            CMM_SetGridRow(CxList, TvList, sId, ColSYMB_NMBR->Index);
            DisplayInfo();
        }
    }
}
//---------------------------------------------------------------------------

void __fastcall TFrmVmsMsgVideoMngr::ChangeEditMode(int AEdit)
{
    FImageUpdate = false;
    bool bEnabled = false;
    switch(AEdit)
    {
    case 0: //편집버튼클릭
        {
            BtnEdit->Enabled = true;
            BtnInsert->Enabled = false;
            BtnDelete->Enabled = false;
            BtnSave->Enabled = true;

            BtnEdit->Caption = "취소";//"취소";
            BtnEdit->Hint    = "데이터 편집 취소";//데이터 편집 취소";
            EditMode = true;
            //EdImageFileName->Enabled = FIsUpdate;
        }
        break;
    case 1: //편집[취소]버튼클릭
        {
            FormInit(); //화면을 모두 지운다.
            BtnEdit->Enabled = false;
            BtnInsert->Enabled = true;
            BtnDelete->Enabled = false;
            BtnSave->Enabled = false;

            BtnEdit->Caption = "편집";//"편집";
            BtnEdit->Hint    = "데이터 편집";//데이터 편집";
            //bEnabled = true;
            EditMode = false;
            //EdImageFileName->Enabled = false;
        }
        break;
    case 2: //추가
        {
            BtnEdit->Enabled = true;
            BtnInsert->Enabled = false;
            BtnDelete->Enabled = false;
            BtnSave->Enabled = true;

            BtnEdit->Caption = "취소";//"취소";
            BtnEdit->Hint    = "데이터 편집 취소";//데이터 편집 취소";
            EditMode = true;
            //EdImageFileName->Enabled = true;
        }
        break;
    case 3: //수정모드
        {
            BtnEdit->Enabled = true;
            BtnInsert->Enabled = true;
            BtnDelete->Enabled = true;
            BtnSave->Enabled = false;

            BtnEdit->Caption = "편집";//"편집";
            BtnEdit->Hint    = "데이터 편집";//데이터 편집";
            bEnabled = true;
            EditMode = false;
            //EdImageFileName->Enabled = FIsUpdate;
        }
        break;
    }

    BtnSaveImgFile->Enabled = false;
    if (FSymbImag != NULL && FSymbImag->Picture->Bitmap != NULL)
    {
        if (FSymbImag->Picture->Bitmap->Height != 0)
        {
            BtnSaveImgFile->Enabled = true;
        }
    }
    if (AEdit == 0 || AEdit == 2)
    {
        GrpList->Enabled = false;
        PnlCmd->Enabled = true;
    }
    else
    {
        GrpList->Enabled = true;
        PnlCmd->Enabled = false;
    }

    //PnlEdit->Enabled = EditMode;
}
//---------------------------------------------------------------------------

void __fastcall TFrmVmsMsgVideoMngr::BtnSaveClick(TObject *Sender)
{
	if (EdNmbr->Text.IsEmpty()) {
        Application->MessageBox(L"VMS 동영상 저장\r\VMS 폼객체 ID를 입력하세요.",
                                FTitle.c_str(), MB_OK|MB_ICONERROR|MB_APPLMODAL);
		return;
	}
	if (EdName->Text.Trim().IsEmpty()) {
        Application->MessageBox(L"VMS 동영상 저장\r\n동영상 명칭을 입력하세요.",
                                FTitle.c_str(), MB_OK|MB_ICONERROR|MB_APPLMODAL);
		return;
	}

    bool bResult = false;
    String sNmbr = EdNmbr->Text;

    CURR_VMS_FORM_OBJ_ID = sNmbr;
    CURR_PICT_NM         = EdName->Text.Trim();
    CURR_PICT_DATA_SZ    = SeSize->Value;
    CURR_PICT_WDTH       = SeWidth->Value;
    CURR_PICT_HGHT       = SeHeight->Value;

    if (!FNewDb) {
        bResult = UpdateVmsSymbLib(CURR_VMS_FORM_OBJ_ID, CURR_PICT_NM);
    }
    else {
        CURR_BASE_YN = "Y";
        CURR_USE_YN = "Y";
        bResult = InsertVmsSymbLib(CURR_VMS_FORM_OBJ_ID,
                                   CURR_PICT_NM,
                                   CURR_PICT_EXT,
                                   CURR_PICT_DATA_SZ,
                                   CURR_PICT_WDTH,
                                   CURR_PICT_HGHT,
                                   CURR_USE_YN);
    }

    if (bResult)
    {
        Application->MessageBox(L"VMS 동영상 저장\r\nVMS 동영상 정보를 저장 하였습니다.",
                                FTitle.c_str(), MB_OK|MB_ICONINFORMATION|MB_APPLMODAL);

        FUpdate = true;

        LoadImageSymbol();
        CMM_SetGridRow(CxList, TvList, sNmbr, ColSYMB_NMBR->Index);
        //DisplayInfo();
    }
}
//---------------------------------------------------------------------------

void __fastcall TFrmVmsMsgVideoMngr::BtnInsertClick(TObject *Sender)
{
    MnuAddVmsSymbClick((TObject*)MnuVideo);
}
//---------------------------------------------------------------------------

void __fastcall TFrmVmsMsgVideoMngr::BtnDeleteClick(TObject *Sender)
{
    int nIdx = TvList->DataController->FocusedRecordIndex;
    if (nIdx < 0) return;

    String sId = EdNmbr->Text;
    if (sId.IsEmpty()) {
        Application->MessageBox(L"삭제할 VMS 동영상을 목록에서 선택하세요.\r\n목록에서 더블클릭하여 선택합니다.",
                                FTitle.c_str(), MB_OK|MB_ICONERROR|MB_APPLMODAL);
        return;
    }

    if (CheckFormObjectUseCount(sId) > 0)
    {
        Application->MessageBox(L"삭제할 동영상이 VMS 폼에서 사용되고 있습니다.\r\n먼저 해당 폼에서 삭제해주시기 바랍니다.",
                                FTitle.c_str(), MB_OK|MB_ICONERROR|MB_APPLMODAL);
        return;
    }

    String sMsg;
    sMsg = "VMS 폼객체 ID: " + sId;
    sMsg+= "\r\n선택하신 VMS 폼객체 동영상 정보를 삭제하시겠습니까?";
    if (Application->MessageBox(sMsg.c_str(), FTitle.c_str(), MB_YESNO|MB_ICONQUESTION|MB_APPLMODAL) == IDYES) {
        if (DeleteVmsSymbLib(sId, true))
        {
            FUpdate = true;

            String msg = "VMS 폼객체 동영상 정보삭제\r\nVMS 폼객체 동영상 정보를 삭제 하였습니다.";
            Application->MessageBox(msg.c_str(), FTitle.c_str(), MB_OK|MB_ICONINFORMATION|MB_APPLMODAL);

            FormInit();
            ChangeEditMode(1);

            LoadImageSymbol();
        }
    }
}
//---------------------------------------------------------------------------

void __fastcall TFrmVmsMsgVideoMngr::BtnSaveImgFileClick(TObject *Sender)
{
    SaveDialog->Title      = FTitle;
    SaveDialog->InitialDir = ExtractFilePath(Application->ExeName);
    SaveDialog->Filter     = "이미지 파일 (*." + CURR_PICT_EXT + ")|*." + CURR_PICT_EXT;
    SaveDialog->FileName   = EdNmbr->Text + "." + CURR_PICT_EXT;

    if (SaveDialog->Execute()) {
        try {
            String sFileName = SaveDialog->FileName;
            ImgGeneral->Picture->SaveToFile(sFileName);
        }
        catch (Exception &exception) {
            Application->ShowException(&exception);
        }
    }
}
//---------------------------------------------------------------------------

void __fastcall TFrmVmsMsgVideoMngr::EdImageFileNameClick(TObject *Sender)
{
#if 0
    if (OpenBmp->InitialDir == "") {
        OpenBmp->InitialDir = g_sAppDir;
    }

    OpenBmp->Title = FTitle;
    OpenBmp->FileName = "";
    OpenBmp->Execute();
#endif
}
//---------------------------------------------------------------------------

void __fastcall TFrmVmsMsgVideoMngr::OpenBmpCanClose(TObject *Sender, bool &CanClose)
{
    CURR_LOCAL_FILE_NM = OpenBmp->FileName;
    String sFilePath  = ExtractFilePath(CURR_LOCAL_FILE_NM);
    CURR_PIC_FILE_NM  = ExtractFileName(CURR_LOCAL_FILE_NM);
    String sFileExt   = ExtractFileExt(CURR_LOCAL_FILE_NM);

    OpenBmp->InitialDir = sFilePath;

    CURR_USE_YN = "Y";
    CURR_PICT_EXT = "";
    sFileExt = StringReplace(sFileExt, ".", "", TReplaceFlags() << rfReplaceAll);
    sFileExt = sFileExt.LowerCase();

    TSymbFmt *symbFmt = FSymbFmtLists.Find(sFileExt);
    if (symbFmt == NULL) {
        Application->MessageBox(L"VMS 동영상으로 지원하지 않는 형식입니다.\r\n지원형식(avi, mpeg, mkv, mp4)", L"동영상 추가 실패", MB_OK|MB_ICONERROR|MB_APPLMODAL);
        BtnInsertClick((TObject*)BtnInsert);
        return;
    }
    CURR_PICT_EXT = symbFmt->fmt;

    FImageUpdate = false;

    //CURR_SYMB_AVI_DATA->Clear();
    //CURR_SYMB_AVI_DATA->Position = 0;

    //CURR_SYMB_AVI_DATA->LoadFromFile(CURR_LOCAL_FILE_NM);
    //CURR_PICT_DATA_SZ = CURR_SYMB_AVI_DATA->Size;

    //TMemoryStream *pPicStream = new TMemoryStream();
    try {
        try {
            ////////////////////////////////////////////////
            if (!FFDecoder1->LoadFile(CURR_LOCAL_FILE_NM))
            {
                Application->MessageBox(L"동영상 파일을 읽어 오는데 실패하였습니다.", L"VMS 이미지 선택", MB_OK|MB_ICONERROR|MB_APPLMODAL);
                return;
            }

            if (FFDecoder1->Decode()) {
                FFDecoder1->CopyToBitmap(ImgTemp->Picture->Bitmap);

                ImgVideo->Picture->Bitmap->Width  = ImgVideo->Width;
                ImgVideo->Picture->Bitmap->Height = ImgVideo->Height;
                APP_ImageClear(ImgVideo->Canvas, 0, 0, ImgVideo->Width, ImgVideo->Height, clBlack);
                SetStretchBltMode(ImgVideo->Canvas->Handle, MAXSTRETCHBLTMODE);//HALFTONE);//MAXSTRETCHBLTMODE)//STRETCH_HALFTONE;
                ImgVideo->Canvas->CopyRect(Classes::Rect(0, 0, ImgVideo->Width, ImgVideo->Height),
                                           ImgTemp->Picture->Bitmap->Canvas,
                                           Classes::Rect(0, 0, ImgTemp->Picture->Bitmap->Width, ImgTemp->Picture->Bitmap->Height));

                CURR_PICT_WDTH = ImgTemp->Picture->Bitmap->Width;
                CURR_PICT_HGHT = ImgTemp->Picture->Bitmap->Height;

                CURR_PICT_DATA_SZ = FFDecoder1->FileSize;
                //CURR_PICT_DATA_SZ = pPicStream->Size;

                ImgVideo->Picture->Bitmap->SaveToStream(CURR_SYMB_DATA);
            }

            FFDecoder1->CloseFile();

            BtnPlay->Enabled = true;
            BtnStop->Enabled = false;
            BtnPause->Enabled = false;

            SeSize->Value = CURR_PICT_DATA_SZ;
            SeWidth->Value = CURR_PICT_WDTH;
            SeHeight->Value = CURR_PICT_HGHT;

            FImageUpdate = true;
        }
        catch(Exception &e) {
            String errMsg = "동영상 처리 중에 오류가 발생했습니다.\r\n" + e.Message;
            Application->MessageBox(errMsg.c_str(), L"동영상 추가 실패", MB_OK|MB_ICONERROR|MB_APPLMODAL);
        }
    }
    __finally {
        //SAFE_DELETE(pPicStream);
    }

    if (FImageUpdate == false) {
        BtnInsertClick((TObject*)BtnInsert);
    }
}
//---------------------------------------------------------------------------

void __fastcall TFrmVmsMsgVideoMngr::ClearListMemory()
{
#if 0
    try {
        TvList->BeginUpdate();

        int nRowCnt = TvList->ViewData->RecordCount;
        for (int ii = 0; ii < nRowCnt; ii++) {
            TcxCustomGridRow* ARow = TvList->ViewData->Rows[ii];
            TMemoryStream *pImgStream = (TMemoryStream *)(int)ARow->Values[Column99->Index];
            SAFE_DELETE(pImgStream);
        }
    }
    __finally {
        TvList->EndUpdate();
    }
#endif
    CMM_ClearGridTableView(TvList);
}
//---------------------------------------------------------------------------

void __fastcall TFrmVmsMsgVideoMngr::LoadImageSymbol()
{
    FormInit();

    ClearListMemory();

    String sQry;
    TADOQuery *pADO = NULL;

    sQry = "SELECT *                        \r\n"
           "  FROM TB_VMS_FORM_OBJ_MOV      \r\n"
           " WHERE 1=1                      \r\n"
           " ORDER BY VMS_FORM_OBJ_ID       \r\n";

    int nRowHeight = 0;
    try
    {
        int nRow;
        TcxDataController *pGDC = TvList->DataController;
        TvList->BeginUpdate();
        try
        {
            pADO = new TADOQuery(NULL);
			pADO->Close();
            pADO->Connection = ITSDb_GetConnection();

            ITSDb_SQLText(pADO, sQry);
            ITSDb_SQLOpen(pADO);

            String imageFilePath;
            String videoFilePath;
            String saveDirPath = TPath::GetTempPath() + "VMS\\";
            ForceDirectories(saveDirPath.c_str());
            for( ; !pADO->Eof; pADO->Next())
            {
                nRow = pGDC->AppendRecord();

                String VMS_FORM_OBJ_ID = pADO->FieldByName("VMS_FORM_OBJ_ID")->AsString;
                String MOV_TYPE        = pADO->FieldByName("MOV_TYPE")->AsString;
                pGDC->Values[nRow][ColSYMB_NMBR->Index]     = VMS_FORM_OBJ_ID;
                pGDC->Values[nRow][ColSYMB_NM->Index]       = pADO->FieldByName("MOV_NM")->AsString;
                pGDC->Values[nRow][ColSYMB_DATA->Index]     = pADO->FieldByName("THMB_IMG")->AsVariant;
                pGDC->Values[nRow][ColSYMB_FILE_EXT->Index] = DbMovieTypeToReal(MOV_TYPE);
                pGDC->Values[nRow][ColSYMB_SIZE->Index]     = pADO->FieldByName("MOV_DATA_SZ")->AsInteger;
                //pGDC->Values[nRow][ColSYMB_WDTH->Index]     = pADO->FieldByName("PICT_WDTH")->AsInteger;
                //pGDC->Values[nRow][ColSYMB_HGHT->Index]     = pADO->FieldByName("PICT_HGHT")->AsInteger;
                pGDC->Values[nRow][ColMOV_TYPE->Index]      = MOV_TYPE;

                String MOVIE_FILE_EXT = DbMovieTypeToReal(MOV_TYPE);

                TMemoryStream *pAviStream = new TMemoryStream();
                pAviStream->LoadFromStream(pADO->CreateBlobStream(pADO->FieldByName("MOV_DATA"), bmRead));
                videoFilePath = saveDirPath + VMS_FORM_OBJ_ID + "." + MOVIE_FILE_EXT;
                pAviStream->SaveToFile(videoFilePath);
                SAFE_DELETE(pAviStream);

                TMemoryStream *pImgStream = new TMemoryStream();
                pImgStream->LoadFromStream(pADO->CreateBlobStream(pADO->FieldByName("THMB_IMG"), bmRead));
                String MOVE_EXT = DbMovieTypeToReal(MOV_TYPE);
                imageFilePath = saveDirPath + VMS_FORM_OBJ_ID + ".bmp";
                pImgStream->SaveToFile(imageFilePath);
                SAFE_DELETE(pImgStream);

                pGDC->Values[nRow][ColImagePath->Index] = imageFilePath;
                pGDC->Values[nRow][ColVideoPath->Index] = videoFilePath;
            }
        }
        catch(EDatabaseError &E)
        {
            DBERRORMSG("TFrmVmsSymbMngr::LoadImageSymbol", String(E.ClassName()), E.Message, sQry);
            throw Exception(String(E.ClassName()) + E.Message);
        }
        catch(Exception &e)
        {
            DBERRORMSG("TFrmVmsSymbMngr::LoadImageSymbol", String(e.ClassName()), e.Message, sQry);
            throw Exception(String(e.ClassName()) + e.Message);
        }
    }
    __finally
    {
        if (pADO)
        {
            pADO->Close();
            delete pADO;
        }
        TvList->EndUpdate();
        TvList->ApplyBestFit(NULL, false, false);
    }
}
//---------------------------------------------------------------------------

void __fastcall TFrmVmsMsgVideoMngr::TvListCellDblClick(TcxCustomGridTableView *Sender, TcxGridTableDataCellViewInfo *ACellViewInfo,
          TMouseButton AButton, TShiftState AShift,
          bool &AHandled)
{
	if (!ACellViewInfo) return;
    DisplayInfo();
}
//---------------------------------------------------------------------------

void __fastcall TFrmVmsMsgVideoMngr::ColSYMB_DATACustomDrawCell(TcxCustomGridTableView *Sender,
          TcxCanvas *ACanvas, TcxGridTableDataCellViewInfo *AViewInfo,
          bool &ADone)
{
#if 0
    int nRow = AViewInfo->GridRecord->RecordIndex;
    if (nRow < 0) return;

    try
    {
        Graphics::TBitmap *pBmp = (Graphics::TBitmap*)FListSymb->Items[nRow];

        TRect rc;
        TRect rcOrg = AViewInfo->Bounds;
        int nH = ( (rcOrg.Bottom - rcOrg.Top) - pBmp->Height ) / 2;

        rc.Top    = rcOrg.Top    + nH+1;
        rc.Bottom = rcOrg.Bottom - nH+1;
        rc.Left   = rcOrg.Left + 1;
        rc.Right  = rc.Left + pBmp->Width;

        ACanvas->Canvas->StretchDraw(rc, pBmp);
        ADone = true;
    }
    catch(Exception &e)
    {
    }
#endif
}
//---------------------------------------------------------------------------

void __fastcall TFrmVmsMsgVideoMngr::TvListFocusedRecordChanged(TcxCustomGridTableView *Sender,
          TcxCustomGridRecord *APrevFocusedRecord, TcxCustomGridRecord *AFocusedRecord,
          bool ANewItemRecordFocusingChanged)
{
    if (!AFocusedRecord) return;
    DisplayInfo();
}
//---------------------------------------------------------------------------

void __fastcall TFrmVmsMsgVideoMngr::CbTypePropertiesChange(TObject *Sender)
{
    if (CbType->Text.Pos(SBT_GENERAL)) {
        //if (LblDesc->Visible) LblDesc->Visible = false;
    }
    else {
        //if (LblDesc->Visible == false) LblDesc->Visible = true;
    }
}
//---------------------------------------------------------------------------

void __fastcall TFrmVmsMsgVideoMngr::PnlMenuDblClick(TObject *Sender)
{
    FIsUpdate = true;
}
//---------------------------------------------------------------------------

bool __fastcall TFrmVmsMsgVideoMngr::DeleteVmsSymbLib(String VMS_FORM_OBJ_ID, bool ADelete)
{
    String sQry;
    TADOQuery *pADO = NULL;

    if (ADelete) {
    sQry = "DELETE TB_VMS_FORM_OBJ_MOV     \r\n"
           " WHERE VMS_FORM_OBJ_ID = :p01  \r\n";
    }
    else {
    sQry = "UPDATE TB_VMS_FORM_OBJ_MOV      \r\n"
           "   SET CHNGR_ID  = :p02,        \r\n"
           "       CHG_DT    = SYSDATE      \r\n"
           " WHERE VMS_FORM_OBJ_ID = :p01   \r\n";
    }

    try
    {
        try
        {
            pADO = new TADOQuery(NULL);
			pADO->Close();
            pADO->Connection = ITSDb_GetConnection();

            ITSDb_SQLText(pADO, sQry);

            pADO->Parameters->ParamByName("p01")->Value = VMS_FORM_OBJ_ID;
            if (!ADelete) {
            pADO->Parameters->ParamByName("p02")->Value = g_AppCfg.OPER_ID;
            }

			pADO->ExecSQL();
        }
        catch(EDatabaseError &E)
        {
            DBERRORMSG("TFrmVmsSymbMngr::DeleteVmsSymbLib", String(E.ClassName()), E.Message, sQry);
            return false;
        }
        catch(Exception &e)
        {
            DBERRORMSG("TFrmVmsSymbMngr::DeleteVmsSymbLib", String(e.ClassName()), e.Message, sQry);
            return false;
        }
    }
    __finally
    {
        if (pADO)
        {
            pADO->Close();
            delete pADO;
        }

    }
    return true;
}
//---------------------------------------------------------------------------

bool __fastcall TFrmVmsMsgVideoMngr::UpdateVmsSymbLib(String VMS_FORM_OBJ_ID, String PICT_NM)
{
    String sQry;
    TADOQuery *pADO = NULL;

    sQry = "UPDATE TB_VMS_FORM_OBJ_MOV      \r\n"
           "   SET MOV_NM   = :p02,         \r\n"
           "       CHNGR_ID  = :p03,        \r\n"
           "       CHG_DT    = SYSDATE      \r\n"
           " WHERE VMS_FORM_OBJ_ID = :p01   \r\n";

    try
    {
        try
        {
            pADO = new TADOQuery(NULL);
			pADO->Close();
            pADO->Connection = ITSDb_GetConnection();

            ITSDb_SQLText(pADO, sQry);

            pADO->Parameters->ParamByName("p01")->Value = VMS_FORM_OBJ_ID;
            pADO->Parameters->ParamByName("p02")->Value = PICT_NM;
            pADO->Parameters->ParamByName("p03")->Value = g_AppCfg.OPER_ID;

			pADO->ExecSQL();
        }
        catch(EDatabaseError &E)
        {
            DBERRORMSG("TFrmVmsSymbMngr::UpdateVmsSymbLib", String(E.ClassName()), E.Message, sQry);
            return false;
        }
        catch(Exception &e)
        {
            DBERRORMSG("TFrmVmsSymbMngr::UpdateVmsSymbLib", String(e.ClassName()), e.Message, sQry);
            return false;
        }
    }
    __finally
    {
        if (pADO)
        {
            pADO->Close();
            delete pADO;
        }

    }
    return true;
}
//---------------------------------------------------------------------------
bool __fastcall TFrmVmsMsgVideoMngr::InsertVmsSymbLib(String VMS_FORM_OBJ_ID,
                                                  String PICT_NM,
                                                  String PICT_EXT,
                                                  int    PICT_DATA_SZ,
                                                  int    PICT_WDTH,
                                                  int    PICT_HGHT,
                                                  String USE_YN) {
    String sQry;
    TADOQuery *pADO = NULL;

    sQry = "INSERT INTO TB_VMS_FORM_OBJ_MOV (      \r\n"
           "            VMS_FORM_OBJ_ID,           \r\n"
           "            MOV_NM,                    \r\n"
           "            MOV_DATA_SZ,               \r\n"
           "            MOV_DATA,                  \r\n"
           "            MOV_TYPE,                  \r\n"
           "            THMB_IMG_SZ,               \r\n"
           "            THMB_IMG,                  \r\n"
           "            RGSTR_ID,                  \r\n"
           "            REG_DT )                   \r\n"
           "   VALUES (                            \r\n"
           "           :p01,                       \r\n"
           "           :p02,                       \r\n"
           "           :p03,                       \r\n"
           "           :p04,                       \r\n"
           "           :p05,                       \r\n"
           "           :p06,                       \r\n"
           "           :p07,                       \r\n"
           "           :p08,                       \r\n"
           "           SYSDATE )                   \r\n";

	TMemoryStream *dataStream = new TMemoryStream();
    TMemoryStream *imagStream = new TMemoryStream();
    try
    {
       	dataStream->LoadFromFile(CURR_LOCAL_FILE_NM);
        ImgTemp->Picture->Bitmap->SaveToStream(imagStream);
        try
        {
            pADO = new TADOQuery(NULL);
			pADO->Close();
            pADO->Connection = ITSDb_GetConnection();

            ITSDb_SQLText(pADO, sQry);

            pADO->Parameters->ParamByName("p01")->Value = VMS_FORM_OBJ_ID;
            pADO->Parameters->ParamByName("p02")->Value = PICT_NM;
            pADO->Parameters->ParamByName("p03")->Value = PICT_DATA_SZ;
            pADO->Parameters->ParamByName("p04")->LoadFromStream(dataStream, ftBlob);
            pADO->Parameters->ParamByName("p05")->Value = RealMovieTypeToDb(PICT_EXT);
            pADO->Parameters->ParamByName("p06")->Value = imagStream->Size;
            pADO->Parameters->ParamByName("p07")->LoadFromStream(imagStream, ftBlob);
            pADO->Parameters->ParamByName("p08")->Value = g_AppCfg.OPER_ID;

			pADO->ExecSQL();
        }
        catch(EDatabaseError &E)
        {
            DBERRORMSG("TFrmVmsSymbMngr::InsertVmsSymbLib", String(E.ClassName()), E.Message, sQry);
            return false;
        }
        catch(Exception &e)
        {
            DBERRORMSG("TFrmVmsSymbMngr::InsertVmsSymbLib", String(e.ClassName()), e.Message, sQry);
            return false;
        }
    }
    __finally
    {
        if (pADO)
        {
            pADO->Close();
            delete pADO;
        }
        SAFE_DELETE(dataStream);
        SAFE_DELETE(imagStream);
    }
    return true;
}
//---------------------------------------------------------------------------
String __fastcall TFrmVmsMsgVideoMngr::GetNewVmsFormMovObjId()
{
    String sQry;
    TADOQuery *pADO = NULL;
    String result = "MV-0000000";
    sQry = "SELECT 'MV-' || LPAD(NVL(MAX(SUBSTR(VMS_FORM_OBJ_ID, -7)), '0000000') + 1, 7, '0') AS NEWID FROM TB_VMS_FORM_OBJ_MOV WHERE SUBSTR(VMS_FORM_OBJ_ID, 1,3) = 'MV-'\r\n";

    try
    {
        try
        {
            pADO = new TADOQuery(NULL);
			pADO->Close();
            pADO->Connection = ITSDb_GetConnection();

            ITSDb_SQLText(pADO, sQry);
            ITSDb_SQLOpen(pADO);

			pADO->Open();
            result = pADO->FieldByName("NEWID")->AsString;
        }
        catch(EDatabaseError &E)
        {
            DBERRORMSG("TFrmVmsSymbMngr::GetNewVmsFormMovObjId", String(E.ClassName()), E.Message, sQry);
            return result;
        }
        catch(Exception &e)
        {
            DBERRORMSG("TFrmVmsSymbMngr::GetNewVmsFormMovObjId", String(e.ClassName()), e.Message, sQry);
            return result;
        }
    }
    __finally
    {
        if (pADO)
        {
            pADO->Close();
            delete pADO;
        }
    }
    return result;
}
//---------------------------------------------------------------------------

void __fastcall TFrmVmsMsgVideoMngr::MnuAddVmsSymbClick(TObject *Sender)
{
    int START_NMBR, END_NMBR;

    TMenuItem *pMenu = (TMenuItem*)Sender;
    switch(pMenu->Tag) {
    case 1: CURR_SYMB_TYPE = SBT_GENERAL;  START_NMBR = 1000; END_NMBR = 1999; break;  // 일반
    case 2: CURR_SYMB_TYPE = SBT_TRAFFIC;  START_NMBR = 2000; END_NMBR = 2999; break;  // 소통정보
    case 3: CURR_SYMB_TYPE = SBT_ATMP;     START_NMBR = 3000; END_NMBR = 3999; break;  // 대기환경
    case 4: CURR_SYMB_TYPE = SBT_WEATHER;  START_NMBR = 4000; END_NMBR = 4999; break;  // 기상정보
    case 5: CURR_SYMB_TYPE = SBT_INCIDENT; START_NMBR = 5000; END_NMBR = 5999; break;  // 돌발
    case 6: CURR_SYMB_TYPE = SBT_VIDEO;    START_NMBR = 6000; END_NMBR = 6999; break;  // 동영상
    case 7: CURR_SYMB_TYPE = SBT_TRAFBAK;  START_NMBR = 7000; END_NMBR = 7999; break;  // 소통정보배경
    default: return;
    }

    String symbDefExt = "";
    String symbFilter = "";
#if 0
    switch(pMenu->Tag) {
    case 1: symbDefExt = "bmp"; symbFilter = "심벌 (*.gif;*.png;*.jpg;*.jpeg;*.bmp;*.ico)|*.gif;*.png;*.jpg;*.jpeg;*.bmp;*.ico"; break;  // 일반
    case 2: symbDefExt = "bmp"; symbFilter = "소통정보 (*.bmp)|*.bmp"; break;  // 소통정보
    case 3: symbDefExt = "bmp"; symbFilter = "대기환경 (*.gif;*.png;*.jpg;*.jpeg;*.bmp)|*.gif;*.png;*.jpg;*.jpeg;*.bmp"; break;  // 대기환경
    case 4: symbDefExt = "bmp"; symbFilter = "기상정보 (*.gif;*.png;*.jpg;*.jpeg;*.bmp;*.avi)|*.gif;*.png;*.jpg;*.jpeg;*.bmp;*.avi"; break;  // 기상정보
    case 5: symbDefExt = "bmp"; symbFilter = "돌발 (*.gif;*.png;*.jpg;*.jpeg;*.bmp)|*.gif;*.png;*.jpg;*.jpeg;*.bmp"; break;  // 돌발
    case 6: symbDefExt = "avi"; symbFilter = "동영상 (*.avi)|*.avi"; break;  // 동영상
    case 7: symbDefExt = "bmp"; symbFilter = "소통정보배경 (*.bmp)|*.bmp"; break;  // 소통정보배경
    default: return;
    }
#else
    switch(pMenu->Tag) {
    case 1: symbDefExt = "bmp"; symbFilter = "심벌 (*.gif;*.bmp)|*.gif;*.bmp"; break;  // 일반
    case 2: symbDefExt = "bmp"; symbFilter = "소통정보 (*.bmp)|*.bmp"; break;  // 소통정보
    case 3: symbDefExt = "bmp"; symbFilter = "대기환경 (*.gif;*.bmp)|*.gif;*.bmp"; break;  // 대기환경
    case 4: symbDefExt = "bmp"; symbFilter = "기상정보 (*.gif;*.bmp)|*.gif;*.bmp"; break;  // 기상정보
    case 5: symbDefExt = "bmp"; symbFilter = "돌발 (*.gif;*.bmp)|*.gif;*.bmp"; break;  // 돌발
    case 6: symbDefExt = "avi"; symbFilter = "동영상 (*.avi;*.mpeg;*.mkv;*.mp4)|*.avi;*.mpeg;*.mkv;*.mp4"; break;  // 동영상
    case 7: symbDefExt = "bmp"; symbFilter = "소통정보배경 (*.bmp)|*.bmp"; break;  // 소통정보배경
    default: return;
    }
#endif
    OpenBmp->DefaultExt = symbDefExt;
    OpenBmp->Filter = symbFilter;

    FormInit();

    CURR_VMS_FORM_OBJ_ID = GetNewVmsFormMovObjId();
    EdNmbr->Text = CURR_VMS_FORM_OBJ_ID;

    ChangeEditMode(2);
    FNewDb = true;

    if (OpenBmp->InitialDir == "") {
        OpenBmp->InitialDir = g_sAppDir;
    }

    OpenBmp->Title = FTitle;
    OpenBmp->FileName = "";
    if (!OpenBmp->Execute()) {
        ChangeEditMode(1);
    }
}
//---------------------------------------------------------------------------

void __fastcall TFrmVmsMsgVideoMngr::ChangeSymbPage(String ASymbType)
{
    int itemIdx = -1;
    for (int ii = 0; ii < CbType->Properties->Items->Count; ii++) {
        String itemText = CbType->Properties->Items->Strings[ii];
        if (itemText.Pos(ASymbType)) {
            itemIdx = ii;
            break;
        }
    }
    CbType->ItemIndex = itemIdx;

    if (ASymbType == SBT_TRAFFIC
     || ASymbType == SBT_ATMP
     || ASymbType == SBT_WEATHER
     || ASymbType == SBT_INCIDENT) {
        EdExpl->Properties->ReadOnly = true;
    }
    else EdExpl->Properties->ReadOnly = false;

    TcxTabSheet *pNewActive = NULL;
    String grpSymbCaption = "▶ 일반 심볼 이미지";
    if (ASymbType == SBT_GENERAL) {
        pNewActive = TsSbt1;
        grpSymbCaption = "▶ 일반 심볼 이미지";
    }
    else if (ASymbType == SBT_TRAFFIC) {
        pNewActive = TsSbt2;
        grpSymbCaption = "▶ 소통정보 심볼 이미지";
    }
    else if (ASymbType == SBT_ATMP)
    {
        pNewActive = TsSbt3;
        grpSymbCaption = "▶ 대기환경 심볼 이미지";
    }
    else if (ASymbType == SBT_WEATHER) {
        pNewActive = TsSbt4;
        grpSymbCaption = "▶ 기상정보 심볼 이미지";
    }
    else if (ASymbType == SBT_INCIDENT) {
        pNewActive = TsSbt5;
        grpSymbCaption = "▶ 돌발 심볼 이미지";
    }
    else if (ASymbType == SBT_VIDEO) {
        pNewActive = TsSbt6;
        grpSymbCaption = "▶ 동영상 심볼 이미지";
    }
    else if (ASymbType == SBT_TRAFBAK) {
        pNewActive = TsSbt7;
        grpSymbCaption = "▶ 소통정보 배경 심볼 이미지";
    }
    else return;

    TcxTabSheet *pCurActive = PgSymb->Properties->ActivePage;
    if (pNewActive != pCurActive) {
        PgSymb->Properties->ActivePage = pNewActive;
        GrpSymbBox->Caption = grpSymbCaption;
    }
}
//---------------------------------------------------------------------------

String __fastcall TFrmVmsMsgVideoMngr::GetSymbTypeDesc(String ASymbType)
{
    if (ASymbType == SBT_GENERAL) {
        return "일반";
    }
    else if (ASymbType == SBT_TRAFFIC) {
        return "소통정보";
    }
    else if (ASymbType == SBT_ATMP)
    {
        return "대기환경";
    }
    else if (ASymbType == SBT_WEATHER) {
        return "기상정보";
    }
    else if (ASymbType == SBT_INCIDENT) {
        return "돌발";
    }
    else if (ASymbType == SBT_VIDEO) {
        return "동영상";
    }
    else if (ASymbType == SBT_TRAFBAK) {
        return "소통정보 배경";
    }
    return "?-" + ASymbType;
}
//---------------------------------------------------------------------------

void __fastcall TFrmVmsMsgVideoMngr::FFPlayer1FileOpen(TObject *Sender, const __int64 ADuration, int AFrameWidth, int AFrameHeight,
          int &AScreenWidth, int &AScreenHeight)
{
#if 0
    FPlayTime = (ADuration + 5000) / 1000000;
    FPlayTime++;
    FThumbNail = 0;
    FMakeThumbNail = true;
#endif

    FDuration = ADuration;
    lblDuration->Caption = DurationToStr(ADuration);
    lblCurrentPTS->Caption = "N/A";

    // setup track bar
    TrackBar->Frequency = 5;
    TrackBar->TickStyle = tsAuto;
    TrackBar->Max = TrackBar->Width;
    TrackBar->SelStart = 0;
    TrackBar->SelEnd = 0;
    TrackBar->SliderVisible = ADuration > 0;

    FTrackChanging = true;
    try
    {
        TrackBar->Position = 0;
    }
    __finally
    {
        FTrackChanging = false;
    }
}
//---------------------------------------------------------------------------

void __fastcall TFrmVmsMsgVideoMngr::FFPlayer1OpenFailed(TObject *Sender)
{
    String sLastErrMsg = FFPlayer1->LastErrMsg;
    PnlPlayer->Caption = sLastErrMsg;
}
//---------------------------------------------------------------------------

void __fastcall TFrmVmsMsgVideoMngr::FFPlayer1Position(TObject *Sender, const __int64 APTS)
{
    lblCurrentPTS->Caption = DurationToStr(APTS);
    if ((APTS >= 0) && (FDuration > 0))
    {
        TrackBar->SelEnd = TrackBar->Max * APTS / FDuration;
        if (FTrackChanging == false && (IsMouseDown() == false ||  TrackBar->Focused() == false))
        {
            FTrackChanging = true;
            try
            {
                TrackBar->Position = TrackBar->Max * APTS / FDuration;
            }
            __finally
            {
                FTrackChanging = false;
            }
        }
        if (FMakeThumbNail)
        {
            FThumbNail++;
            if (FThumbNail > 2)
            {
                //섬네일이미지 생성
                FMakeThumbNail = false;
            }
        }
    }
}
//---------------------------------------------------------------------------

void __fastcall TFrmVmsMsgVideoMngr::FFPlayer1State(TObject *Sender, TPlayState APlayState)
{
    switch(APlayState)
    {
    case Ffbasecomponent::psPlay:
    case Ffbasecomponent::psResume:
        break;
    case Ffbasecomponent::psPause:
    case Ffbasecomponent::psStep:
        break;
    case Ffbasecomponent::psStop:
        if (FFPlayer1->ScreenHandle != NULL)
        {
            PostMessage(FFPlayer1->ScreenHandle, CM_INVALIDATE, 0, 0);
            UpdateWindow(FFPlayer1->ScreenHandle);
        }
        break;
    case Ffbasecomponent::psEnd:
        {
            FFPlayer1->Stop(true);
            //FFPlayer1->Seek((__int64)0, TSeekFlags()<<sfBackward);
        }
        break;
    }
}
//---------------------------------------------------------------------------

void __fastcall TFrmVmsMsgVideoMngr::TrackBarChange(TObject *Sender)
{
    if (!FTrackChanging && !IsMouseDown())
    {
        FFPlayer1->Seek(FDuration * TrackBar->Position / TrackBar->Max);
    }
}
//---------------------------------------------------------------------------

void __fastcall TFrmVmsMsgVideoMngr::BtnPlayClick(TObject *Sender)
{
    BtnPlay->Enabled = false;
Application->ProcessMessages();
    try {
        if (FFPlayer1->ScreenHandle != NULL)
        {
            FFPlayer1->Stop(true);
            PostMessage(FFPlayer1->ScreenHandle, CM_INVALIDATE, 0, 0);
            UpdateWindow(FFPlayer1->ScreenHandle);
        }

        FFPlayer1->AspectRatio = ChkFitScreen->Checked ? -1 : 0;
        FFPlayer1->TryOpen(CURR_LOCAL_FILE_NM, PnlPlayer->Handle);

Application->ProcessMessages();
    }
    catch(Exception &e)
    {
    }
    BtnStop->Enabled = true;
    BtnPause->Enabled = true;

    FPlayStream = true;
    ImgVideo->Visible = false;
}
//---------------------------------------------------------------------------

void __fastcall TFrmVmsMsgVideoMngr::BtnStopClick(TObject *Sender)
{
    BtnStop->Enabled = false;
    BtnPause->Enabled = false;
    if (FFPlayer1->ScreenHandle != NULL) {
        FFPlayer1->Stop(true);
    }
    BtnPlay->Enabled = true;
    FPlayStream = false;
    ImgVideo->Visible = true;
}
//---------------------------------------------------------------------------

void __fastcall TFrmVmsMsgVideoMngr::BtnPauseClick(TObject *Sender)
{
    try
    {
        if (FFPlayer1->ScreenHandle != NULL)
        {
            FFPlayer1->TogglePause();
        }
Application->ProcessMessages();
    }
    catch(Exception &e)
    {
    }
}
//---------------------------------------------------------------------------

void __fastcall TFrmVmsMsgVideoMngr::ChkFitScreenClick(TObject *Sender)
{
    FFPlayer1->AspectRatio = ChkFitScreen->Checked ? -1 : 0;
}
//---------------------------------------------------------------------------

TImage* __fastcall TFrmVmsMsgVideoMngr::GetPreviewSymb(String ASymbType)
{
    TImage *imagSymb = NULL;
    if (ASymbType == SBT_GENERAL) {
        imagSymb = ImgGeneral;
    }
    else if (ASymbType == SBT_TRAFFIC) {
        imagSymb = ImagTraffic;
    }
    else if (ASymbType == SBT_ATMP) {
        imagSymb = ImagAtmp;
    }
    else if (ASymbType == SBT_WEATHER) {
        imagSymb = ImagWeather;
    }
    else if (ASymbType == SBT_INCIDENT) {
        imagSymb = ImagIncident;
    }
    else if (ASymbType == SBT_VIDEO) {
        imagSymb = ImgVideo;
    }
    else if (ASymbType == SBT_TRAFBAK) {
        imagSymb = ImagTrafBack;
    }
    return imagSymb;
}
//---------------------------------------------------------------------------

void __fastcall TFrmVmsMsgVideoMngr::ImagTrafficMouseDown(TObject *Sender, TMouseButton Button, TShiftState Shift, int X, int Y)
{
    if (!FNewDb) return;

    ImageClear(ImagTraffic1);
    ImageClear(ImagTraffic2);
    ImageClear(ImagTraffic3);

    ImagTraffic1->Picture->Bitmap->Assign(ImagTraffic->Picture->Bitmap);
    ImagTraffic2->Picture->Bitmap->Assign(ImagTraffic->Picture->Bitmap);
    ImagTraffic3->Picture->Bitmap->Assign(ImagTraffic->Picture->Bitmap);

    TColor FOldColor = ImagTraffic->Picture->Bitmap->Canvas->Pixels[X][Y];

    ImagTraffic1->Picture->Bitmap->Canvas->Brush->Color = clLime;
    ImagTraffic1->Picture->Bitmap->Canvas->FloodFill(X, Y, FOldColor, fsSurface);

    ImagTraffic2->Picture->Bitmap->Canvas->Brush->Color = clYellow;
    ImagTraffic2->Picture->Bitmap->Canvas->FloodFill(X, Y, FOldColor, fsSurface);

    ImagTraffic3->Picture->Bitmap->Canvas->Brush->Color = clRed;
    ImagTraffic3->Picture->Bitmap->Canvas->FloodFill(X, Y, FOldColor, fsSurface);
}
//---------------------------------------------------------------------------

void __fastcall TFrmVmsMsgVideoMngr::ImageClear(TImage *AImage)
{
    AImage->Picture->Bitmap->FreeImage();
    AImage->Picture->Bitmap->ReleaseHandle();
    AImage->Picture->Assign(NULL);
    AImage->Repaint();
    AImage->Invalidate();
}
//---------------------------------------------------------------------------

void __fastcall TFrmVmsMsgVideoMngr::BtnSubImageSelectClick(TObject *Sender)
{
#if 0
    TcxButton *pBtn = (TcxButton*)Sender;

    FSelImag = NULL;
    switch(pBtn->Tag) {
    case 10: FSelImag = ImagAtmp1; break;
    case 11: FSelImag = ImagAtmp2; break;
    case 12: FSelImag = ImagAtmp3; break;
    case 13: FSelImag = ImagAtmp4; break;

    case 20: FSelImag = ImagWeather1; break;
    case 21: FSelImag = ImagWeather2; break;
    case 22: FSelImag = ImagWeather3; break;
    case 23: FSelImag = ImagWeather4; break;

    case 30: FSelImag = ImagIncident1; break;
    case 31: FSelImag = ImagIncident2; break;
    case 32: FSelImag = ImagIncident3; break;
    case 33: FSelImag = ImagIncident4; break;

    default: return;
    }

    OpenSubImag->DefaultExt = OpenBmp->DefaultExt;
    OpenSubImag->Filter = OpenBmp->Filter;

    OpenSubImag->InitialDir = OpenBmp->InitialDir;
    OpenSubImag->Title = FTitle;
    OpenSubImag->FileName = "";
    OpenSubImag->Execute();
#endif
}
//---------------------------------------------------------------------------

int __fastcall TFrmVmsMsgVideoMngr::CheckFormObjectUseCount(String AFORM_OBJ_ID)
{
    String     sQry;
    TADOQuery *pADO = NULL;
    int        nResult = 0;

    sQry = "SELECT COUNT(1) AS CNT          \r\n"
           "  FROM TB_VMS_FORM_VMS_FORM_OBJ \r\n"
           " WHERE VMS_FORM_OBJ_ID = :p01   \r\n";

    try {
        try {
            pADO = new TADOQuery(NULL);
			pADO->Close();
            pADO->Connection = ITSDb_GetConnection();

            ITSDb_SQLText(pADO, sQry);
            ITSDb_SQLBind(pADO, "p01", AFORM_OBJ_ID);
            ITSDb_SQLOpen(pADO);
            nResult = pADO->FieldByName("CNT")->AsInteger;
        }
        catch(EDatabaseError &E) {
            DBERRORMSG("CheckFormObjectUseCount", String(E.ClassName()), E.Message, sQry);
            return 1;
        }
        catch(Exception &e) {
            DBERRORMSG("CheckFormObjectUseCount", String(e.ClassName()), e.Message, sQry);
            return 1;
        }
    }
    __finally {
        if (pADO) {
            pADO->Close();
            delete pADO;
        }
    }
    return nResult;
}
//---------------------------------------------------------------------------