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

#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 "FFBaseComponent"
#pragma link "FFBasePlay"
#pragma link "FFPlay"
#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 resource "*.dfm"

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

#define FFPLAYER    1

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();
    FFPlayer1->SetLicenseKey(LICENSE_KEY);
    FFPlayer1->DisableFPUExceptions();
    //FFPlayer1->ReadTimeout = 30 * 1000;

    //FFPlayer1->opt_default("fpsprobesize", "200000");
    //FFPlayer1->opt_default("probesize", "200000");

    if (!FFPlayer1->AVLibLoaded())
    {
        String sAVILibDir = g_sAppDir + "LibAV";
        if (!FFPlayer1->LoadAVLib(sAVILibDir))
        {
            Application->MessageBox(L"영상표출 라이브러리를 로드하지 못하였습니다.", L"영상표출 오류", MB_OK|MB_ICONERROR|MB_APPLMODAL);
            return;
        }
    }
}
//---------------------------------------------------------------------------
void __fastcall TFrmCameraPlayer::LogPanel(String ALogMsg)
{
    PnlCamera->Caption = ALogMsg;
    PnlCamera->Refresh();
}
//---------------------------------------------------------------------------

void __fastcall TFrmCameraPlayer::TmrShowTimer(TObject *Sender)
{
LogPanel("11111");
    TmrShow->Enabled = false;
    if (IsTerm) {
LogPanel("22222");
        return;
    }

LogPanel("33333");
    if (Installed)
    {
LogPanel("44444");
        PopupMenu = PopupMenu1;
        ImgNoData->Visible = false;
        PnlName->Caption = CTLR_NMBR + ": " + NAME;
        Play();
    }
    else
    {
LogPanel("66666");
        PopupMenu = NULL;
        LogPanel(NAME);
        LoadEmptyImage();
LogPanel("77777");
    }
}
//---------------------------------------------------------------------------

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 == "") {
        LogPanel("*** 영상정보가 없습니다 ***");
        return;
    }

    LogPanel("영상 연결 중...");
    try
    {
        FFPlayer1->OnPosition = NULL;
        FFPlayer1->OnFrameHook = NULL;
        FFPlayer1->OnVideoHook = NULL;

        FFPlayer1->AspectRatio = -1;
        FFPlayer1->TryOpen(STRM_ADDR, PnlCamera->Handle);
        FConHandle = (long)FFPlayer1->ScreenHandle;
        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;
    }

    LogPanel("영상 연결 해제...");
    try
    {
        if (FFPlayer1->ScreenHandle != NULL)
        {
            FFPlayer1->Stop(true);
            PostMessage(FFPlayer1->ScreenHandle, CM_INVALIDATE, 0, 0);
            UpdateWindow(FFPlayer1->ScreenHandle);
        }
        //FFPlayer1->OnAudioHook = NULL;

        Application->ProcessMessages();
    }
    catch(Exception &e)
    {
    }

    LogPanel("--- 영상 연결 종료 ---");
    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;
    LogPanel(AStrmAddr);
}
//---------------------------------------------------------------------------

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

void __fastcall TFrmCameraPlayer::FFPlayer1State(TObject *Sender, TPlayState APlayState)
{
enum TPlayState { psPlay, psPause, psResume, psStep, psStop, psEnd };

    if (APlayState == Ffbasecomponent::psStop)// || APlayState == Ffbasecomponent::psEnd)
    {
        if (FPlay)
        {
#if 0
            FPlay = false;
            if (FFPlayer1->ScreenHandle != NULL)
            {
                PostMessage(FFPlayer1->ScreenHandle, CM_INVALIDATE, 0, 0);
                UpdateWindow(FFPlayer1->ScreenHandle);
            }
            Application->ProcessMessages();
            FConHandle = 0;
#endif
            //Caption = Caption + " : 연결종료";

            LogPanel("!!! 연결이 종료됨 !!!");

            if (TmrShow->Enabled) {
                TmrShow->Enabled = false;
            }
            TmrShow->Interval = 500;
            TmrShow->Enabled = true;
            //Play();
        }
    }
    else {
        if (FFPlayer1->Paused) {
            FFPlayer1->Resume();
        }
    }


#if 0
    if (APlayState == Ffbasecomponent::psPlay) {
        LogPanel("Play...");
    }
    else if (APlayState == Ffbasecomponent::psPause) {
        LogPanel("Pause...");
    }
    else if (APlayState == Ffbasecomponent::psResume) {
        LogPanel("Resume...");
    }
    else if (APlayState == Ffbasecomponent::psStep) {
        LogPanel("Step...");
    }
    else if (APlayState == Ffbasecomponent::psStop) {
        //LogPanel("Stop...");
    }
    else if (APlayState == Ffbasecomponent::psEnd) {
        //LogPanel("End...");
    }
#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;
}
//---------------------------------------------------------------------------