//--------------------------------------------------------------------------- #include #pragma hdrstop //--------------------------------------------------------------------------- #define MIN(a,b) (((a)<(b))?(a):(b)) #define MAX(a,b) (((a)>(b))?(a):(b)) //--------------------------------------------------------------------------- #include "FrmTestMainF.h" //--------------------------------------------------------------------------- #pragma package(smart_init) #pragma link "cxButtons" #pragma link "cxContainer" #pragma link "cxControls" #pragma link "cxDropDownEdit" #pragma link "cxEdit" #pragma link "cxGraphics" #pragma link "cxLookAndFeelPainters" #pragma link "cxLookAndFeels" #pragma link "cxMaskEdit" #pragma link "cxSpinEdit" #pragma link "cxTextEdit" #pragma link "dxSkinBlack" #pragma link "dxSkinMcSkin" #pragma link "dxSkinsCore" #pragma resource "*.dfm" TVmsTestMain *VmsTestMain; //--------------------------------------------------------------------------- __fastcall TVmsTestMain::TVmsTestMain(TComponent* Owner) : TForm(Owner) { } //--------------------------------------------------------------------------- void __fastcall TVmsTestMain::Button12Click(TObject *Sender) { AnsiString sReqTime = Now().FormatString("yyyymmddhhnnss"); VMS_REQ_ERR_NODL req; memset((char*)&req, 0x00, sizeof(req)); String AOperId = "superadmin"; String AVmsId = "VMS-010"; strcpy(req.Control.OperId, AnsiString(AOperId).c_str()); /* 운영자 ID */ strcpy(req.Control.VmsId, AnsiString(AVmsId).c_str()); /* VMS ID */ //memcpy(req.Control.OperId, AnsiString(AOperId).c_str(), OPER_ID_SZ); /* 운영자 ID */ //memcpy(req.Control.VmsId, AnsiString(AVmsId).c_str(), VMS_ID_SZ); /* VMS ID */ memcpy(req.Control.ReqTime, sReqTime.c_str(), DATETIME_SZ); /* 명령수행시각 */ req.Control.Command = 'M'; req.ErrRate = 0; } //--------------------------------------------------------------------------- void __fastcall TVmsTestMain::ExecuteVmsProgram(String AClassName, String AExeName) { bool isDbConn = true; String sAppPath = ""; String sMagicId = "ICAIR"; String sOperId = isDbConn ? "superadmin" : "direct"; HWND hExeForm = FindWindow(AClassName.c_str(), NULL); if (hExeForm) { SetWindowPos(hExeForm, HWND_TOP, 0, 0, 0, 0, SWP_SHOWWINDOW | SWP_NOSIZE | SWP_NOMOVE); ShowWindow(hExeForm, SW_RESTORE); } else { String sExeName = ""; String sExeParam= ""; if (sAppPath == "") { sExeName = AExeName; } else { sExeName = sAppPath + "\\" + AExeName; } sExeParam = sMagicId + " " + sOperId; ShellExecute(Handle, NULL, sExeName.c_str(), sExeParam.c_str(), NULL, SW_SHOWNORMAL); } } //--------------------------------------------------------------------------- void __fastcall TVmsTestMain::BtrnReFormClearClick(TObject *Sender) { String VMS_FORM_ID = "P-0001"; String OBJ_VMS_FORM_ID = VMS_FORM_ID.SubString(1, 6); String VMS_FORM_OBJ_ID = ""; int newObjSeq = 1; VMS_FORM_OBJ_ID.printf(L"%s-%03d", OBJ_VMS_FORM_ID, newObjSeq++); } //--------------------------------------------------------------------------- void __fastcall TVmsTestMain::Button2Click(TObject *Sender) { // VMS 메시지 관리 ExecuteVmsProgram("TFrmVmsMsgFormMngr", "VmsMsgFormMngr.exe"); } //--------------------------------------------------------------------------- void __fastcall TVmsTestMain::BtnRunSymbMngrClick(TObject *Sender) { // VMS 이미지 관리 ExecuteVmsProgram("TFrmVmsMsgSymbMngr", "VmsMsgSymbMngr.exe"); } //--------------------------------------------------------------------------- void __fastcall TVmsTestMain::Button1Click(TObject *Sender) { // VMS 스케쥴관리 ExecuteVmsProgram("TFrmVmsMsgScheMngr", "VmsMsgScheMngr.exe"); } //--------------------------------------------------------------------------- void __fastcall TVmsTestMain::Button13Click(TObject *Sender) { // LCS 스케쥴관리 ExecuteVmsProgram("TFrmVmsLcsScheMngr", "VmsLcsScheMngr.exe"); } //--------------------------------------------------------------------------- void __fastcall TVmsTestMain::Button3Click(TObject *Sender) { // VMS 대응 메시지 관리 ExecuteVmsProgram("TFrmVmsMsgRespMngr", "VmsMsgRespMngr.exe"); } //--------------------------------------------------------------------------- void __fastcall TVmsTestMain::Button4Click(TObject *Sender) { // VMS 기본 메시지 관리 ExecuteVmsProgram("TFrmVmsMsgDfltMngr", "VmsMsgDfltMngr.exe"); } //--------------------------------------------------------------------------- void __fastcall TVmsTestMain::Button8Click(TObject *Sender) { // VMS 홍보 메시지 관리 ExecuteVmsProgram("TFrmVmsMsgPubrMngr", "VmsMsgPubrMngr.exe"); } //--------------------------------------------------------------------------- void __fastcall TVmsTestMain::Button10Click(TObject *Sender) { // VMS 긴급 메시지 관리 ExecuteVmsProgram("TFrmVmsMsgEmgrMngr", "VmsMsgEmgrMngr.exe"); } //--------------------------------------------------------------------------- void __fastcall TVmsTestMain::Button5Click(TObject *Sender) { // VMS 메시지 수동표출 ExecuteVmsProgram("TFrmVmsMsgUserDisp", "VmsMsgUserDisp.exe"); } //--------------------------------------------------------------------------- void __fastcall TVmsTestMain::Button6Click(TObject *Sender) { // VMS 원격제어 ExecuteVmsProgram("TFrmVmsRemoteCtrl", "VmsRemoteCtrl.exe"); } //--------------------------------------------------------------------------- void __fastcall TVmsTestMain::Button7Click(TObject *Sender) { // VMS 메시지 수동표출(DB 오류) ExecuteVmsProgram("TFrmVmsMsgSendDisp", "VmsMsgSendDisp.exe"); } //--------------------------------------------------------------------------- void __fastcall TVmsTestMain::Button11Click(TObject *Sender) { // VMS 동영상 관리 ExecuteVmsProgram("TFrmVmsMsgVideoMngr", "VmsMsgVideoMngr.exe"); } //--------------------------------------------------------------------------- void __fastcall TVmsTestMain::Button14Click(TObject *Sender) { // VMS 모듈 상태 모니터링 ExecuteVmsProgram("TFrmVmsModuleStts", "VmsModuleStts.exe"); } //--------------------------------------------------------------------------- void __fastcall TVmsTestMain::Button9Click(TObject *Sender) { // VMS 표출 메시지 모니터링 ExecuteVmsProgram("TFrmVmsMsgDsplPrst", "VmsMsgDsplPrst.exe"); } //--------------------------------------------------------------------------- void __fastcall TVmsTestMain::Button15Click(TObject *Sender) { // VMS 표출 시나리오 모니터링 ExecuteVmsProgram("TFrmVmsMsgDsplSche", "VmsMsgDsplSche.exe"); } //--------------------------------------------------------------------------- void __fastcall TVmsTestMain::Button16Click(TObject *Sender) { // VMS 영상 모니터링 ExecuteVmsProgram("TFrmVmsCmraViewer", "VmsCmraViewer.exe"); } //--------------------------------------------------------------------------- void __fastcall TVmsTestMain::Button17Click(TObject *Sender) { // 실행프로그램 종료 // VMS 메시지 관리 TermVmsProgram("TFrmVmsMsgFormMngr", "VMS 메시지 관리"); // VMS 이미지 관리 TermVmsProgram("TFrmVmsMsgSymbMngr", "VMS 이미지 관리"); // VMS 스케쥴관리 TermVmsProgram("TFrmVmsMsgScheMngr", "VMS 스케줄 관리"); // LCS 스케쥴관리 TermVmsProgram("TFrmVmsLcsScheMngr", "LCS 스케줄 관리"); // VMS 대응 메시지 관리 TermVmsProgram("TFrmVmsMsgRespMngr", "VMS 대응 메시지 관리"); // VMS 기본 메시지 관리 TermVmsProgram("TFrmVmsMsgDfltMngr", "VMS 기본 메시지 관리"); // VMS 홍보 메시지 관리 TermVmsProgram("TFrmVmsMsgPubrMngr", "VMS 홍보 메시지 관리"); // VMS 긴급 메시지 관리 TermVmsProgram("TFrmVmsMsgEmgrMngr", "VMS 긴급 메시지 관리"); // VMS 메시지 수동표출 TermVmsProgram("TFrmVmsMsgUserDisp", "VMS 메시지 수동표출"); // VMS 원격제어 TermVmsProgram("TFrmVmsRemoteCtrl", "VMS 원격제어"); // VMS 메시지 수동표출(DB 오류) TermVmsProgram("TFrmVmsMsgSendDisp", "VMS 메시지 수동표출 - (DB 장애)"); // VMS 동영상 관리 TermVmsProgram("TFrmVmsMsgVideoMngr", "VMS 동영상 관리"); // VMS 모듈 상태 모니터링 TermVmsProgram("TFrmVmsModuleStts", "VMS 모듈 상태 모니터링"); // VMS 표출 메시지 모니터링 TermVmsProgram("TFrmVmsMsgDsplPrst", "VMS 표출 메시지 모니터링"); // VMS 표출 시나리오 모니터링 TermVmsProgram("TFrmVmsMsgDsplSche", "VMS 표출 시나리오 모니터링"); // VMS 영상 모니터링 TermVmsProgram("TFrmVmsCmraViewer", "VMS 영상 모니터링"); } //--------------------------------------------------------------------------- void __fastcall TVmsTestMain::TermVmsProgram(String AClassName, String AExeName) { HWND hExeForm = FindWindow(AClassName.c_str(), NULL); if (hExeForm) { ::PostMessage(hExeForm, WM_CLOSE, 0, 0); } } //---------------------------------------------------------------------------