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

#include <vcl.h>
#pragma hdrstop

#include "FrmMainF.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma link "AcesTechXPlayer2Lib_OCX"
#pragma resource "*.dfm"
TFrmMain *FrmMain;
//---------------------------------------------------------------------------
__fastcall TFrmMain::TFrmMain(TComponent* Owner)
    : TForm(Owner)
{
    FConHandle = 0;
    FStrmAddr = "";
    AcesTechXPlayer21->Align = alClient;
}
//---------------------------------------------------------------------------
void __fastcall TFrmMain::BtnPlayClick(TObject *Sender)
{
    String sStrmAddr = EdStrmAddr->Text.Trim();
    if (sStrmAddr == "") {
        Application->MessageBox(L"¿µ»óÁÖ¼Ò¸¦ ÀÔ·ÂÇϼ¼¿ä.", Caption.c_str(), MB_OK|MB_ICONERROR|MB_APPLMODAL);
        EdStrmAddr->SetFocus();
        return;
    }

    Play(sStrmAddr);
}
//---------------------------------------------------------------------------

void __fastcall TFrmMain::BtnStopClick(TObject *Sender)
{
    Stop();
}
//---------------------------------------------------------------------------

void __fastcall TFrmMain::Play(String AStrmAddr)
{
    Stop();

    FStrmAddr = AStrmAddr;

    try
    {
        AcesTechXPlayer21->URL = FStrmAddr;
        FConHandle = AcesTechXPlayer21->ConnectAsync();

        Application->ProcessMessages();
    }
    catch(Exception &e)
    {
    }
}
//---------------------------------------------------------------------------
void __fastcall TFrmMain::Stop()
{
    try
    {
        if (FConHandle > 0)
        {
            AcesTechXPlayer21->Close();
        }
        Application->ProcessMessages();
        FConHandle = 0;
    }
    catch(Exception &e)
    {
    }
}
//---------------------------------------------------------------------------

void __fastcall TFrmMain::FormClose(TObject *Sender, TCloseAction &Action)
{
    Stop();
}
//---------------------------------------------------------------------------