FrameStreamingAcesF.cpp 2.1 KB

1234567891011121314151617181920212223242526272829303132333435363738394041424344454647484950515253545556575859606162636465666768697071727374757677
  1. //---------------------------------------------------------------------------
  2. #include <vcl.h>
  3. #pragma hdrstop
  4. #include "FrameStreamingAcesF.h"
  5. //---------------------------------------------------------------------------
  6. #pragma package(smart_init)
  7. #pragma link "cxButtons"
  8. #pragma link "cxGraphics"
  9. #pragma link "cxLookAndFeelPainters"
  10. #pragma link "cxLookAndFeels"
  11. #pragma link "dxSkinBlack"
  12. #pragma link "dxSkinMcSkin"
  13. #pragma link "dxSkinsCore"
  14. #pragma link "ImageBtn"
  15. #pragma link "cxContainer"
  16. #pragma link "cxControls"
  17. #pragma link "cxEdit"
  18. #pragma link "cxLabel"
  19. #pragma link "AcesTechXPlayer2Lib_OCX"
  20. #pragma link "IdBaseComponent"
  21. #pragma link "IdComponent"
  22. #pragma link "IdHTTP"
  23. #pragma link "IdTCPClient"
  24. #pragma link "IdTCPConnection"
  25. #pragma link "cxTextEdit"
  26. #pragma resource "*.dfm"
  27. TFrameStreamingAces *FrameStreamingAces;
  28. //---------------------------------------------------------------------------
  29. __fastcall TFrameStreamingAces::TFrameStreamingAces(TComponent* Owner)
  30. : TFrame(Owner)
  31. {
  32. FStrmPlay = false;
  33. FStrmHandle = 0;
  34. }
  35. //---------------------------------------------------------------------------
  36. void __fastcall TFrameStreamingAces::OpenStream()
  37. {
  38. FStrmUrl = EdStreamUrl->Text.Trim();
  39. AcesTechXPlayer21->URL = FStrmUrl;
  40. FStrmHandle = AcesTechXPlayer21->ConnectAsync();
  41. if (FStrmHandle > 0)
  42. {
  43. }
  44. }
  45. //---------------------------------------------------------------------------
  46. void __fastcall TFrameStreamingAces::CloseStream()
  47. {
  48. if (FStrmHandle > 0)
  49. {
  50. AcesTechXPlayer21->Close();
  51. }
  52. }
  53. //---------------------------------------------------------------------------
  54. void __fastcall TFrameStreamingAces::BtnCameraConDisconnClick(TObject *Sender)
  55. {
  56. TcxButton *btn = (TcxButton*)Sender;
  57. if (btn->Tag == 1) {
  58. // 연결
  59. btn->Tag = 0;
  60. btn->Caption = "영상 연결 해제";
  61. OpenStream();
  62. }
  63. else {
  64. // 연결 종료
  65. btn->Tag = 1;
  66. btn->Caption = "영상 연결";
  67. CloseStream();
  68. }
  69. }
  70. //---------------------------------------------------------------------------