ITS_OP/VmsTestMain/FrmTestMainF.cpp

//---------------------------------------------------------------------------

#include <vcl.h>
#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);
	}
}
//---------------------------------------------------------------------------