FrmCameraFullScreenF.cpp 2.8 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110
  1. //---------------------------------------------------------------------------
  2. #include <vcl.h>
  3. #include "AppGlobalF.h"
  4. #pragma hdrstop
  5. #include "FrmCameraFullScreenF.h"
  6. //---------------------------------------------------------------------------
  7. #pragma package(smart_init)
  8. #pragma link "AcesTechXPlayer2Lib_OCX"
  9. #pragma resource "*.dfm"
  10. TFrmCameraFullScreen *FrmCameraFullScreen = NULL;
  11. //---------------------------------------------------------------------------
  12. __fastcall TFrmCameraFullScreen::TFrmCameraFullScreen(TComponent* Owner)
  13. : TForm(Owner)
  14. {
  15. this->Color = clBlack;
  16. PnlStream->ParentColor = false;
  17. PnlStream->Color = clBlack;
  18. //AcesTechXPlayer2->SetFullScreenModeOption(0);
  19. AcesTechXPlayer2->Align = alClient;
  20. AcesTechXPlayer2->Visible = true;
  21. }
  22. //---------------------------------------------------------------------------
  23. void __fastcall TFrmCameraFullScreen::PnlStreamDblClick(TObject *Sender)
  24. {
  25. Close();
  26. }
  27. //---------------------------------------------------------------------------
  28. void __fastcall TFrmCameraFullScreen::FormClose(TObject *Sender, TCloseAction &Action)
  29. {
  30. Disconnect();
  31. FrmCameraFullScreen = NULL;
  32. }
  33. //---------------------------------------------------------------------------
  34. void __fastcall TFrmCameraFullScreen::FormDblClick(TObject *Sender)
  35. {
  36. Close();
  37. }
  38. //---------------------------------------------------------------------------
  39. void __fastcall TFrmCameraFullScreen::FormShow(TObject *Sender)
  40. {
  41. Refresh();
  42. Application->ProcessMessages();
  43. this->Color = clBlack;
  44. PnlStream->ParentColor = false;
  45. PnlStream->Color = clBlack;
  46. Connect();
  47. }
  48. //---------------------------------------------------------------------------
  49. void __fastcall TFrmCameraFullScreen::Connect()
  50. {
  51. Disconnect();
  52. PnlStream->Caption = "Try connect...";
  53. try
  54. {
  55. AcesTechXPlayer2->URL = RTSP_ADDR;
  56. FConHandle = AcesTechXPlayer2->ConnectAsync();
  57. if (FConHandle > 0)
  58. {
  59. }
  60. Application->ProcessMessages();
  61. }
  62. catch(Exception &e)
  63. {
  64. }
  65. FPlay = true;
  66. }
  67. //---------------------------------------------------------------------------
  68. void __fastcall TFrmCameraFullScreen::Disconnect()
  69. {
  70. if (!FPlay) return;
  71. FPlay = false;
  72. PnlStream->Caption = "Try disconnect";
  73. try
  74. {
  75. if (FConHandle > 0)
  76. {
  77. AcesTechXPlayer2->Close();
  78. }
  79. Application->ProcessMessages();
  80. FConHandle = 0;
  81. }
  82. catch(Exception &e)
  83. {
  84. }
  85. PnlStream->Caption = "Disconnected";
  86. FConHandle = 0;
  87. FPlay = false;
  88. }
  89. //---------------------------------------------------------------------------
  90. void __fastcall TFrmCameraFullScreen::TmrCloseTimer(TObject *Sender)
  91. {
  92. TmrClose->Enabled = false;
  93. Close();
  94. }
  95. //---------------------------------------------------------------------------