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

#include <vcl.h>
#include "AppGlobalF.h"
#pragma hdrstop

#include "FrmCameraFullScreenF.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma link "AcesTechXPlayer2Lib_OCX"
#pragma resource "*.dfm"
TFrmCameraFullScreen *FrmCameraFullScreen = NULL;
//---------------------------------------------------------------------------
__fastcall TFrmCameraFullScreen::TFrmCameraFullScreen(TComponent* Owner)
    : TForm(Owner)
{
    this->Color = clBlack;
    PnlStream->ParentColor = false;
    PnlStream->Color = clBlack;

    //AcesTechXPlayer2->SetFullScreenModeOption(0);
    AcesTechXPlayer2->Align = alClient;
    AcesTechXPlayer2->Visible = true;
}
//---------------------------------------------------------------------------
void __fastcall TFrmCameraFullScreen::PnlStreamDblClick(TObject *Sender)
{
    Close();
}
//---------------------------------------------------------------------------
void __fastcall TFrmCameraFullScreen::FormClose(TObject *Sender, TCloseAction &Action)
{
    Disconnect();

    FrmCameraFullScreen = NULL;
}
//---------------------------------------------------------------------------
void __fastcall TFrmCameraFullScreen::FormDblClick(TObject *Sender)
{
    Close();
}
//---------------------------------------------------------------------------

void __fastcall TFrmCameraFullScreen::FormShow(TObject *Sender)
{
    Refresh();
    Application->ProcessMessages();

    this->Color = clBlack;
    PnlStream->ParentColor = false;
    PnlStream->Color = clBlack;

    Connect();
}
//---------------------------------------------------------------------------

void __fastcall TFrmCameraFullScreen::Connect()
{
    Disconnect();

    PnlStream->Caption = "Try connect...";

    try
    {
        AcesTechXPlayer2->URL = RTSP_ADDR;
        FConHandle = AcesTechXPlayer2->ConnectAsync();
        if (FConHandle > 0)
        {
        }
        Application->ProcessMessages();
    }
    catch(Exception &e)
    {
    }
    FPlay = true;
}
//---------------------------------------------------------------------------

void __fastcall TFrmCameraFullScreen::Disconnect()
{
    if (!FPlay) return;

    FPlay = false;
    PnlStream->Caption = "Try disconnect";
    try
    {
        if (FConHandle > 0)
        {
            AcesTechXPlayer2->Close();
        }
        Application->ProcessMessages();
        FConHandle = 0;
    }
    catch(Exception &e)
    {
    }

    PnlStream->Caption = "Disconnected";
    FConHandle = 0;
    FPlay = false;
}
//---------------------------------------------------------------------------

void __fastcall TFrmCameraFullScreen::TmrCloseTimer(TObject *Sender)
{
    TmrClose->Enabled = false;
    Close();
}
//---------------------------------------------------------------------------