ITS_OP/VmsCmraViewer - aces/SRC/FrmCameraPlayerF.cpp

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

#include <vcl.h>
#include "AppGlobalF.h"
#include "FrmCameraPlayerF.h"
#include "FrmCameraFullScreenF.h"
#include "FrmCameraInfoF.h"
#include "FrmCameraScreenF.h"
#pragma hdrstop

//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma link "cxContainer"
#pragma link "cxControls"
#pragma link "cxEdit"
#pragma link "cxGraphics"
#pragma link "cxLabel"
#pragma link "cxLookAndFeelPainters"
#pragma link "cxLookAndFeels"
#pragma link "dxSkinBlack"
#pragma link "dxSkinBlue"
#pragma link "dxSkinsCore"
#pragma link "dxGDIPlusClasses"
#pragma link "IdBaseComponent"
#pragma link "IdComponent"
#pragma link "IdExplicitTLSClientServerBase"
#pragma link "IdFTP"
#pragma link "IdTCPClient"
#pragma link "IdTCPConnection"
#pragma link "FFLog"
#pragma link "AcesTechXPlayer2Lib_OCX"
#pragma resource "*.dfm"

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

TFrmCameraPlayer *FrmCameraPlayer = NULL;
//---------------------------------------------------------------------------
__fastcall TFrmCameraPlayer::TFrmCameraPlayer(TComponent* Owner)
    : TForm(Owner)
{
    IsTerm = false;
    FPlay = false;
    FAutoPlay = true;
    FConHandle = 0;

    FFullScreen = false;

    FParent = this->Parent;
    PnlCamera->Tag = (int)this;

    //mmLog->Lines->Clear();
}
//---------------------------------------------------------------------------
void __fastcall TFrmCameraPlayer::TmrShowTimer(TObject *Sender)
{
    TmrShow->Enabled = false;
    if (IsTerm) {
        return;
    }

    if (Installed)
    {
        PopupMenu = PopupMenu1;
        ImgNoData->Visible = false;
        PnlName->Caption = CTLR_NMBR + ": " + NAME;
        Play();
    }
    else
    {
        AcesTechXPlayer21->Visible = false;
        PopupMenu = NULL;
        PnlCamera->Caption = NAME;
        LoadEmptyImage();
    }
}
//---------------------------------------------------------------------------

void __fastcall TFrmCameraPlayer::LoadEmptyImage()
{
    try
    {
#if 0
        String sImageFile = g_AppCfg.sEmptyImg;
        if (sImageFile != "")
        {
            ImgNoData->Picture->LoadFromFile(sImageFile);
            ImgNoData->Align = alClient;
        }
#endif
        ImgNoData->Visible = true;
    }
    catch(Exception &e)
    {
        ImgNoData->Visible = true;
    }
}
//---------------------------------------------------------------------------

void __fastcall TFrmCameraPlayer::FormShow(TObject *Sender)
{
    Refresh();
    this->FLastBounds = this->BoundsRect;
//    TmrShow->Enabled = true;
}
//---------------------------------------------------------------------------

void __fastcall TFrmCameraPlayer::FormClose(TObject *Sender, TCloseAction &Action)
{
    try {
        Stop();
    } catch(...) {}

    Action = caFree;
}
//---------------------------------------------------------------------------

void __fastcall TFrmCameraPlayer::FormDestroy(TObject *Sender)
{
    try {
        Stop();
    } catch(...) {}
}
//---------------------------------------------------------------------------

void __fastcall TFrmCameraPlayer::MnuConnectClick(TObject *Sender)
{
    FAutoPlay = true;
    Play();
}
//---------------------------------------------------------------------------

void __fastcall TFrmCameraPlayer::MnuDisconnectClick(TObject *Sender)
{
    FAutoPlay = false;
    Stop();
}
//---------------------------------------------------------------------------

void __fastcall TFrmCameraPlayer::AutoPlay()
{
    FAutoPlay = true;
    TmrShow->Enabled = true;
}
//---------------------------------------------------------------------------
void __fastcall TFrmCameraPlayer::Play()
{
    Stop();

    if (STRM_ADDR == "") {
        if (AcesTechXPlayer21->Visible) AcesTechXPlayer21->Visible = false;
        PnlCamera->Caption = "영상정보가 없습니다";
        return;
    }

    PnlCamera->Caption = "영상 연결 중...";
    try
    {
        AcesTechXPlayer21->URL = STRM_ADDR;
        FConHandle = AcesTechXPlayer21->ConnectAsync();
        if (FConHandle > 0)
        {
            if (AcesTechXPlayer21->Visible == false) AcesTechXPlayer21->Visible = true;
        }

        Application->ProcessMessages();
    }
    catch(Exception &e)
    {
    }
    FPlay = true;
}
//---------------------------------------------------------------------------

void __fastcall TFrmCameraPlayer::Term()
{
    IsTerm = true;
    Stop();
}
//---------------------------------------------------------------------------

void __fastcall TFrmCameraPlayer::Stop()
{
    if (!FPlay) return;

    FPlay = false;
    if (STRM_ADDR == "") {
        return;
    }

    PnlCamera->Caption = "영상 연결 해제...";
    try
    {
        if (FConHandle > 0)
        {
            AcesTechXPlayer21->Close();
        }
        Application->ProcessMessages();
        FConHandle = 0;
    }
    catch(Exception &e)
    {
    }

    PnlCamera->Caption = "영상 연결 종료";
    FConHandle = 0;
    FPlay = false;
}
//---------------------------------------------------------------------------

void __fastcall TFrmCameraPlayer::InitCamera(bool AInstalled, String ACtlrNmbr, String AName, String AStrmAddr, String AFullStrmAddr, int AViewMode)
{
    FAutoPlay      = true;
    Installed      = AInstalled;
    CTLR_NMBR      = ACtlrNmbr;
    NAME           = AName;
    STRM_ADDR      = AStrmAddr;
    FULL_STRM_ADDR = AFullStrmAddr;
    VIEW_MODE      = AViewMode;

    Caption = NAME;
    PnlName->Caption = NAME;
    PnlCamera->Caption = AStrmAddr;
}
//---------------------------------------------------------------------------

void __fastcall TFrmCameraPlayer::PnlCameraDblClick(TObject *Sender)
{
    // 여기서 더블클릭은 최대화면을 호출하는 것임
#if 0
    FrmCameraScreen->TmrFullScreen->Enabled = false;
    FrmCameraScreen->FFullScreenIdx = Tag;
    FrmCameraScreen->TmrFullScreen->Enabled = true;
#endif
}
//---------------------------------------------------------------------------

void __fastcall TFrmCameraPlayer::MnuInfoClick(TObject *Sender)
{
    FrmCameraInfo = new TFrmCameraInfo(this);
    FrmCameraInfo->Edit1->Text = CTLR_NMBR;
    FrmCameraInfo->Edit2->Text = NAME;
    FrmCameraInfo->Edit3->Text = STRM_ADDR;
    FrmCameraInfo->Edit4->Text = FULL_STRM_ADDR;
    FrmCameraInfo->ShowModal();
    FrmCameraInfo = NULL;
}
//---------------------------------------------------------------------------