123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110 |
- //---------------------------------------------------------------------------
- #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();
- }
- //---------------------------------------------------------------------------
|