CDSVmsObjectF.cpp 2.8 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129
  1. //---------------------------------------------------------------------------
  2. #pragma hdrstop
  3. #include "CDSVmsObjectF.h"
  4. //---------------------------------------------------------------------------
  5. #pragma package(smart_init)
  6. //---------------------------------------------------------------------------
  7. TVmsObj::TVmsObj(AnsiString AVMSID)
  8. {
  9. VMSID = AVMSID;
  10. USE = false;
  11. MEMDEL = false;
  12. FLogList = NULL;
  13. FLogFile = NULL;
  14. RowIdx = -1;
  15. }
  16. //---------------------------------------------------------------------------
  17. TVmsObj::~TVmsObj()
  18. {
  19. }
  20. //---------------------------------------------------------------------------
  21. void TVmsObj::ClearFormList()
  22. {
  23. try
  24. {
  25. FormLists.Lock();
  26. try
  27. {
  28. FormLists.RemoveAll();
  29. }
  30. catch(Exception &e)
  31. {
  32. }
  33. }
  34. __finally
  35. {
  36. FormLists.UnLock();
  37. }
  38. }
  39. //---------------------------------------------------------------------------
  40. TVmsForm *TVmsObj::FindVmsForm(int AScenarioSeq, AnsiString AFormId)
  41. {
  42. FOR_STL(TVmsForm*, pForm, FormLists)
  43. {
  44. if (pForm->ScenarioSeq == AScenarioSeq &&
  45. pForm->FormId == AFormId)
  46. {
  47. return pForm;
  48. }
  49. }
  50. return NULL;
  51. }
  52. //---------------------------------------------------------------------------
  53. //---------------------------------------------------------------------------
  54. TVmsManager *VmsManager = NULL;
  55. //---------------------------------------------------------------------------
  56. TVmsManager::TVmsManager()
  57. {
  58. FLock = false;
  59. }
  60. //---------------------------------------------------------------------------
  61. TVmsManager::~TVmsManager()
  62. {
  63. FLists.RemoveAll();
  64. }
  65. //---------------------------------------------------------------------------
  66. void TVmsManager::Lock()
  67. {
  68. FLists.Lock();
  69. FLock = true;
  70. }
  71. //---------------------------------------------------------------------------
  72. void TVmsManager::UnLock()
  73. {
  74. if (FLock)
  75. {
  76. FLists.UnLock();
  77. }
  78. FLock = false;
  79. }
  80. //---------------------------------------------------------------------------
  81. int TVmsManager::GetVmsCount()
  82. {
  83. int nCount = 0;
  84. try
  85. {
  86. //FLists.Lock();
  87. nCount = FLists.Size();
  88. }
  89. __finally
  90. {
  91. //FLists.UnLock();
  92. }
  93. return nCount;
  94. }
  95. //---------------------------------------------------------------------------
  96. TVmsObj *TVmsManager::FindVms(AnsiString AIPADDRESS)
  97. {
  98. TVmsObj *pFindObj = NULL;
  99. try
  100. {
  101. FLists.Lock();
  102. FOR_STL(TVmsObj*, pObj, VmsManager->FLists)
  103. {
  104. if (!pObj->IPADDRESS.AnsiCompare(AIPADDRESS))
  105. {
  106. pFindObj = pObj;
  107. break;
  108. }
  109. }
  110. }
  111. __finally
  112. {
  113. FLists.UnLock();
  114. }
  115. return pFindObj;
  116. }
  117. //---------------------------------------------------------------------------