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

#include <vcl.h>
#pragma hdrstop

#include "FrmWebCamF.h"
#include "AppGlobalF.h"
#include "samsungPlayer1F.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
//TFrmWebCam *FrmWebCam = NULL;
//---------------------------------------------------------------------------
__fastcall TFrmWebCam::TFrmWebCam(TComponent* Owner, TItsWebCam *AObj)
    : TForm(Owner)
{
    FObj = AObj;
}
//---------------------------------------------------------------------------

/*
 * form을 보여줄때 호출되는 event 메서드이다.
 *  arguments
 *      Sender : event handler 객체
 *  return
 *      void
 */
void __fastcall TFrmWebCam::FormShow(TObject *Sender)
{
    if (FObj) PnlBack->Caption = FObj->ISTL_LCTN_NM;
    else      PnlBack->Caption = "";

    TmrShow->Enabled = true;
}
//---------------------------------------------------------------------------

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

    try
    {
        if (FObj)
        {
            Caption = FObj->WEB_CMRA_ID + ": " + FObj->ISTL_LCTN_NM;
            WebCamPlay();
        }
    }
    catch(...){}
}
//---------------------------------------------------------------------------

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

void __fastcall TFrmWebCam::FormDestroy(TObject *Sender)
{
    CommClose();
}
//---------------------------------------------------------------------------

/*
 * 닫기버튼 이나 x버튼 클릭시 공통으로 처리하는 로직이들어간다..
 * Form과 DataModule class를 delete시킨다.
 *  arguments
 *
 *  return
 *      void
 */
void __fastcall TFrmWebCam::CommClose()
{
    try {
        if (FObj)
        {
            FObj->FData2 = NULL;
        }
        WebCamStop();
    } catch(...) {}
}
//---------------------------------------------------------------------------

void __fastcall TFrmWebCam::WebCamPlay()
{
    if (!FObj) return;

    //FObj->STRM_SESN_NM = "rtsp://211.252.223.178/246/video2d";
    FPalyerForm = samsungPlayer1_create(this, PnlBack, FObj->WEB_CMRA_ID, FObj->ISTL_LCTN_NM,
                                        FObj->CMRA_IP,
                                        FObj->CMRA_PORT.ToIntDef(4520),
                                        FObj->ID,
                                        FObj->PSWD,
                                        g_AppCfg.vmscam.sComModel,
                                        g_AppCfg.vmscam.sDevModel);
}
//---------------------------------------------------------------------------

void __fastcall TFrmWebCam::WebCamStop()
{
    if (!FObj) return;

    if (FPalyerForm)
    {
        samsungPlayer1_stop(FPalyerForm);
        FPalyerForm = NULL;
    }
}
//---------------------------------------------------------------------------