CDSCctvCtlrF.cpp 71 KB

12345678910111213141516171819202122232425262728293031323334353637383940414243444546474849505152535455565758596061626364656667686970717273747576777879808182838485868788899091929394959697989910010110210310410510610710810911011111211311411511611711811912012112212312412512612712812913013113213313413513613713813914014114214314414514614714814915015115215315415515615715815916016116216316416516616716816917017117217317417517617717817918018118218318418518618718818919019119219319419519619719819920020120220320420520620720820921021121221321421521621721821922022122222322422522622722822923023123223323423523623723823924024124224324424524624724824925025125225325425525625725825926026126226326426526626726826927027127227327427527627727827928028128228328428528628728828929029129229329429529629729829930030130230330430530630730830931031131231331431531631731831932032132232332432532632732832933033133233333433533633733833934034134234334434534634734834935035135235335435535635735835936036136236336436536636736836937037137237337437537637737837938038138238338438538638738838939039139239339439539639739839940040140240340440540640740840941041141241341441541641741841942042142242342442542642742842943043143243343443543643743843944044144244344444544644744844945045145245345445545645745845946046146246346446546646746846947047147247347447547647747847948048148248348448548648748848949049149249349449549649749849950050150250350450550650750850951051151251351451551651751851952052152252352452552652752852953053153253353453553653753853954054154254354454554654754854955055155255355455555655755855956056156256356456556656756856957057157257357457557657757857958058158258358458558658758858959059159259359459559659759859960060160260360460560660760860961061161261361461561661761861962062162262362462562662762862963063163263363463563663763863964064164264364464564664764864965065165265365465565665765865966066166266366466566666766866967067167267367467567667767867968068168268368468568668768868969069169269369469569669769869970070170270370470570670770870971071171271371471571671771871972072172272372472572672772872973073173273373473573673773873974074174274374474574674774874975075175275375475575675775875976076176276376476576676776876977077177277377477577677777877978078178278378478578678778878979079179279379479579679779879980080180280380480580680780880981081181281381481581681781881982082182282382482582682782882983083183283383483583683783883984084184284384484584684784884985085185285385485585685785885986086186286386486586686786886987087187287387487587687787887988088188288388488588688788888989089189289389489589689789889990090190290390490590690790890991091191291391491591691791891992092192292392492592692792892993093193293393493593693793893994094194294394494594694794894995095195295395495595695795895996096196296396496596696796896997097197297397497597697797897998098198298398498598698798898999099199299399499599699799899910001001100210031004100510061007100810091010101110121013101410151016101710181019102010211022102310241025102610271028102910301031103210331034103510361037103810391040104110421043104410451046104710481049105010511052105310541055105610571058105910601061106210631064106510661067106810691070107110721073107410751076107710781079108010811082108310841085108610871088108910901091109210931094109510961097109810991100110111021103110411051106110711081109111011111112111311141115111611171118111911201121112211231124112511261127112811291130113111321133113411351136113711381139114011411142114311441145114611471148114911501151115211531154115511561157115811591160116111621163116411651166116711681169117011711172117311741175117611771178117911801181118211831184118511861187118811891190119111921193119411951196119711981199120012011202120312041205120612071208120912101211121212131214121512161217121812191220122112221223122412251226122712281229123012311232123312341235123612371238123912401241124212431244124512461247124812491250125112521253125412551256125712581259126012611262126312641265126612671268126912701271127212731274127512761277127812791280128112821283128412851286128712881289129012911292129312941295129612971298129913001301130213031304130513061307130813091310131113121313131413151316131713181319132013211322132313241325132613271328132913301331133213331334133513361337133813391340134113421343134413451346134713481349135013511352135313541355135613571358135913601361136213631364136513661367136813691370137113721373137413751376137713781379138013811382138313841385138613871388138913901391139213931394139513961397139813991400140114021403140414051406140714081409141014111412141314141415141614171418141914201421142214231424142514261427142814291430143114321433143414351436143714381439144014411442144314441445144614471448144914501451145214531454145514561457145814591460146114621463146414651466146714681469147014711472147314741475147614771478147914801481148214831484148514861487148814891490149114921493149414951496
  1. //---------------------------------------------------------------------------
  2. #pragma hdrstop
  3. #include "CDSCctvCtlrF.h"
  4. #include "ITS_OPLibF.h"
  5. #include "CDSFcltF.h"
  6. //---------------------------------------------------------------------------
  7. #pragma package(smart_init)
  8. //---------------------------------------------------------------------------
  9. TCctvCtlr::TCctvCtlr()
  10. {
  11. }
  12. //---------------------------------------------------------------------------
  13. TCctvCtlr::~TCctvCtlr()
  14. {
  15. }
  16. //---------------------------------------------------------------------------
  17. //---------------------------------------------------------------------------
  18. TCctvCtlrManager *CctvCtlrManager = NULL;
  19. //---------------------------------------------------------------------------
  20. TCctvCtlrManager::TCctvCtlrManager()
  21. {
  22. FImgStream = NULL;
  23. }
  24. //---------------------------------------------------------------------------
  25. TCctvCtlrManager::~TCctvCtlrManager()
  26. {
  27. FLists.RemoveAll();
  28. if (FImgStream) delete FImgStream;
  29. FImgStream = NULL;
  30. }
  31. //---------------------------------------------------------------------------
  32. bool TCctvCtlrManager::LoadFromDb(TADOConnection *ADbConn/*=NULL*/)
  33. {
  34. String sQry;
  35. TADOQuery *pADO = NULL;
  36. sQry = "SELECT A.* \r\n"
  37. //" (SELECT CMMN_CD_KOR_NM FROM TB_CMMN_CD WHERE CMMN_CLSF_CD = 'CTVT' AND CMMN_CD = A.CCTV_TYPE) AS CCTV_TYPE_NM \r\n"
  38. " FROM TB_CCTV_CTLR A \r\n";
  39. " WHERE A.DEL_YN = 'N' \r\n";
  40. FLists.Lock();
  41. try
  42. {
  43. FLists.RemoveAll();
  44. try
  45. {
  46. pADO = new TADOQuery(NULL);
  47. pADO->Close();
  48. pADO->Connection = (NULL != ADbConn) ? ADbConn : ITSDb_GetConnection();
  49. pADO->SQL->Clear();
  50. pADO->SQL->Text = sQry;
  51. pADO->Prepared = true;
  52. pADO->Open();
  53. for( ; !pADO->Eof; pADO->Next())
  54. {
  55. TCctvCtlr *pObj = new TCctvCtlr();
  56. #ifdef D_CCTV_HANTE
  57. pObj->CCTV_CTLR_NMBR = pADO->FieldByName("CCTV_CTLR_NMBR")->AsString; // N NUMBER(10) N CCTV 제어기 번호
  58. pObj->CCTV_NM = pADO->FieldByName("CCTV_NM")->AsString.Trim(); // N VARCHAR2(40) Y CCTV 명칭
  59. #else
  60. pObj->CCTV_CTLR_NMBR = pADO->FieldByName("CCTV_MNGM_NMBR")->AsString; // N NUMBER(10) N CCTV 제어기 번호
  61. pObj->CCTV_NM = pADO->FieldByName("ISTL_LCTN_NM")->AsString.Trim(); // N VARCHAR2(40) Y CCTV 명칭
  62. #endif
  63. pObj->CCTV_CTLR_ID = pADO->FieldByName("CCTV_CTLR_ID")->AsString.Trim(); // N VARCHAR2(30) Y CCTV 제어기 ID
  64. pObj->CCTV_CTLR_IP = pADO->FieldByName("CCTV_CTLR_IP")->AsString.Trim(); // N VARCHAR2(20) Y CCTV 제어기 아이피
  65. pObj->CCTV_CTLR_PORT = pADO->FieldByName("CCTV_CTLR_PORT")->AsString.Trim().ToIntDef(0); // N NUMBER(5) Y CCTV 제어기 포트
  66. pObj->ISTL_LCTN_NM = pADO->FieldByName("ISTL_LCTN_NM")->AsString.Trim(); // N VARCHAR2(40) Y 설치 위치 명
  67. pObj->X_CRDN = pADO->FieldByName("X_CRDN")->AsFloat; // N NUMBER(11,8) Y X 좌표
  68. pObj->Y_CRDN = pADO->FieldByName("Y_CRDN")->AsFloat; // N NUMBER(10,8) Y Y 좌표
  69. pObj->DEL_YN = pADO->FieldByName("DEL_YN")->AsString.Trim(); // N CHAR(1) Y 'N' 삭제 여부
  70. pObj->CCTV_TYPE_CD = "CCTV";
  71. #ifdef D_CCTV_HANTE
  72. pObj->CCTV_TYPE_CD = pADO->FieldByName("CCTV_TYPE_CD")->AsString.Trim(); // N VARCHAR2(7) Y CCTV 유형
  73. pObj->CCTV_CTLR_LOCAL_NO = pADO->FieldByName("CCTV_CTLR_LOCAL_NO")->AsString.Trim().ToIntDef(0); // N NUMBER(5) Y CCTV 제어기 지역번호
  74. pObj->INTR_RTSP_ADDR = pADO->FieldByName("INTR_RTSP_ADDR")->AsString.Trim(); // N VARCHAR2(200) Y 내부 RTSP 주소
  75. pObj->INTR_RTMP_ADDR = pADO->FieldByName("INTR_RTMP_ADDR")->AsString.Trim(); // N VARCHAR2(200) Y 내부 RTMP 주소
  76. pObj->INTR_HTTP_ADDR = pADO->FieldByName("INTR_HTTP_ADDR")->AsString.Trim(); // N VARCHAR2(200) Y 내부 HTTP 주소
  77. pObj->CCTV_IP = pADO->FieldByName("CCTV_IP")->AsString.Trim(); // N VARCHAR2(20) Y 목포 CCTV 제어 IP
  78. pObj->CCTV_PORT = pADO->FieldByName("CCTV_PORT")->AsString.Trim().ToIntDef(0); // N NUMBER(5) Y 1852 목포 CCTV 제어 PORT
  79. pObj->CMRA_PSWD = pADO->FieldByName("CMRA_PSWD")->AsString.Trim(); // N VARCHAR2(20) Y '1234' 목포 CCTV 제어 PSWD
  80. #endif
  81. pObj->LINK_ID = pADO->FieldByName("LINK_ID")->AsString.Trim();
  82. pObj->NODE_ID = pADO->FieldByName("NODE_ID")->AsString.Trim();
  83. pObj->CCTV_ID = pADO->FieldByName("CCTV_ID")->AsString.Trim();
  84. pObj->RELY_PORT = pADO->FieldByName("RELY_PORT")->AsString.Trim();
  85. pObj->AREA_CD = pADO->FieldByName("AREA_CD")->AsString.Trim(); // N VARCHAR2(7) Y 지역 코드
  86. pObj->CCTV_TYPE = pADO->FieldByName("CCTV_TYPE")->AsString.Trim(); // N VARCHAR2(10) Y CCTV 유형
  87. //pObj->CCTV_TYPE_NM = pADO->FieldByName("CCTV_TYPE_NM")->AsString.Trim();
  88. pObj->ISTL_LCTN_ADDR = pADO->FieldByName("ISTL_LCTN_ADDR")->AsString.Trim();
  89. pObj->CCTV_CHNL = pADO->FieldByName("CCTV_CHNL")->AsString.Trim().ToIntDef(0); // N NUMBER(5) Y 1 목포 CCTV 제어 CHANNEL
  90. pObj->CCTV_CAPT_IP = pADO->FieldByName("CCTV_CAPT_IP")->AsString.Trim(); // N VARCHAR2(20) Y CCTV 자막기 아이피
  91. pObj->CCTV_CAPT_PORT = pADO->FieldByName("CCTV_CAPT_PORT")->AsString.Trim(); // N VARCHAR2(5) Y CCTV 자막기 포트
  92. pObj->CCTV_FIBR_IP = pADO->FieldByName("CCTV_FIBR_IP")->AsString.Trim(); // N VARCHAR2(20) Y CCTV 광장비 아이피
  93. pObj->CCTV_ENCD_IP = pADO->FieldByName("CCTV_ENCD_IP")->AsString.Trim(); // N VARCHAR2(20) Y CCTV 인코더 아이피
  94. pObj->STRM_RTSP_ADDR = pADO->FieldByName("STRM_RTSP_ADDR")->AsString.Trim(); // N VARCHAR2(200) Y 스트리밍 RTSP 주소
  95. pObj->STRM_RTMP_ADDR = pADO->FieldByName("STRM_RTMP_ADDR")->AsString.Trim(); // N VARCHAR2(200) Y 스트리밍 RTMP 주소
  96. pObj->STRM_HTTP_ADDR = pADO->FieldByName("STRM_HTTP_ADDR")->AsString.Trim(); // N VARCHAR2(200) Y 스트리밍 HTTP 주소
  97. pObj->STRM_STOR_ADDR = pADO->FieldByName("STRM_STOR_ADDR")->AsString.Trim();
  98. //pObj->CCTV_AREA_DVSN = pADO->FieldByName("CCTV_AREA_DVSN")->AsString.Trim(); // N VARCHAR2(7) Y CCTV 지역 구분
  99. pObj->CCTV_AREA_DVSN = pADO->FieldByName("CCTV_LC")->AsString.Trim(); // N VARCHAR2(10) Y CCTV 지역 구분
  100. //pObj->INTR_RTMP_ADDR = pADO->FieldByName("INTR_RTMP_ADDR")->AsString.Trim(); // N VARCHAR2(200) Y 스트리밍 내부 RTMP 주소
  101. //pObj->SYOP_CNTL_YN = pADO->FieldByName("SYOP_CNTL_YN")->AsString.Trim(); // N CHAR(1) Y 'N' 운영자 제어 여부
  102. //pObj->STRM_SVR_IP = pADO->FieldByName("STRM_SVR_IP")->AsString.Trim(); // N VARCHAR2(20) Y 스트리밍 서버 아이피
  103. //pObj->STRM_SVR_PORT = pADO->FieldByName("STRM_SVR_PORT")->AsString.Trim(); // N VARCHAR2(5) Y 스트리밍 서버 포트
  104. pObj->STRM_SESN_NM = pADO->FieldByName("STRM_SESN_NM")->AsString.Trim(); // N VARCHAR2(200) Y 스트리밍 세션 명
  105. pObj->STRM_ADDR = pObj->STRM_SESN_NM;
  106. pObj->FULL_STRM_ADDR = pADO->FieldByName("FULL_STRM_SESN_NM")->AsString.Trim();
  107. pObj->CCTV_SBST_DSPL_YN = pADO->FieldByName("CCTV_SBST_DSPL_YN")->AsString.Trim(); // N CHAR(1) Y 'N' CCTV 대체 표출 여부
  108. pObj->CCTV_SBST_IMGN = "";//pADO->FieldByName("CCTV_SBST_IMGN")->AsString.Trim(); // N BLOB Y CCTV 대체 영상
  109. pObj->CMRA_ID = pADO->FieldByName("CMRA_ID")->AsString.Trim();
  110. pObj->CMRA_PSWD = pADO->FieldByName("CMRA_PSWD")->AsString.Trim();
  111. pObj->CMRA_CHNL = pADO->FieldByName("CMRA_CHNL")->AsString.Trim().ToIntDef(0);
  112. pObj->CMRA_PORT = pADO->FieldByName("CMRA_PORT")->AsString.Trim().ToIntDef(0);
  113. pObj->CMRA_MODL = pADO->FieldByName("CMRA_MODL")->AsString.Trim();
  114. pObj->FULL_STRM_SESN_NM = pADO->FieldByName("FULL_STRM_SESN_NM")->AsString.Trim();
  115. pObj->MAC_ADDR = pADO->FieldByName("MAC_ADDR")->AsString.Trim();
  116. pObj->SERIAL_NO = pADO->FieldByName("SERIAL_NO")->AsString.Trim();
  117. pObj->TTA_CNFN_YN = pADO->FieldByName("TTA_CNFN_YN")->AsString.Trim();
  118. pObj->STATE.Comm = cctv_error;
  119. FLists.Push(pObj->CCTV_CTLR_NMBR, pObj);
  120. pObj->Completed = true;
  121. }
  122. }
  123. catch(EDatabaseError &E)
  124. {
  125. DBERRORMSG("TCctvCtlrManager::LoadFromDb", String(E.ClassName()), E.Message, sQry);
  126. throw Exception(String(E.ClassName()) + E.Message);
  127. }
  128. catch(Exception &e)
  129. {
  130. DBERRORMSG("TCctvCtlrManager::LoadFromDb", String(e.ClassName()), e.Message, sQry);
  131. throw Exception(String(e.ClassName()) + e.Message);
  132. }
  133. }
  134. __finally
  135. {
  136. if (pADO)
  137. {
  138. pADO->Close();
  139. delete pADO;
  140. }
  141. FLists.UnLock();
  142. }
  143. return true;
  144. }
  145. //---------------------------------------------------------------------------
  146. bool TCctvCtlrManager::LoadStatusFromDb(TADOConnection *ADbConn/*=NULL*/)
  147. {
  148. String sQry;
  149. TADOQuery *pADO = NULL;
  150. #ifdef D_CCTV_HANTE
  151. sQry = "SELECT * \r\n"
  152. " FROM TB_CCTV_CTLR_STTS A, \r\n"
  153. " TB_CCTV_CTLR B \r\n"
  154. " WHERE A.CCTV_CTLR_NMBR = B.CCTV_CTLR_NMBR \r\n"
  155. " AND A.UPDT_DT >= TO_CHAR(SYSDATE-2/1440, 'YYYYMMDDHH24MISS') \r\n";
  156. #else
  157. sQry = "SELECT * \r\n"
  158. " FROM TB_CCTV_STTS A, \r\n"
  159. " TB_CCTV_CTLR B \r\n"
  160. " WHERE A.CCTV_MNGM_NMBR = B.CCTV_MNGM_NMBR \r\n"
  161. " AND A.UPDT_DT >= TO_CHAR(SYSDATE-2/1440, 'YYYYMMDDHH24MISS') \r\n";
  162. #endif
  163. FLists.Lock();
  164. try
  165. {
  166. TCctvCtlr *pObj = NULL;
  167. try
  168. {
  169. int nORD;
  170. pADO = new TADOQuery(NULL);
  171. pADO->Close();
  172. pADO->Connection = (NULL != ADbConn) ? ADbConn : ITSDb_GetConnection();
  173. pADO->SQL->Clear();
  174. pADO->SQL->Text = sQry;
  175. pADO->Prepared = true;
  176. pADO->Open();
  177. for( ; !pADO->Eof; pADO->Next())
  178. {
  179. #ifdef D_CCTV_HANTE
  180. String CCTV_CTLR_NMBR = pADO->FieldByName("CCTV_CTLR_NMBR")->AsString;
  181. #else
  182. String CCTV_CTLR_NMBR = pADO->FieldByName("CCTV_MNGM_NMBR")->AsString;
  183. #endif
  184. pObj = FLists.Find(CCTV_CTLR_NMBR);
  185. if (!pObj) continue;
  186. String UPDT_DT = pADO->FieldByName("UPDT_DT")->AsString;
  187. #ifdef D_CCTV_HANTE
  188. String CONN_STTS_CD = pADO->FieldByName("CONN_STTS_CD")->AsString;
  189. #else
  190. String CONN_STTS_CD = pADO->FieldByName("CMNC_STTS_CD")->AsString;
  191. #endif
  192. if (CONN_STTS_CD != "CMS0")
  193. {
  194. //통신장애
  195. pObj->STATE.Comm = cctv_error;
  196. continue;
  197. }
  198. pObj->STATE.Comm = (CONN_STTS_CD == "CMS0") ? cctv_normal : cctv_error;
  199. }
  200. }
  201. catch(EDatabaseError &E)
  202. {
  203. DBERRORLOG("TCctvCtlrManager::LoadStatusFromDb", String(E.ClassName()), E.Message, sQry);
  204. throw Exception(String(E.ClassName()) + E.Message);
  205. }
  206. catch(Exception &e)
  207. {
  208. DBERRORLOG("TCctvCtlrManager::LoadStatusFromDb", String(e.ClassName()), e.Message, sQry);
  209. throw Exception(String(e.ClassName()) + e.Message);
  210. }
  211. }
  212. __finally
  213. {
  214. FLists.UnLock();
  215. if (pADO)
  216. {
  217. pADO->Close();
  218. delete pADO;
  219. }
  220. }
  221. return true;
  222. }
  223. //---------------------------------------------------------------------------
  224. bool TCctvCtlrManager::DeleteCctv(TCctvCtlr *AObj, TADOConnection *ADbConn/*=NULL*/)
  225. {
  226. String sQry;
  227. TADOQuery *pADO = NULL;
  228. #ifdef D_CCTV_HANTE
  229. sQry = "UPDATE TB_CCTV_CTLR \r\n"
  230. " SET DEL_YN = 'Y' \r\n"
  231. " WHERE CCTV_CTLR_NMBR = :p01 \r\n";
  232. #else
  233. sQry = "UPDATE TB_CCTV_CTLR \r\n"
  234. " SET DEL_YN = 'Y' \r\n"
  235. " WHERE CCTV_MNGM_NMBR = :p01 \r\n";
  236. #endif
  237. try
  238. {
  239. try
  240. {
  241. pADO = new TADOQuery(NULL);
  242. pADO->Close();
  243. pADO->Connection = (NULL != ADbConn) ? ADbConn : ITSDb_GetConnection();
  244. pADO->SQL->Clear();
  245. pADO->SQL->Text = sQry;
  246. pADO->Parameters->ParamByName("p01")->Value = AObj->CCTV_CTLR_NMBR;
  247. pADO->ExecSQL();
  248. sQry = "DELETE TB_FCLT_INFR \r\n"
  249. " WHERE FCLT_ID = :p01 \r\n";
  250. pADO->SQL->Clear();
  251. pADO->SQL->Text = sQry;
  252. pADO->Parameters->ParamByName("p01")->Value = AObj->CCTV_CTLR_ID;
  253. pADO->ExecSQL();
  254. return true;
  255. }
  256. catch(EDatabaseError &E)
  257. {
  258. DBERRORLOG("TCctvCtlrManager::DeleteCctv", String(E.ClassName()), E.Message, sQry);
  259. throw Exception(String(E.ClassName()) + E.Message);
  260. }
  261. catch(Exception &e)
  262. {
  263. DBERRORLOG("TCctvCtlrManager::DeleteCctv", String(e.ClassName()), e.Message, sQry);
  264. throw Exception(String(e.ClassName()) + e.Message);
  265. }
  266. }
  267. __finally
  268. {
  269. if (pADO)
  270. {
  271. pADO->Close();
  272. delete pADO;
  273. }
  274. }
  275. return true;
  276. }
  277. //---------------------------------------------------------------------------
  278. bool TCctvCtlrManager::InsertCctv(TCctvCtlr *AObj, TADOConnection *ADbConn/*=NULL*/)
  279. {
  280. if (MergeCctv(AObj, ADbConn))
  281. {
  282. return MergeFcltInfo(AObj, ADbConn);
  283. }
  284. return false;
  285. #if 0
  286. String sQry;
  287. TADOQuery *pADO = NULL;
  288. sQry = "MERGE INTO TB_CCTV_CTLR L \r\n"
  289. "USING (SELECT \r\n"
  290. " :p01 AS CCTV_CTLR_NMBR, \r\n"
  291. " :p02 AS CCTV_CTLR_ID, \r\n"
  292. " :p03 AS CCTV_NM, \r\n"
  293. " :p04 AS CCTV_CTLR_IP, \r\n"
  294. " :p05 AS CCTV_CTLR_PORT, \r\n"
  295. " :p06 AS CCTV_CTLR_LOCAL_NO, \r\n"
  296. " :p07 AS CCTV_TYPE_CD, \r\n"
  297. " :p08 AS ISTL_LCTN_NM, \r\n"
  298. " :p09 AS X_CRDN, \r\n"
  299. " :p10 AS Y_CRDN, \r\n"
  300. " :p11 AS DEL_YN, \r\n"
  301. " :p12 AS STRM_SVR_IP, \r\n"
  302. " :p13 AS STRM_SESN_NM, \r\n"
  303. " :p14 AS STRM_RTSP_ADDR, \r\n"
  304. " :p15 AS STRM_RTMP_ADDR, \r\n"
  305. " :p16 AS STRM_HTTP_ADDR, \r\n"
  306. " :p17 AS CCTV_IP, \r\n"
  307. " :p18 AS CCTV_PORT, \r\n"
  308. " :p19 AS CCTV_ID, \r\n"
  309. " :p20 AS CMRA_PSWD, \r\n"
  310. " :p21 AS CCTV_CHNL, \r\n"
  311. " :p22 AS MAC_ADDR, \r\n"
  312. " :p23 AS SERIAL_NO, \r\n"
  313. " :p24 AS TTA_CNFN_YN \r\n"
  314. " FROM DUAL) M \r\n"
  315. " ON (L.CCTV_CTLR_NMBR = M.CCTV_CTLR_NMBR) \r\n"
  316. "WHEN MATCHED THEN \r\n"
  317. " UPDATE SET L.CCTV_CTLR_ID = M.CCTV_CTLR_ID, \r\n"
  318. " L.CCTV_NM = M.CCTV_NM, \r\n"
  319. " L.CCTV_CTLR_IP = M.CCTV_CTLR_IP, \r\n"
  320. " L.CCTV_CTLR_PORT = M.CCTV_CTLR_PORT, \r\n"
  321. " L.CCTV_CTLR_LOCAL_NO = M.CCTV_CTLR_LOCAL_NO, \r\n"
  322. " L.CCTV_TYPE_CD = M.CCTV_TYPE_CD, \r\n"
  323. " L.ISTL_LCTN_NM = M.ISTL_LCTN_NM, \r\n"
  324. " L.X_CRDN = M.X_CRDN, \r\n"
  325. " L.Y_CRDN = M.Y_CRDN, \r\n"
  326. " L.DEL_YN = M.DEL_YN, \r\n"
  327. " L.STRM_SVR_IP = M.STRM_SVR_IP, \r\n"
  328. " L.STRM_SESN_NM = M.STRM_SESN_NM, \r\n"
  329. " L.STRM_RTSP_ADDR = M.STRM_RTSP_ADDR, \r\n"
  330. " L.STRM_RTMP_ADDR = M.STRM_RTMP_ADDR, \r\n"
  331. " L.STRM_HTTP_ADDR = M.STRM_HTTP_ADDR, \r\n"
  332. " L.CCTV_IP = M.CCTV_IP, \r\n"
  333. " L.CCTV_PORT = M.CCTV_PORT, \r\n"
  334. " L.CCTV_ID = M.CCTV_ID, \r\n"
  335. " L.CMRA_PSWD = M.CMRA_PSWD, \r\n"
  336. " L.CCTV_CHNL = M.CCTV_CHNL, \r\n"
  337. " L.MAC_ADDR = M.MAC_ADDR, \r\n"
  338. " L.SERIAL_NO = M.SERIAL_NO, \r\n"
  339. " L.TTA_CNFN_YN = M.TTA_CNFN_YN \r\n"
  340. "WHEN NOT MATCHED THEN \r\n"
  341. " INSERT ( \r\n"
  342. " CCTV_CTLR_NMBR, \r\n"
  343. " CCTV_CTLR_ID, \r\n"
  344. " CCTV_NM, \r\n"
  345. " CCTV_CTLR_IP, \r\n"
  346. " CCTV_CTLR_PORT, \r\n"
  347. " CCTV_CTLR_LOCAL_NO, \r\n"
  348. " CCTV_TYPE_CD, \r\n"
  349. " ISTL_LCTN_NM, \r\n"
  350. " X_CRDN, \r\n"
  351. " Y_CRDN, \r\n"
  352. " DEL_YN, \r\n"
  353. " STRM_SVR_IP, \r\n"
  354. " STRM_SESN_NM , \r\n"
  355. " STRM_RTSP_ADDR, \r\n"
  356. " STRM_RTMP_ADDR, \r\n"
  357. " STRM_HTTP_ADDR, \r\n"
  358. " CCTV_IP, \r\n"
  359. " CCTV_PORT, \r\n"
  360. " CCTV_ID, \r\n"
  361. " CMRA_PSWD, \r\n"
  362. " CCTV_CHNL, \r\n"
  363. " MAC_ADDR, \r\n"
  364. " SERIAL_NO, \r\n"
  365. " TTA_CNFN_YN \r\n"
  366. " ) \r\n"
  367. " VALUES ( \r\n"
  368. " M.CCTV_CTLR_NMBR, \r\n"
  369. " M.CCTV_CTLR_ID, \r\n"
  370. " M.CCTV_NM, \r\n"
  371. " M.CCTV_CTLR_IP, \r\n"
  372. " M.CCTV_CTLR_PORT, \r\n"
  373. " M.CCTV_CTLR_LOCAL_NO, \r\n"
  374. " M.CCTV_TYPE_CD, \r\n"
  375. " M.ISTL_LCTN_NM, \r\n"
  376. " M.X_CRDN, \r\n"
  377. " M.Y_CRDN, \r\n"
  378. " M.DEL_YN, \r\n"
  379. " M.STRM_SVR_IP, \r\n"
  380. " M.STRM_SESN_NM , \r\n"
  381. " M.STRM_RTSP_ADDR, \r\n"
  382. " M.STRM_RTMP_ADDR, \r\n"
  383. " M.STRM_HTTP_ADDR, \r\n"
  384. " M.CCTV_IP, \r\n"
  385. " M.CCTV_PORT, \r\n"
  386. " M.CCTV_ID, \r\n"
  387. " M.CMRA_PSWD, \r\n"
  388. " M.CCTV_CHNL, \r\n"
  389. " M.MAC_ADDR, \r\n"
  390. " M.SERIAL_NO, \r\n"
  391. " M.TTA_CNFN_YN \r\n"
  392. " ) \r\n";
  393. try
  394. {
  395. try
  396. {
  397. pADO = new TADOQuery(NULL);
  398. pADO->Close();
  399. pADO->Connection = (NULL != ADbConn) ? ADbConn : ITSDb_GetConnection();
  400. pADO->SQL->Clear();
  401. pADO->SQL->Text = sQry;
  402. pADO->Parameters->ParamByName("p01")->Value = AObj->CCTV_CTLR_NMBR;
  403. pADO->Parameters->ParamByName("p02")->Value = AObj->CCTV_CTLR_ID;
  404. pADO->Parameters->ParamByName("p03")->Value = AObj->CCTV_NM;
  405. pADO->Parameters->ParamByName("p04")->Value = AObj->CCTV_CTLR_IP;
  406. pADO->Parameters->ParamByName("p05")->Value = AObj->CCTV_CTLR_PORT;
  407. pADO->Parameters->ParamByName("p06")->Value = AObj->CCTV_CTLR_LOCAL_NO;
  408. pADO->Parameters->ParamByName("p07")->Value = AObj->CCTV_TYPE_CD;
  409. pADO->Parameters->ParamByName("p08")->Value = AObj->ISTL_LCTN_NM;
  410. pADO->Parameters->ParamByName("p09")->Value = AObj->X_CRDN;
  411. pADO->Parameters->ParamByName("p10")->Value = AObj->Y_CRDN;
  412. pADO->Parameters->ParamByName("p11")->Value = AObj->DEL_YN;
  413. pADO->Parameters->ParamByName("p12")->Value = AObj->STRM_SVR_IP;
  414. pADO->Parameters->ParamByName("p13")->Value = AObj->STRM_SESN_NM;
  415. pADO->Parameters->ParamByName("p14")->Value = AObj->STRM_RTSP_ADDR;
  416. pADO->Parameters->ParamByName("p15")->Value = AObj->STRM_RTMP_ADDR;
  417. pADO->Parameters->ParamByName("p16")->Value = AObj->STRM_HTTP_ADDR;
  418. pADO->Parameters->ParamByName("p17")->Value = AObj->CCTV_IP;
  419. pADO->Parameters->ParamByName("p18")->Value = AObj->CCTV_PORT;
  420. pADO->Parameters->ParamByName("p19")->Value = AObj->CCTV_ID;
  421. pADO->Parameters->ParamByName("p20")->Value = AObj->CMRA_PSWD;
  422. pADO->Parameters->ParamByName("p21")->Value = AObj->CCTV_CHNL;
  423. pADO->Parameters->ParamByName("p22")->Value = AObj->MAC_ADDR;
  424. pADO->Parameters->ParamByName("p23")->Value = AObj->SERIAL_NO;
  425. pADO->Parameters->ParamByName("p24")->Value = AObj->TTA_CNFN_YN;
  426. pADO->ExecSQL();
  427. return MergeFcltInfo(AObj, ADbConn);
  428. }
  429. catch(EDatabaseError &E)
  430. {
  431. DBERRORLOG("TCctvCtlrManager::InsertCctv", String(E.ClassName()), E.Message, sQry);
  432. throw Exception(String(E.ClassName()) + E.Message);
  433. }
  434. catch(Exception &e)
  435. {
  436. DBERRORLOG("TCctvCtlrManager::InsertCctv", String(e.ClassName()), e.Message, sQry);
  437. throw Exception(String(e.ClassName()) + e.Message);
  438. }
  439. }
  440. __finally
  441. {
  442. if (pADO)
  443. {
  444. pADO->Close();
  445. delete pADO;
  446. }
  447. }
  448. return true;
  449. #endif
  450. }
  451. //---------------------------------------------------------------------------
  452. bool TCctvCtlrManager::UpdateCctv(TCctvCtlr *AObj, TADOConnection *ADbConn/*=NULL*/)
  453. {
  454. return MergeCctv(AObj, ADbConn);
  455. }
  456. //---------------------------------------------------------------------------
  457. #ifdef D_CCTV_HANTE
  458. bool TCctvCtlrManager::MergeCctv(TCctvCtlr *AObj, TADOConnection *ADbConn/*=NULL*/)
  459. {
  460. String sQry;
  461. TADOQuery *pADO = NULL;
  462. sQry = "MERGE INTO TB_CCTV_CTLR L \r\n"
  463. "USING (SELECT \r\n"
  464. " :p01 AS CCTV_CTLR_NMBR, \r\n"
  465. " :p02 AS CCTV_CTLR_ID, \r\n"
  466. " :p03 AS CCTV_NM, \r\n"
  467. " :p04 AS CCTV_CTLR_IP, \r\n"
  468. " :p05 AS CCTV_CTLR_PORT, \r\n"
  469. " :p06 AS CCTV_CTLR_LOCAL_NO, \r\n"
  470. " :p07 AS CCTV_TYPE_CD, \r\n"
  471. " :p08 AS ISTL_LCTN_NM, \r\n"
  472. " :p09 AS X_CRDN, \r\n"
  473. " :p10 AS Y_CRDN, \r\n"
  474. " :p11 AS DEL_YN, \r\n"
  475. " :p12 AS STRM_SVR_IP, \r\n"
  476. " :p13 AS STRM_SESN_NM, \r\n"
  477. " :p14 AS STRM_RTSP_ADDR, \r\n"
  478. " :p15 AS STRM_RTMP_ADDR, \r\n"
  479. " :p16 AS STRM_HTTP_ADDR, \r\n"
  480. " :p17 AS CCTV_IP, \r\n"
  481. " :p18 AS CCTV_PORT, \r\n"
  482. " :p19 AS CCTV_ID, \r\n"
  483. " :p20 AS CMRA_PSWD, \r\n"
  484. " :p21 AS CCTV_CHNL \r\n"
  485. " FROM DUAL) M \r\n"
  486. " ON (L.CCTV_CTLR_NMBR = M.CCTV_CTLR_NMBR) \r\n"
  487. "WHEN MATCHED THEN \r\n"
  488. " UPDATE SET L.CCTV_CTLR_ID = M.CCTV_CTLR_ID, \r\n"
  489. " L.CCTV_NM = M.CCTV_NM, \r\n"
  490. " L.CCTV_CTLR_IP = M.CCTV_CTLR_IP, \r\n"
  491. " L.CCTV_CTLR_PORT = M.CCTV_CTLR_PORT, \r\n"
  492. " L.CCTV_CTLR_LOCAL_NO = M.CCTV_CTLR_LOCAL_NO, \r\n"
  493. " L.CCTV_TYPE_CD = M.CCTV_TYPE_CD, \r\n"
  494. " L.ISTL_LCTN_NM = M.ISTL_LCTN_NM, \r\n"
  495. " L.X_CRDN = M.X_CRDN, \r\n"
  496. " L.Y_CRDN = M.Y_CRDN, \r\n"
  497. " L.DEL_YN = M.DEL_YN, \r\n"
  498. " L.STRM_SVR_IP = M.STRM_SVR_IP, \r\n"
  499. " L.STRM_SESN_NM = M.STRM_SESN_NM, \r\n"
  500. " L.STRM_RTSP_ADDR = M.STRM_RTSP_ADDR, \r\n"
  501. " L.STRM_RTMP_ADDR = M.STRM_RTMP_ADDR, \r\n"
  502. " L.STRM_HTTP_ADDR = M.STRM_HTTP_ADDR, \r\n"
  503. " L.CCTV_IP = M.CCTV_IP, \r\n"
  504. " L.CCTV_PORT = M.CCTV_PORT, \r\n"
  505. " L.CCTV_ID = M.CCTV_ID, \r\n"
  506. " L.CMRA_PSWD = M.CMRA_PSWD, \r\n"
  507. " L.CCTV_CHNL = M.CCTV_CHNL \r\n"
  508. "WHEN NOT MATCHED THEN \r\n"
  509. " INSERT ( \r\n"
  510. " CCTV_CTLR_NMBR, \r\n"
  511. " CCTV_CTLR_ID, \r\n"
  512. " CCTV_NM, \r\n"
  513. " CCTV_CTLR_IP, \r\n"
  514. " CCTV_CTLR_PORT, \r\n"
  515. " CCTV_CTLR_LOCAL_NO, \r\n"
  516. " CCTV_TYPE_CD, \r\n"
  517. " ISTL_LCTN_NM, \r\n"
  518. " X_CRDN, \r\n"
  519. " Y_CRDN, \r\n"
  520. " DEL_YN, \r\n"
  521. " STRM_SVR_IP, \r\n"
  522. " STRM_SESN_NM , \r\n"
  523. " STRM_RTSP_ADDR, \r\n"
  524. " STRM_RTMP_ADDR, \r\n"
  525. " STRM_HTTP_ADDR, \r\n"
  526. " CCTV_IP, \r\n"
  527. " CCTV_PORT, \r\n"
  528. " CCTV_ID, \r\n"
  529. " CMRA_PSWD, \r\n"
  530. " CCTV_CHNL \r\n"
  531. " ) \r\n"
  532. " VALUES ( \r\n"
  533. " M.CCTV_CTLR_NMBR, \r\n"
  534. " M.CCTV_CTLR_ID, \r\n"
  535. " M.CCTV_NM, \r\n"
  536. " M.CCTV_CTLR_IP, \r\n"
  537. " M.CCTV_CTLR_PORT, \r\n"
  538. " M.CCTV_CTLR_LOCAL_NO, \r\n"
  539. " M.CCTV_TYPE_CD, \r\n"
  540. " M.ISTL_LCTN_NM, \r\n"
  541. " M.X_CRDN, \r\n"
  542. " M.Y_CRDN, \r\n"
  543. " M.DEL_YN, \r\n"
  544. " M.STRM_SVR_IP, \r\n"
  545. " M.STRM_SESN_NM , \r\n"
  546. " M.STRM_RTSP_ADDR, \r\n"
  547. " M.STRM_RTMP_ADDR, \r\n"
  548. " M.STRM_HTTP_ADDR, \r\n"
  549. " M.CCTV_IP, \r\n"
  550. " M.CCTV_PORT, \r\n"
  551. " M.CCTV_ID, \r\n"
  552. " M.CMRA_PSWD, \r\n"
  553. " M.CCTV_CHNL \r\n"
  554. " ) \r\n";
  555. try
  556. {
  557. try
  558. {
  559. pADO = new TADOQuery(NULL);
  560. pADO->Close();
  561. pADO->Connection = (NULL != ADbConn) ? ADbConn : ITSDb_GetConnection();
  562. pADO->SQL->Clear();
  563. pADO->SQL->Text = sQry;
  564. pADO->Parameters->ParamByName("p01")->Value = AObj->CCTV_CTLR_NMBR;
  565. pADO->Parameters->ParamByName("p02")->Value = AObj->CCTV_CTLR_ID;
  566. pADO->Parameters->ParamByName("p03")->Value = AObj->CCTV_NM;
  567. pADO->Parameters->ParamByName("p04")->Value = AObj->CCTV_CTLR_IP;
  568. pADO->Parameters->ParamByName("p05")->Value = AObj->CCTV_CTLR_PORT;
  569. pADO->Parameters->ParamByName("p06")->Value = AObj->CCTV_CTLR_LOCAL_NO;
  570. pADO->Parameters->ParamByName("p07")->Value = AObj->CCTV_TYPE_CD;
  571. pADO->Parameters->ParamByName("p08")->Value = AObj->ISTL_LCTN_NM;
  572. pADO->Parameters->ParamByName("p09")->Value = AObj->X_CRDN;
  573. pADO->Parameters->ParamByName("p10")->Value = AObj->Y_CRDN;
  574. pADO->Parameters->ParamByName("p11")->Value = AObj->DEL_YN;
  575. pADO->Parameters->ParamByName("p12")->Value = AObj->STRM_SVR_IP;
  576. pADO->Parameters->ParamByName("p13")->Value = AObj->STRM_SESN_NM;
  577. pADO->Parameters->ParamByName("p14")->Value = AObj->STRM_RTSP_ADDR;
  578. pADO->Parameters->ParamByName("p15")->Value = AObj->STRM_RTMP_ADDR;
  579. pADO->Parameters->ParamByName("p16")->Value = AObj->STRM_HTTP_ADDR;
  580. pADO->Parameters->ParamByName("p17")->Value = AObj->CCTV_IP;
  581. pADO->Parameters->ParamByName("p18")->Value = AObj->CCTV_PORT;
  582. pADO->Parameters->ParamByName("p19")->Value = AObj->CCTV_ID;
  583. pADO->Parameters->ParamByName("p20")->Value = AObj->CMRA_PSWD;
  584. pADO->Parameters->ParamByName("p21")->Value = AObj->CCTV_CHNL;
  585. pADO->ExecSQL();
  586. return MergeFcltInfo(AObj, ADbConn);
  587. }
  588. catch(EDatabaseError &E)
  589. {
  590. DBERRORLOG("TCctvCtlrManager::MergeCctv", String(E.ClassName()), E.Message, sQry);
  591. throw Exception(String(E.ClassName()) + E.Message);
  592. }
  593. catch(Exception &e)
  594. {
  595. DBERRORLOG("TCctvCtlrManager::MergeCctv", String(e.ClassName()), e.Message, sQry);
  596. throw Exception(String(e.ClassName()) + e.Message);
  597. }
  598. }
  599. __finally
  600. {
  601. if (pADO)
  602. {
  603. pADO->Close();
  604. delete pADO;
  605. }
  606. }
  607. return true;
  608. }
  609. #else
  610. bool TCctvCtlrManager::MergeCctv(TCctvCtlr *AObj, TADOConnection *ADbConn/*=NULL*/)
  611. {
  612. String sQry;
  613. TADOQuery *pADO = NULL;
  614. sQry = "MERGE INTO TB_CCTV_CTLR L \r\n"
  615. "USING (SELECT \r\n"
  616. " :p01 AS CCTV_MNGM_NMBR, \r\n"
  617. " :p02 AS CCTV_CTLR_ID, \r\n"
  618. " :p03 AS CCTV_CTLR_IP, \r\n"
  619. " :p04 AS CCTV_CTLR_PORT, \r\n"
  620. " :p05 AS CCTV_CAPT_IP, \r\n"
  621. " :p06 AS CCTV_CAPT_PORT, \r\n"
  622. " :p07 AS CCTV_FIBR_IP, \r\n"
  623. " :p08 AS CCTV_ENCD_IP, \r\n"
  624. " :p09 AS STRM_SVR_IP, \r\n"
  625. " :p10 AS STRM_SVR_PORT, \r\n"
  626. " :p11 AS STRM_SESN_NM, \r\n"
  627. " :p12 AS X_CRDN, \r\n"
  628. " :p13 AS Y_CRDN, \r\n"
  629. " :p14 AS ISTL_LCTN_NM, \r\n"
  630. " :p15 AS ISTL_LCTN_ADDR, \r\n"
  631. " :p16 AS CCTV_CHNL, \r\n"
  632. " :p17 AS DEL_YN, \r\n"
  633. " :p18 AS LINK_ID, \r\n"
  634. " :p19 AS NODE_ID, \r\n"
  635. " :p20 AS CCTV_ID, \r\n"
  636. " :p21 AS RELY_PORT, \r\n"
  637. " :p22 AS STRM_RTSP_ADDR, \r\n"
  638. " :p23 AS STRM_RTMP_ADDR, \r\n"
  639. " :p24 AS STRM_HTTP_ADDR, \r\n"
  640. " :p25 AS STRM_STOR_ADDR, \r\n"
  641. " :p26 AS AREA_CD, \r\n"
  642. " :p27 AS CCTV_TYPE, \r\n"
  643. " :p28 AS CCTV_SBST_DSPL_YN, \r\n"
  644. " :p29 AS CCTV_LC, \r\n"
  645. // " :p30 AS INTR_RTMP_ADDR, \r\n"
  646. // " :p31 AS SYOP_CNTL_YN, \r\n"
  647. " :p32 AS CMRA_ID, \r\n"
  648. " :p33 AS CMRA_PSWD, \r\n"
  649. " :p34 AS CMRA_CHNL, \r\n"
  650. " :p35 AS CMRA_PORT, \r\n"
  651. " :p36 AS CMRA_MODL, \r\n"
  652. " :p37 AS FULL_STRM_SESN_NM, \r\n"
  653. " :p38 AS MAC_ADDR, \r\n"
  654. " :p39 AS SERIAL_NO, \r\n"
  655. " :p40 AS TTA_CNFN_YN \r\n"
  656. " FROM DUAL) M \r\n"
  657. " ON (L.CCTV_MNGM_NMBR = M.CCTV_MNGM_NMBR) \r\n"
  658. "WHEN MATCHED THEN \r\n"
  659. " UPDATE SET \r\n"
  660. " L.CCTV_CTLR_ID = M.CCTV_CTLR_ID, \r\n"
  661. " L.CCTV_CTLR_IP = M.CCTV_CTLR_IP, \r\n"
  662. " L.CCTV_CTLR_PORT = M.CCTV_CTLR_PORT, \r\n"
  663. " L.CCTV_CAPT_IP = M.CCTV_CAPT_IP, \r\n"
  664. " L.CCTV_CAPT_PORT = M.CCTV_CAPT_PORT, \r\n"
  665. " L.CCTV_FIBR_IP = M.CCTV_FIBR_IP, \r\n"
  666. " L.CCTV_ENCD_IP = M.CCTV_ENCD_IP, \r\n"
  667. " L.STRM_SVR_IP = M.STRM_SVR_IP, \r\n"
  668. " L.STRM_SVR_PORT = M.STRM_SVR_PORT, \r\n"
  669. " L.STRM_SESN_NM = M.STRM_SESN_NM, \r\n"
  670. " L.X_CRDN = M.X_CRDN, \r\n"
  671. " L.Y_CRDN = M.Y_CRDN, \r\n"
  672. " L.ISTL_LCTN_NM = M.ISTL_LCTN_NM, \r\n"
  673. " L.ISTL_LCTN_ADDR = M.ISTL_LCTN_ADDR, \r\n"
  674. " L.CCTV_CHNL = M.CCTV_CHNL, \r\n"
  675. " L.DEL_YN = M.DEL_YN, \r\n"
  676. " L.LINK_ID = M.LINK_ID, \r\n"
  677. " L.NODE_ID = M.NODE_ID, \r\n"
  678. " L.CCTV_ID = M.CCTV_ID, \r\n"
  679. " L.RELY_PORT = M.RELY_PORT, \r\n"
  680. " L.STRM_RTSP_ADDR = M.STRM_RTSP_ADDR, \r\n"
  681. " L.STRM_RTMP_ADDR = M.STRM_RTMP_ADDR, \r\n"
  682. " L.STRM_HTTP_ADDR = M.STRM_HTTP_ADDR, \r\n"
  683. " L.STRM_STOR_ADDR = M.STRM_STOR_ADDR, \r\n"
  684. " L.AREA_CD = M.AREA_CD, \r\n"
  685. " L.CCTV_TYPE = M.CCTV_TYPE, \r\n"
  686. " L.CCTV_SBST_DSPL_YN = M.CCTV_SBST_DSPL_YN, \r\n"
  687. " L.CCTV_LC = M.CCTV_LC, \r\n"
  688. // " L.INTR_RTMP_ADDR = M.INTR_RTMP_ADDR, \r\n"
  689. // " L.SYOP_CNTL_YN = M.SYOP_CNTL_YN, \r\n"
  690. " L.CMRA_ID = M.CMRA_ID, \r\n"
  691. " L.CMRA_PSWD = M.CMRA_PSWD, \r\n"
  692. " L.CMRA_CHNL = M.CMRA_CHNL, \r\n"
  693. " L.CMRA_PORT = M.CMRA_PORT, \r\n"
  694. " L.CMRA_MODL = M.CMRA_MODL, \r\n"
  695. " L.FULL_STRM_SESN_NM = M.FULL_STRM_SESN_NM, \r\n"
  696. " L.MAC_ADDR = M.MAC_ADDR, \r\n"
  697. " L.SERIAL_NO = M.SERIAL_NO, \r\n"
  698. " L.TTA_CNFN_YN = M.TTA_CNFN_YN \r\n"
  699. "WHEN NOT MATCHED THEN \r\n"
  700. " INSERT ( \r\n"
  701. " CCTV_MNGM_NMBR, \r\n"
  702. " CCTV_CTLR_ID, \r\n"
  703. " CCTV_CTLR_IP, \r\n"
  704. " CCTV_CTLR_PORT, \r\n"
  705. " CCTV_CAPT_IP, \r\n"
  706. " CCTV_CAPT_PORT, \r\n"
  707. " CCTV_FIBR_IP, \r\n"
  708. " CCTV_ENCD_IP, \r\n"
  709. " STRM_SVR_IP, \r\n"
  710. " STRM_SVR_PORT, \r\n"
  711. " STRM_SESN_NM, \r\n"
  712. " X_CRDN, \r\n"
  713. " Y_CRDN, \r\n"
  714. " ISTL_LCTN_NM, \r\n"
  715. " ISTL_LCTN_ADDR, \r\n"
  716. " CCTV_CHNL, \r\n"
  717. " DEL_YN, \r\n"
  718. " LINK_ID, \r\n"
  719. " NODE_ID, \r\n"
  720. " CCTV_ID, \r\n"
  721. " RELY_PORT, \r\n"
  722. " STRM_RTSP_ADDR, \r\n"
  723. " STRM_RTMP_ADDR, \r\n"
  724. " STRM_HTTP_ADDR, \r\n"
  725. " STRM_STOR_ADDR, \r\n"
  726. " AREA_CD, \r\n"
  727. " CCTV_TYPE, \r\n"
  728. " CCTV_SBST_DSPL_YN, \r\n"
  729. " CCTV_LC, \r\n"
  730. // " INTR_RTMP_ADDR, \r\n"
  731. // " SYOP_CNTL_YN, \r\n"
  732. " CMRA_ID, \r\n"
  733. " CMRA_PSWD, \r\n"
  734. " CMRA_CHNL, \r\n"
  735. " CMRA_PORT, \r\n"
  736. " CMRA_MODL, \r\n"
  737. " FULL_STRM_SESN_NM, \r\n"
  738. " MAC_ADDR, \r\n"
  739. " SERIAL_NO, \r\n"
  740. " TTA_CNFN_YN \r\n"
  741. " ) \r\n"
  742. " VALUES ( \r\n"
  743. " M.CCTV_MNGM_NMBR, \r\n"
  744. " M.CCTV_CTLR_ID, \r\n"
  745. " M.CCTV_CTLR_IP, \r\n"
  746. " M.CCTV_CTLR_PORT, \r\n"
  747. " M.CCTV_CAPT_IP, \r\n"
  748. " M.CCTV_CAPT_PORT, \r\n"
  749. " M.CCTV_FIBR_IP, \r\n"
  750. " M.CCTV_ENCD_IP, \r\n"
  751. " M.STRM_SVR_IP, \r\n"
  752. " M.STRM_SVR_PORT, \r\n"
  753. " M.STRM_SESN_NM, \r\n"
  754. " M.X_CRDN, \r\n"
  755. " M.Y_CRDN, \r\n"
  756. " M.ISTL_LCTN_NM, \r\n"
  757. " M.ISTL_LCTN_ADDR, \r\n"
  758. " M.CCTV_CHNL, \r\n"
  759. " M.DEL_YN, \r\n"
  760. " M.LINK_ID, \r\n"
  761. " M.NODE_ID, \r\n"
  762. " M.CCTV_ID, \r\n"
  763. " M.RELY_PORT, \r\n"
  764. " M.STRM_RTSP_ADDR, \r\n"
  765. " M.STRM_RTMP_ADDR, \r\n"
  766. " M.STRM_HTTP_ADDR, \r\n"
  767. " M.STRM_STOR_ADDR, \r\n"
  768. " M.AREA_CD, \r\n"
  769. " M.CCTV_TYPE, \r\n"
  770. " M.CCTV_SBST_DSPL_YN, \r\n"
  771. " M.CCTV_LC, \r\n"
  772. // " M.INTR_RTMP_ADDR, \r\n"
  773. // " M.SYOP_CNTL_YN, \r\n"
  774. " M.CMRA_ID, \r\n"
  775. " M.CMRA_PSWD, \r\n"
  776. " M.CMRA_CHNL, \r\n"
  777. " M.CMRA_PORT, \r\n"
  778. " M.CMRA_MODL, \r\n"
  779. " M.FULL_STRM_SESN_NM, \r\n"
  780. " M.MAC_ADDR, \r\n"
  781. " M.SERIAL_NO, \r\n"
  782. " M.TTA_CNFN_YN \r\n"
  783. " ) \r\n";
  784. try
  785. {
  786. try
  787. {
  788. pADO = new TADOQuery(NULL);
  789. pADO->Close();
  790. pADO->Connection = (NULL != ADbConn) ? ADbConn : ITSDb_GetConnection();
  791. pADO->SQL->Clear();
  792. pADO->SQL->Text = sQry;
  793. pADO->Parameters->ParamByName("p01")->Value = AObj->CCTV_CTLR_NMBR; //CCTV_MNGM_NMBR;
  794. pADO->Parameters->ParamByName("p02")->Value = AObj->CCTV_CTLR_ID;
  795. pADO->Parameters->ParamByName("p03")->Value = AObj->CCTV_CTLR_IP;
  796. pADO->Parameters->ParamByName("p04")->Value = AObj->CCTV_CTLR_PORT;
  797. pADO->Parameters->ParamByName("p05")->Value = AObj->CCTV_CAPT_IP;
  798. pADO->Parameters->ParamByName("p06")->Value = AObj->CCTV_CAPT_PORT;
  799. pADO->Parameters->ParamByName("p07")->Value = AObj->CCTV_FIBR_IP;
  800. pADO->Parameters->ParamByName("p08")->Value = AObj->CCTV_ENCD_IP;
  801. pADO->Parameters->ParamByName("p09")->Value = AObj->STRM_SVR_IP;
  802. pADO->Parameters->ParamByName("p10")->Value = AObj->STRM_SVR_PORT;
  803. pADO->Parameters->ParamByName("p11")->Value = AObj->STRM_SESN_NM;
  804. pADO->Parameters->ParamByName("p12")->Value = AObj->X_CRDN;
  805. pADO->Parameters->ParamByName("p13")->Value = AObj->Y_CRDN;
  806. pADO->Parameters->ParamByName("p14")->Value = AObj->CCTV_NM; //ISTL_LCTN_NM;
  807. pADO->Parameters->ParamByName("p15")->Value = AObj->ISTL_LCTN_ADDR;
  808. pADO->Parameters->ParamByName("p16")->Value = AObj->CCTV_CHNL;
  809. pADO->Parameters->ParamByName("p17")->Value = AObj->DEL_YN;
  810. pADO->Parameters->ParamByName("p18")->Value = AObj->LINK_ID;
  811. pADO->Parameters->ParamByName("p19")->Value = AObj->NODE_ID;
  812. pADO->Parameters->ParamByName("p20")->Value = AObj->CCTV_ID;
  813. pADO->Parameters->ParamByName("p21")->Value = AObj->RELY_PORT;
  814. pADO->Parameters->ParamByName("p22")->Value = AObj->STRM_RTSP_ADDR;
  815. pADO->Parameters->ParamByName("p23")->Value = AObj->STRM_RTMP_ADDR;
  816. pADO->Parameters->ParamByName("p24")->Value = AObj->STRM_HTTP_ADDR;
  817. pADO->Parameters->ParamByName("p25")->Value = AObj->STRM_STOR_ADDR;
  818. pADO->Parameters->ParamByName("p26")->Value = AObj->AREA_CD;
  819. pADO->Parameters->ParamByName("p27")->Value = AObj->CCTV_TYPE;
  820. pADO->Parameters->ParamByName("p28")->Value = AObj->CCTV_SBST_DSPL_YN;
  821. pADO->Parameters->ParamByName("p29")->Value = AObj->CCTV_AREA_DVSN;
  822. //pADO->Parameters->ParamByName("p30")->Value = AObj->INTR_RTMP_ADDR;
  823. //pADO->Parameters->ParamByName("p31")->Value = AObj->SYOP_CNTL_YN;
  824. pADO->Parameters->ParamByName("p32")->Value = AObj->CMRA_ID;
  825. pADO->Parameters->ParamByName("p33")->Value = AObj->CMRA_PSWD;
  826. pADO->Parameters->ParamByName("p34")->Value = AObj->CMRA_CHNL;
  827. pADO->Parameters->ParamByName("p35")->Value = AObj->CMRA_PORT;
  828. pADO->Parameters->ParamByName("p36")->Value = AObj->CMRA_MODL;
  829. pADO->Parameters->ParamByName("p37")->Value = AObj->FULL_STRM_ADDR; //FULL_STRM_SESN_NM;
  830. pADO->Parameters->ParamByName("p38")->Value = AObj->MAC_ADDR;
  831. pADO->Parameters->ParamByName("p39")->Value = AObj->SERIAL_NO;
  832. pADO->Parameters->ParamByName("p40")->Value = AObj->TTA_CNFN_YN;
  833. pADO->ExecSQL();
  834. return MergeFcltInfo(AObj, ADbConn);
  835. }
  836. catch(EDatabaseError &E)
  837. {
  838. DBERRORLOG("TCctvCtlrManager::MergeCctv", String(E.ClassName()), E.Message, sQry);
  839. throw Exception(String(E.ClassName()) + E.Message);
  840. }
  841. catch(Exception &e)
  842. {
  843. DBERRORLOG("TCctvCtlrManager::MergeCctv", String(e.ClassName()), e.Message, sQry);
  844. throw Exception(String(e.ClassName()) + e.Message);
  845. }
  846. }
  847. __finally
  848. {
  849. if (pADO)
  850. {
  851. pADO->Close();
  852. delete pADO;
  853. }
  854. }
  855. return true;
  856. }
  857. #endif
  858. //---------------------------------------------------------------------------
  859. bool TCctvCtlrManager::MergeFcltInfo(TCctvCtlr *AObj, TADOConnection *ADbConn/*=NULL*/)
  860. {
  861. String sQry;
  862. TADOQuery *pADO = NULL;
  863. sQry = "MERGE INTO TB_FCLT_INFR L \r\n"
  864. "USING (SELECT :p01 AS FCLT_ID, \r\n"
  865. " :p02 AS FCLT_TYPE, \r\n"
  866. " :p03 AS FCLT_LCTN \r\n"
  867. " FROM DUAL) M \r\n"
  868. " ON (L.FCLT_ID = M.FCLT_ID AND L.FCLT_TYPE = M.FCLT_TYPE) \r\n"
  869. "WHEN MATCHED \r\n"
  870. "THEN \r\n"
  871. " UPDATE SET L.FCLT_LCTN = M.FCLT_LCTN, \r\n"
  872. " L.DEL_YN = 'N' \r\n"
  873. "WHEN NOT MATCHED \r\n"
  874. "THEN \r\n"
  875. " INSERT ( FCLT_ID, FCLT_TYPE, FCLT_LCTN) \r\n"
  876. " VALUES (M.FCLT_ID, M.FCLT_TYPE, M.FCLT_LCTN) \r\n";
  877. try
  878. {
  879. try
  880. {
  881. pADO = new TADOQuery(NULL);
  882. pADO->Close();
  883. pADO->Connection = (NULL != ADbConn) ? ADbConn : ITSDb_GetConnection();
  884. pADO->SQL->Clear();
  885. pADO->SQL->Text = sQry;
  886. pADO->Parameters->ParamByName("p01")->Value = AObj->CCTV_CTLR_ID;
  887. pADO->Parameters->ParamByName("p02")->Value = "CCTV";
  888. pADO->Parameters->ParamByName("p03")->Value = AObj->CCTV_NM;
  889. pADO->ExecSQL();
  890. return true;
  891. }
  892. catch(EDatabaseError &E)
  893. {
  894. DBERRORLOG("TCctvCtlrManager::MergeFcltInfo", String(E.ClassName()), E.Message, sQry);
  895. throw Exception(String(E.ClassName()) + E.Message);
  896. }
  897. catch(Exception &e)
  898. {
  899. DBERRORLOG("TCctvCtlrManager::MergeFcltInfo", String(e.ClassName()), e.Message, sQry);
  900. throw Exception(String(e.ClassName()) + e.Message);
  901. }
  902. }
  903. __finally
  904. {
  905. if (pADO)
  906. {
  907. pADO->Close();
  908. delete pADO;
  909. }
  910. }
  911. return true;
  912. }
  913. //---------------------------------------------------------------------------
  914. bool TCctvCtlrManager::GetNextCctvId(int &ANmbr, int &AId, TADOConnection *ADbConn/*=NULL*/)
  915. {
  916. String sQry;
  917. TADOQuery *pADO = NULL;
  918. #ifdef D_CCTV_HANTE
  919. sQry = "SELECT NVL(MAX(CCTV_CTLR_NMBR), 10000) + 1 AS NEWID FROM TB_CCTV_CTLR \r\n";
  920. #else
  921. sQry = "SELECT NVL(MAX(CCTV_MNGM_NMBR), 0) + 1 AS NEWID FROM TB_CCTV_CTLR \r\n";
  922. #endif
  923. try
  924. {
  925. try
  926. {
  927. pADO = new TADOQuery(NULL);
  928. pADO->Close();
  929. pADO->Connection = (NULL != ADbConn) ? ADbConn : ITSDb_GetConnection();
  930. pADO->SQL->Clear();
  931. pADO->SQL->Text = sQry;
  932. pADO->Prepared = true;
  933. pADO->Open();
  934. ANmbr = pADO->FieldByName("NEWID")->AsInteger;
  935. #ifdef D_CCTV_HANTE
  936. AId = ANmbr / 10000;
  937. #else
  938. AId = ANmbr;
  939. #endif
  940. return true;
  941. }
  942. catch(EDatabaseError &E)
  943. {
  944. DBERRORLOG("TCctvCtlrManager::GetNextCctvId", String(E.ClassName()), E.Message, sQry);
  945. throw Exception(String(E.ClassName()) + E.Message);
  946. }
  947. catch(Exception &e)
  948. {
  949. DBERRORLOG("TCctvCtlrManager::GetNextCctvId", String(e.ClassName()), e.Message, sQry);
  950. throw Exception(String(e.ClassName()) + e.Message);
  951. }
  952. }
  953. __finally
  954. {
  955. if (pADO)
  956. {
  957. pADO->Close();
  958. delete pADO;
  959. }
  960. }
  961. return false;
  962. }
  963. //---------------------------------------------------------------------------
  964. bool TCctvCtlrManager::LoadPreSet(TADOConnection *ADbConn/*=NULL*/)
  965. {
  966. String sQry;
  967. TADOQuery *pADO = NULL;
  968. FLists.Lock();
  969. try
  970. {
  971. FOR_STL(TCctvCtlr*, pObj, FLists)
  972. {
  973. pObj->FLists.RemoveAll();
  974. }
  975. }
  976. __finally
  977. {
  978. FLists.UnLock();
  979. }
  980. sQry = "SELECT B.* \r\n"
  981. " FROM TB_CCTV_CTLR A, \r\n"
  982. " TB_CCTV_PSET B \r\n"
  983. " WHERE A.CCTV_CTLR_NMBR = B.CCTV_CTLR_NMBR \r\n"
  984. " ORDER BY B.CCTV_CTLR_NMBR, B.PSET_NMBR \r\n";
  985. try
  986. {
  987. String CCTV_CTLR_NMBR;
  988. FLists.Lock();
  989. try
  990. {
  991. pADO = new TADOQuery(NULL);
  992. pADO->Close();
  993. pADO->Connection = (NULL != ADbConn) ? ADbConn : ITSDb_GetConnection();
  994. pADO->SQL->Clear();
  995. pADO->SQL->Text = sQry;
  996. pADO->Prepared = true;
  997. pADO->Open();
  998. for( ; !pADO->Eof; pADO->Next())
  999. {
  1000. CCTV_CTLR_NMBR = pADO->FieldByName("CCTV_CTLR_NMBR")->AsString;
  1001. TCctvCtlr *pCctv = FLists.Find(String(CCTV_CTLR_NMBR));
  1002. if (!pCctv) continue;
  1003. TCctvPset *pObj = new TCctvPset();
  1004. if (pObj)
  1005. {
  1006. pObj->CCTV_CTLR_NMBR = CCTV_CTLR_NMBR;
  1007. pObj->PSET_NMBR = pADO->FieldByName("PSET_NMBR")->AsInteger;
  1008. pObj->PSET_NM = pADO->FieldByName("PSET_NM")->AsString;
  1009. #if 1
  1010. pObj->PAN = pADO->FieldByName("PAN_VAL")->AsInteger;
  1011. pObj->TILT = pADO->FieldByName("TILT_VAL")->AsInteger;
  1012. pObj->ZOOM = pADO->FieldByName("ZOOM_VAL")->AsInteger;
  1013. pObj->FOCS = pADO->FieldByName("FOCS_VAL")->AsInteger;
  1014. #else
  1015. pObj->PAN = pADO->FieldByName("PAN")->AsInteger;
  1016. pObj->TILT = pADO->FieldByName("TILT")->AsInteger;
  1017. pObj->ZOOM = pADO->FieldByName("ZOOM")->AsInteger;
  1018. pObj->FOCS = pADO->FieldByName("FOCS")->AsInteger;
  1019. pObj->ANGLE = pADO->FieldByName("ANGLE")->AsInteger;
  1020. #endif
  1021. pObj->DFLT_YN = pADO->FieldByName("DFLT_YN")->AsString;
  1022. pObj->DEL_YN = "N";
  1023. pCctv->FLists.Push(pObj->PSET_NMBR, pObj);
  1024. }
  1025. }
  1026. }
  1027. catch(EDatabaseError &E)
  1028. {
  1029. DBERRORMSG("TCctvCtlrManager::LoadPreSet", String(E.ClassName()), E.Message, sQry);
  1030. throw Exception(String(E.ClassName()) + E.Message);
  1031. }
  1032. catch(Exception &e)
  1033. {
  1034. DBERRORMSG("TCctvCtlrManager::LoadPreSet", String(e.ClassName()), e.Message, sQry);
  1035. throw Exception(String(e.ClassName()) + e.Message);
  1036. }
  1037. }
  1038. __finally
  1039. {
  1040. if (pADO)
  1041. {
  1042. pADO->Close();
  1043. delete pADO;
  1044. }
  1045. FLists.UnLock();
  1046. }
  1047. return true;
  1048. }
  1049. //---------------------------------------------------------------------------
  1050. bool TCctvCtlrManager::SavePreSet(TCctvCtlr *AObj, TADOConnection *ADbConn/*=NULL*/)
  1051. {
  1052. String sQry;
  1053. TADOQuery *pADO = NULL;
  1054. try
  1055. {
  1056. try
  1057. {
  1058. pADO = new TADOQuery(NULL);
  1059. pADO->Close();
  1060. pADO->Connection = (NULL != ADbConn) ? ADbConn : ITSDb_GetConnection();
  1061. #if 1
  1062. sQry = "DELETE FROM TB_CCTV_PSET WHERE CCTV_MNGM_NMBR = :p01";
  1063. #else
  1064. sQry = "DELETE FROM TB_CCTV_PSET WHERE CCTV_CTLR_NMBR = :p01";
  1065. #endif
  1066. pADO->SQL->Clear();
  1067. pADO->SQL->Text = sQry;
  1068. pADO->Parameters->ParamByName("p01")->Value = AObj->CCTV_CTLR_NMBR;
  1069. pADO->ExecSQL();
  1070. #if 1
  1071. sQry = "INSERT INTO TB_CCTV_PSET( \r\n"
  1072. " CCTV_MNGM_NMBR, \r\n"
  1073. " PSET_NMBR, \r\n"
  1074. " PSET_NM, \r\n"
  1075. " PAN_VAL, \r\n"
  1076. " TILT_VAL, \r\n"
  1077. " ZOOM_VAL, \r\n"
  1078. " FOCS_VAL, \r\n"
  1079. " DFLT_YN ) \r\n"
  1080. " VALUES(:p01, :p02, :p03, :p04, :p05, :p06, :p07, :p08) \r\n";
  1081. #else
  1082. sQry = "INSERT INTO TB_CCTV_PSET( \r\n"
  1083. " CCTV_CTLR_NMBR, \r\n"
  1084. " PSET_NMBR, \r\n"
  1085. " PSET_NM, \r\n"
  1086. " PAN, \r\n"
  1087. " TILT, \r\n"
  1088. " ZOOM, \r\n"
  1089. " FOCS, \r\n"
  1090. " DFLT_YN ) \r\n"
  1091. " VALUES(:p01, :p02, :p03, :p04, :p05, :p06, :p07, :p08) \r\n";
  1092. #endif
  1093. pADO->SQL->Clear();
  1094. pADO->SQL->Text = sQry;
  1095. FOR_STL(TCctvPset *, pObj, AObj->FLists)
  1096. {
  1097. if (pObj->DEL_YN != "N") continue;
  1098. pADO->Parameters->ParamByName("p01")->Value = pObj->CCTV_CTLR_NMBR;
  1099. pADO->Parameters->ParamByName("p02")->Value = pObj->PSET_NMBR;
  1100. pADO->Parameters->ParamByName("p03")->Value = pObj->PSET_NM;
  1101. pADO->Parameters->ParamByName("p04")->Value = pObj->PAN;
  1102. pADO->Parameters->ParamByName("p05")->Value = pObj->TILT;
  1103. pADO->Parameters->ParamByName("p06")->Value = pObj->ZOOM;
  1104. pADO->Parameters->ParamByName("p07")->Value = pObj->FOCS;
  1105. pADO->Parameters->ParamByName("p08")->Value = pObj->DFLT_YN;
  1106. pADO->ExecSQL();
  1107. }
  1108. return true;
  1109. }
  1110. catch(EDatabaseError &E)
  1111. {
  1112. DBERRORLOG("TCctvCtlrManager::SavePreSet", String(E.ClassName()), E.Message, sQry);
  1113. throw Exception(String(E.ClassName()) + E.Message);
  1114. }
  1115. catch(Exception &e)
  1116. {
  1117. DBERRORLOG("TCctvCtlrManager::SavePreSet", String(e.ClassName()), e.Message, sQry);
  1118. throw Exception(String(e.ClassName()) + e.Message);
  1119. }
  1120. }
  1121. __finally
  1122. {
  1123. if (pADO)
  1124. {
  1125. pADO->Close();
  1126. delete pADO;
  1127. }
  1128. }
  1129. return true;
  1130. }
  1131. //---------------------------------------------------------------------------
  1132. bool TCctvCtlrManager::DeletePreSet(TCctvCtlr *AObj, int APsetNmbr, TADOConnection *ADbConn/*=NULL*/)
  1133. {
  1134. String sQry;
  1135. TADOQuery *pADO = NULL;
  1136. TCctvPset* pObj = AObj->FLists.Find(APsetNmbr);
  1137. if (!pObj) return false;
  1138. #if 1
  1139. sQry = "DELETE FROM TB_CCTV_PSET WHERE CCTV_MNGM_NMBR = :p01 AND PSET_NMBR = :p02";
  1140. #else
  1141. sQry = "DELETE FROM TB_CCTV_PSET WHERE CCTV_CTLR_NMBR = :p01 AND PSET_NMBR = :p02";
  1142. #endif
  1143. try
  1144. {
  1145. try
  1146. {
  1147. pADO = new TADOQuery(NULL);
  1148. pADO->Close();
  1149. pADO->Connection = (NULL != ADbConn) ? ADbConn : ITSDb_GetConnection();
  1150. pADO->SQL->Clear();
  1151. pADO->SQL->Text = sQry;
  1152. pADO->Parameters->ParamByName("p01")->Value = AObj->CCTV_CTLR_NMBR;
  1153. pADO->Parameters->ParamByName("p02")->Value = APsetNmbr;
  1154. pADO->ExecSQL();
  1155. pObj->DEL_YN = "Y";
  1156. return true;
  1157. }
  1158. catch(EDatabaseError &E)
  1159. {
  1160. DBERRORLOG("TCctvCtlrManager::DeletePreSet", String(E.ClassName()), E.Message, sQry);
  1161. throw Exception(String(E.ClassName()) + E.Message);
  1162. }
  1163. catch(Exception &e)
  1164. {
  1165. DBERRORLOG("TCctvCtlrManager::DeletePreSet", String(e.ClassName()), e.Message, sQry);
  1166. throw Exception(String(e.ClassName()) + e.Message);
  1167. }
  1168. }
  1169. __finally
  1170. {
  1171. if (pADO)
  1172. {
  1173. pADO->Close();
  1174. delete pADO;
  1175. }
  1176. }
  1177. return true;
  1178. }
  1179. //---------------------------------------------------------------------------
  1180. bool TCctvCtlrManager::MergePreSet(TCctvCtlr *AObj, TCctvPset* APset, TADOConnection *ADbConn/*=NULL*/)
  1181. {
  1182. String sQry;
  1183. TADOQuery *pADO = NULL;
  1184. try
  1185. {
  1186. try
  1187. {
  1188. pADO = new TADOQuery(NULL);
  1189. pADO->Close();
  1190. pADO->Connection = (NULL != ADbConn) ? ADbConn : ITSDb_GetConnection();
  1191. #if 1
  1192. sQry = "MERGE INTO TB_CCTV_PSET L \r\n"
  1193. "USING (SELECT \r\n"
  1194. " :p01 AS CCTV_MNGM_NMBR, \r\n"
  1195. " :p02 AS PSET_NMBR, \r\n"
  1196. " :p03 AS PSET_NM, \r\n"
  1197. " :p04 AS PAN_VAL, \r\n"
  1198. " :p05 AS TILT_VAL, \r\n"
  1199. " :p06 AS ZOOM, \r\n"
  1200. " :p07 AS FOCS_VAL, \r\n"
  1201. " :p08 AS DFLT_YN \r\n"
  1202. " FROM DUAL) M \r\n"
  1203. " ON (L.CCTV_MNGM_NMBR = M.CCTV_MNGM_NMBR \r\n"
  1204. " AND L.PSET_NMBR = M.PSET_NMBR ) \r\n"
  1205. "WHEN MATCHED THEN \r\n"
  1206. " UPDATE SET L.PSET_NM = M.PSET_NM, \r\n"
  1207. " L.PAN_VAL = M.PAN_VAL, \r\n"
  1208. " L.TILT_VAL = M.TILT_VAL, \r\n"
  1209. " L.ZOOM_VAL = M.ZOOM_VAL, \r\n"
  1210. " L.FOCS_VAL = M.FOCS_VAL, \r\n"
  1211. " L.DFLT_YN = M.DFLT_YN \r\n"
  1212. "WHEN NOT MATCHED THEN \r\n"
  1213. " INSERT ( \r\n"
  1214. " CCTV_MNGM_NMBR, \r\n"
  1215. " PSET_NMBR, \r\n"
  1216. " PSET_NM, \r\n"
  1217. " PAN_VAL, \r\n"
  1218. " TILT_VAL, \r\n"
  1219. " ZOOM_VAL, \r\n"
  1220. " FOCS_VAL, \r\n"
  1221. " DFLT_YN ) \r\n"
  1222. " VALUES ( \r\n"
  1223. " M.CCTV_MNGM_NMBR, \r\n"
  1224. " M.PSET_NMBR, \r\n"
  1225. " M.PSET_NM, \r\n"
  1226. " M.PAN_VAL, \r\n"
  1227. " M.TILT_VAL, \r\n"
  1228. " M.ZOOM_VAL, \r\n"
  1229. " M.FOCS_VAL, \r\n"
  1230. " M.DFLT_YN ) \r\n";
  1231. #else
  1232. sQry = "MERGE INTO TB_CCTV_PSET L \r\n"
  1233. "USING (SELECT \r\n"
  1234. " :p01 AS CCTV_CTLR_NMBR, \r\n"
  1235. " :p02 AS PSET_NMBR, \r\n"
  1236. " :p03 AS PSET_NM, \r\n"
  1237. " :p04 AS PAN, \r\n"
  1238. " :p05 AS TILT, \r\n"
  1239. " :p06 AS ZOOM, \r\n"
  1240. " :p07 AS FOCS, \r\n"
  1241. " :p08 AS DFLT_YN \r\n"
  1242. " FROM DUAL) M \r\n"
  1243. " ON (L.CCTV_CTLR_NMBR = M.CCTV_CTLR_NMBR \r\n"
  1244. " AND L.PSET_NMBR = M.PSET_NMBR ) \r\n"
  1245. "WHEN MATCHED THEN \r\n"
  1246. " UPDATE SET L.PSET_NM = M.PSET_NM, \r\n"
  1247. " L.PAN = M.PAN, \r\n"
  1248. " L.TILT = M.TILT, \r\n"
  1249. " L.ZOOM = M.ZOOM, \r\n"
  1250. " L.FOCS = M.FOCS, \r\n"
  1251. " L.DFLT_YN = M.DFLT_YN \r\n"
  1252. "WHEN NOT MATCHED THEN \r\n"
  1253. " INSERT ( \r\n"
  1254. " CCTV_CTLR_NMBR, \r\n"
  1255. " PSET_NMBR, \r\n"
  1256. " PSET_NM, \r\n"
  1257. " PAN, \r\n"
  1258. " TILT, \r\n"
  1259. " ZOOM, \r\n"
  1260. " FOCS, \r\n"
  1261. " DFLT_YN ) \r\n"
  1262. " VALUES ( \r\n"
  1263. " M.CCTV_CTLR_NMBR, \r\n"
  1264. " M.PSET_NMBR, \r\n"
  1265. " M.PSET_NM, \r\n"
  1266. " M.PAN, \r\n"
  1267. " M.TILT, \r\n"
  1268. " M.ZOOM, \r\n"
  1269. " M.FOCS, \r\n"
  1270. " M.DFLT_YN ) \r\n";
  1271. #endif
  1272. pADO->SQL->Clear();
  1273. pADO->SQL->Text = sQry;
  1274. FOR_STL(TCctvPset *, pObj, AObj->FLists)
  1275. {
  1276. if (pObj->DEL_YN != "N") continue;
  1277. pADO->Parameters->ParamByName("p01")->Value = APset->CCTV_CTLR_NMBR;
  1278. pADO->Parameters->ParamByName("p02")->Value = APset->PSET_NMBR;
  1279. pADO->Parameters->ParamByName("p03")->Value = APset->PSET_NM;
  1280. pADO->Parameters->ParamByName("p04")->Value = APset->PAN;
  1281. pADO->Parameters->ParamByName("p05")->Value = APset->TILT;
  1282. pADO->Parameters->ParamByName("p06")->Value = APset->ZOOM;
  1283. pADO->Parameters->ParamByName("p07")->Value = APset->FOCS;
  1284. pADO->Parameters->ParamByName("p08")->Value = APset->DFLT_YN;
  1285. pADO->ExecSQL();
  1286. TCctvPset* pObj = AObj->FLists.Find(APset->PSET_NMBR);
  1287. if (pObj)
  1288. {
  1289. pObj->CCTV_CTLR_NMBR = APset->CCTV_CTLR_NMBR;
  1290. pObj->PSET_NMBR = APset->PSET_NMBR;
  1291. pObj->PSET_NM = APset->PSET_NM;
  1292. pObj->PAN = APset->PAN;
  1293. pObj->TILT = APset->TILT;
  1294. pObj->ZOOM = APset->ZOOM;
  1295. pObj->FOCS = APset->FOCS;
  1296. pObj->DFLT_YN = APset->DFLT_YN;
  1297. }
  1298. else
  1299. {
  1300. AObj->FLists.Push(APset->PSET_NMBR, APset);
  1301. }
  1302. }
  1303. return true;
  1304. }
  1305. catch(EDatabaseError &E)
  1306. {
  1307. DBERRORLOG("TCctvCtlrManager::SavePreSet", String(E.ClassName()), E.Message, sQry);
  1308. throw Exception(String(E.ClassName()) + E.Message);
  1309. }
  1310. catch(Exception &e)
  1311. {
  1312. DBERRORLOG("TCctvCtlrManager::SavePreSet", String(e.ClassName()), e.Message, sQry);
  1313. throw Exception(String(e.ClassName()) + e.Message);
  1314. }
  1315. }
  1316. __finally
  1317. {
  1318. if (pADO)
  1319. {
  1320. pADO->Close();
  1321. delete pADO;
  1322. }
  1323. }
  1324. return true;
  1325. }
  1326. //---------------------------------------------------------------------------
  1327. bool TCctvCtlrManager::InsCctvControlHs(String ACtlDt, String ACctvNmbr, String ACtlType, String ACtlVal, String ACtlRes, String AUserId, TADOConnection *ADbConn/*=NULL*/)
  1328. {
  1329. String sQry;
  1330. TADOQuery *pADO = NULL;
  1331. sQry = "INSERT INTO TB_CCTV_CTRL_HS( \r\n"
  1332. " CTRL_DT, \r\n"
  1333. " CCTV_CTLR_NMBR, \r\n"
  1334. " CTRL_TYPE, \r\n"
  1335. " CTRL_VAL, \r\n"
  1336. " CTRL_RESULT, \r\n"
  1337. " USER_ID \r\n"
  1338. " ) \r\n"
  1339. " VALUES( \r\n"
  1340. " :p01, \r\n"
  1341. " :p02, \r\n"
  1342. " :p03, \r\n"
  1343. " :p04, \r\n"
  1344. " :p05, \r\n"
  1345. " :p06 \r\n"
  1346. " ) \r\n";
  1347. try
  1348. {
  1349. try
  1350. {
  1351. pADO = new TADOQuery(NULL);
  1352. pADO->Close();
  1353. pADO->Connection = (NULL != ADbConn) ? ADbConn : ITSDb_GetConnection();
  1354. pADO->SQL->Clear();
  1355. pADO->SQL->Text = sQry;
  1356. pADO->Parameters->ParamByName("p01")->Value = ACtlDt;
  1357. pADO->Parameters->ParamByName("p02")->Value = ACctvNmbr;
  1358. pADO->Parameters->ParamByName("p03")->Value = ACtlType;
  1359. pADO->Parameters->ParamByName("p04")->Value = ACtlVal;
  1360. pADO->Parameters->ParamByName("p05")->Value = ACtlRes;
  1361. pADO->Parameters->ParamByName("p06")->Value = AUserId;
  1362. pADO->ExecSQL();
  1363. return true;
  1364. }
  1365. catch(EDatabaseError &E)
  1366. {
  1367. DBERRORLOG("TCctvCtlrManager::InsCctvControlHs", String(E.ClassName()), E.Message, sQry);
  1368. throw Exception(String(E.ClassName()) + E.Message);
  1369. }
  1370. catch(Exception &e)
  1371. {
  1372. DBERRORLOG("TCctvCtlrManager::InsCctvControlHs", String(e.ClassName()), e.Message, sQry);
  1373. throw Exception(String(e.ClassName()) + e.Message);
  1374. }
  1375. }
  1376. __finally
  1377. {
  1378. if (pADO)
  1379. {
  1380. pADO->Close();
  1381. delete pADO;
  1382. }
  1383. }
  1384. return true;
  1385. }
  1386. //---------------------------------------------------------------------------