VmsCommServer/SRC/FRM/FrmVmsInfoF.cpp

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

#include <vcl.h>
#pragma hdrstop

#include "FrmVmsInfoF.h"
#include "FrmVmsLogF.h"
#include "FrmMainF.h"
#include "AppGlobalF.h"
#include "VMSCThread.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma link "cxCalc"
#pragma link "cxClasses"
#pragma link "cxControls"
#pragma link "cxCustomData"
#pragma link "cxData"
#pragma link "cxDataStorage"
#pragma link "cxEdit"
#pragma link "cxFilter"
#pragma link "cxGraphics"
#pragma link "cxGrid"
#pragma link "cxGridCustomTableView"
#pragma link "cxGridCustomView"
#pragma link "cxGridLevel"
#pragma link "cxGridTableView"
#pragma link "cxLabel"
#pragma link "cxLookAndFeelPainters"
#pragma link "cxLookAndFeels"
#pragma link "cxStyles"
#pragma resource "*.dfm"
TFrmVmsInfo *FrmVmsInfo = NULL;

String VmsModuleType(TVmsCtlr *AObj)
{
#ifdef LANG_ENG
    if (AObj->VmsType == "VUTN") return "Text";
    return "Figure";
#else
    if (AObj->VmsType == "VUTN") return "문자식";
    return "도형식";
#endif
}
//---------------------------------------------------------------------------

String VmsOperMode(TVmsCtlr *AObj)
{
#ifdef LANG_ENG
    if (AObj->OPER_MODE == "A") return "Auto";
    return "Fixed";
#else
    if (AObj->OPER_MODE == "A") return "자동";
    return "고정";
#endif
}
//---------------------------------------------------------------------------

String VmsComm(TVmsCtlr *AObj)
{
#ifdef LANG_ENG
    if (AObj->Client.Comm == state_open) return "Normal";
    return "Error";
#else
    if (AObj->Client.Comm == state_open) return "정상";
    return "장애";
#endif
}
//---------------------------------------------------------------------------

String VmsModuleState(TVmsCtlr *AObj)
{
#ifdef LANG_ENG
    if (AObj->Client.Comm != state_open) return "-";
    if (AObj->RSTATE.ModuleState == vms_normal) return "Normal";
    return "Error";
#else
    if (AObj->Client.Comm != state_open) return "-";
    if (AObj->RSTATE.ModuleState == vms_normal) return "정상";
    return "장애";
#endif
}
//---------------------------------------------------------------------------

String VmsModulePower(TVmsCtlr *AObj)
{
#ifdef LANG_ENG
    if (AObj->Client.Comm != state_open) return "-";
    if (AObj->RSTATE.ModulePowerStatus == vms_on) return "On";
    return "Off";
#else
    if (AObj->Client.Comm != state_open) return "-";
    if (AObj->RSTATE.ModulePowerStatus == vms_on) return "켜짐";
    return "꺼짐";
#endif
}
//---------------------------------------------------------------------------

String VmsModuleLuminance(TVmsCtlr *AObj)
{
    if (AObj->Client.Comm != state_open) return "-";
    int nLuminance = AObj->RSTATE.LuminanceStatus;
    return String(nLuminance);
}
//---------------------------------------------------------------------------

String VmsModuleDoor(TVmsCtlr *AObj)
{
#ifdef LANG_ENG
    if (AObj->Client.Comm != state_open) return "-";
    if (AObj->RSTATE.DoorStatus == vms_open) return "Open";
    return "Close";
#else
    if (AObj->Client.Comm != state_open) return "-";
    if (AObj->RSTATE.DoorStatus == vms_open) return "열림";
    return "닫힘";
#endif
}
//---------------------------------------------------------------------------


String VmsModuleFan(TVmsCtlr *AObj)
{
#ifdef LANG_ENG
    if (AObj->Client.Comm != state_open) return "-";
    if (AObj->RSTATE.FanStatus == vms_on) return "On";
    return "Off";
#else
    if (AObj->Client.Comm != state_open) return "-";
    if (AObj->RSTATE.FanStatus == vms_on) return "동작";
    return "정지";
#endif
}
//---------------------------------------------------------------------------


String VmsModuleHeater(TVmsCtlr *AObj)
{
#ifdef LANG_ENG
    if (AObj->Client.Comm != state_open) return "-";
    if (AObj->RSTATE.HeaterStatus == vms_on) return "On";
    return "Off";
#else
    if (AObj->Client.Comm != state_open) return "-";
    if (AObj->RSTATE.HeaterStatus == vms_on) return "가동";
    return "중지";
#endif
}
//---------------------------------------------------------------------------


String VmsModuleTemp(TVmsCtlr *AObj)
{
    if (AObj->Client.Comm != state_open) return "-";
    int nTemp = AObj->RSTATE.BodyTemp;
    return String(nTemp);//+"℃";
}
//---------------------------------------------------------------------------

//---------------------------------------------------------------------------
__fastcall TFrmVmsInfo::TFrmVmsInfo(TComponent* Owner)
    : TForm(Owner)
{
    FViewMode = 0;
    FVmsCnt = 0;
}
//---------------------------------------------------------------------------

void __fastcall TFrmVmsInfo::InitVmsList()
{
    int nRow;
    TcxDataController *pGDC = TvList->DataController;

    try
    {
        TvList->BeginUpdate();
        pGDC->BeginUpdate();
        pGDC->RecordCount = 0;

        VmsIterator it;
        for(it=VmsManager->FLists.FMapObject.begin(); it != VmsManager->FLists.FMapObject.end(); ++it)
        {
            TVmsCtlr *pObj = (TVmsCtlr*)it->second;
            nRow = pGDC->AppendRecord();

            pGDC->Values[nRow][Col00->Index] = process_stop;
            pGDC->Values[nRow][Col01->Index] = "";
            pGDC->Values[nRow][Col02->Index] = pObj->VmsNo;
            pGDC->Values[nRow][Col03->Index] = pObj->VmsId;
            pGDC->Values[nRow][Col04->Index] = pObj->Name;
            pGDC->Values[nRow][Col05->Index] = pObj->IpAddress + "." + String(pObj->LocalNo);
            pGDC->Values[nRow][Col06->Index] = "-";
            pGDC->Values[nRow][Col07->Index] = "-";
            pGDC->Values[nRow][Col08->Index] = "-";
            pGDC->Values[nRow][Col09->Index] = "-";
            pGDC->Values[nRow][Col10->Index] = "-";
            pGDC->Values[nRow][Col11->Index] = "-";
            pGDC->Values[nRow][Col12->Index] = "-";
            pGDC->Values[nRow][Col13->Index] = "-";
            pGDC->Values[nRow][Col14->Index] = "-";
            pGDC->Values[nRow][Col15->Index] = "-";

            pGDC->Values[nRow][Col99->Index] = (int)pObj;

            pObj->RowNo = nRow;
        }
    }
    __finally
    {
        pGDC->EndUpdate();
        TvList->EndUpdate();
        FVmsCnt = pGDC->RecordCount;
    }

    VmsManager->Total  = VmsManager->Count;
    VmsManager->Error  = VmsManager->Count;
    VmsManager->Normal = 0;
    VmsManager->Module = 0;

    plTot->Caption = String(VmsManager->Count);
    plErr->Caption = String(VmsManager->Count);
    plNor->Caption = "0";
}
//---------------------------------------------------------------------------

void __fastcall TFrmVmsInfo::UpdateServerState(int AObj)
{
    TcxDataController *pGDC = TvList->DataController;
    try
    {
        int       nErrCnt = 0;
        int       nMemPtr;
        TVmsCtlr *pObj;
        for (int nRow = 0; nRow < FVmsCnt; nRow++)
        {
            nMemPtr = pGDC->Values[nRow][Col99->Index];
            pObj = (TVmsCtlr*)nMemPtr;
            if (!pObj) continue;

            //TODO
            pGDC->Values[nRow][Col00->Index] = pObj->Client.Comm;
            pObj->Server.Status = pObj->Client.Comm == state_open ? process_run : process_fail;
            if (pObj->Server.Status != process_run)
            {
                pGDC->Values[nRow][Col00->Index] = process_stop;
                nErrCnt++;
            }
            pGDC->Values[nRow][Col14->Index] = pObj->ConnectTm;       //Connect
            pGDC->Values[nRow][Col15->Index] = pObj->DisconnectTm;    //Disconnect
        }

        VmsManager->Error  = nErrCnt;
        VmsManager->Normal = FVmsCnt-nErrCnt;
        plTot->Caption = String(FVmsCnt);
        plErr->Caption = String(nErrCnt);
        plNor->Caption = String(FVmsCnt-nErrCnt);
    }
    catch(Exception &e)
    {
    }
}
//---------------------------------------------------------------------------

void __fastcall TFrmVmsInfo::UpdateClientState(int AObj)
{
#ifdef LANG_ENG
    String sNormal = "Normal";
    String sError  = "Error";
#else
    String sNormal = "정상";
    String sError  = "오류";
#endif

    TcxDataController *pGDC = TvList->DataController;
    try
    {
        int       nMemPtr;
        TVmsCtlr *pObj;
        for(int nRow = 0; nRow < FVmsCnt; nRow++)
        {
            nMemPtr = pGDC->Values[nRow][Col99->Index];
            pObj = (TVmsCtlr*)nMemPtr;
            if (!pObj) continue;

            if (pObj->Client.Status == process_run)
            {
                if (pObj->Client.Comm == state_open)
                    pGDC->Values[nRow][Col06->Index] = sNormal;
                else
                    pGDC->Values[nRow][Col06->Index] = "-";
            }
            else
            {
                pGDC->Values[nRow][Col06->Index] = sError;
            }

            pGDC->Values[nRow][Col07->Index] = VmsModuleState(pObj);      //모듈
            pGDC->Values[nRow][Col08->Index] = VmsModuleLuminance(pObj);  //휘도
            pGDC->Values[nRow][Col09->Index] = VmsModulePower(pObj);      //전원
            pGDC->Values[nRow][Col10->Index] = VmsModuleDoor(pObj);       //도어
            pGDC->Values[nRow][Col11->Index] = VmsModuleFan(pObj);        //팬
            pGDC->Values[nRow][Col12->Index] = VmsModuleHeater(pObj);     //히터
            pGDC->Values[nRow][Col13->Index] = VmsModuleTemp(pObj);       //온도
        }
    }
    catch(Exception &e)
    {
    }
}
//---------------------------------------------------------------------------

void __fastcall TFrmVmsInfo::Col01CustomDrawCell(TcxCustomGridTableView *Sender, TcxCanvas *ACanvas,
          TcxGridTableDataCellViewInfo *AViewInfo, bool &ADone)
{
    if (AViewInfo->GridRecord->RecordIndex < 0) return;

    Graphics::TBitmap *pBmp = NULL;
    pBmp = ImgState1->Picture->Bitmap;
	if (!VarIsNull(AViewInfo->GridRecord->DisplayTexts[Col00->Index]))
    {
        String sCode = AViewInfo->GridRecord->DisplayTexts[Col00->Index];
        int    nCode = sCode.ToIntDef(2);

        if      (nCode == process_run ) pBmp = ImgState0->Picture->Bitmap;
        else if (nCode == process_stop) pBmp = ImgState1->Picture->Bitmap;
        else                            pBmp = ImgState3->Picture->Bitmap;
    }

    if (!pBmp) return;
    pBmp->Transparent = true;

    int nW, nH;
    nW = nH = 21;
    try
    {
        TColor bBrush = ACanvas->Brush->Color;
        if (AViewInfo->GridRecord->Selected)
        {
            if (AViewInfo->GridRecord->Index % 2 == 0)
            {
                bBrush = Sender->LookAndFeelPainter->DefaultContentEvenColor();
            }
            else
            {
                bBrush = Sender->LookAndFeelPainter->DefaultContentOddColor();
            }
        }
        ACanvas->Brush->Color = bBrush;

        TRect rc;
        TRect rcOrg = AViewInfo->Bounds;
        ACanvas->FillRect(rcOrg);

        nW = rcOrg.Bottom - rcOrg.Top - 4;
        rc.Top    = rcOrg.Top+2;
        rc.Bottom = rcOrg.Bottom - 2;
        rc.Left   = rcOrg.Left + (rcOrg.Width() - nW) / 2;
        rc.Right  = rc.Left + nW;

        ACanvas->Canvas->StretchDraw(rc, pBmp);
        //ACanvas->Draw(AViewInfo->ContentBounds.Left, AViewInfo->ContentBounds.Top, pBmp);
        ADone = true;
    }
    catch(...) {}
}
//---------------------------------------------------------------------------

void __fastcall TFrmVmsInfo::TvListCellDblClick(TcxCustomGridTableView *Sender, TcxGridTableDataCellViewInfo *ACellViewInfo,
          TMouseButton AButton, TShiftState AShift,
          bool &AHandled)
{
    if (!ACellViewInfo) return;
    try {
        TcxDataController *pGDC = TvList->DataController;
        int nRow = pGDC->FocusedRecordIndex;
        if (nRow < 0) return;

        int nMemPtr = pGDC->Values[nRow][Col99->Index];
        if (!nMemPtr) return;

        if (!FrmVmsLog->Showing)
        {
            FrmVmsLog->Top = FrmMain->Top;
            //FrmVmsLog->Left= FrmMain->Left+FrmMain->Width;
            FrmVmsLog->Show();
        }
        FrmVmsLog->DisplayVmsLog(nMemPtr);
    } catch(...) {}
}
//---------------------------------------------------------------------------

void __fastcall TFrmVmsInfo::TvListCellClick(TcxCustomGridTableView *Sender, TcxGridTableDataCellViewInfo *ACellViewInfo,
          TMouseButton AButton, TShiftState AShift,
          bool &AHandled)
{
	if (AButton != mbRight) return;
    if (!ACellViewInfo) return;

    try {
        TcxDataController *pGDC = TvList->DataController;
        int nRow = pGDC->FocusedRecordIndex;
        if (nRow < 0) return;

        FSelVmsNo = VarToStr(pGDC->Values[nRow][Col02->Index]);
        FSelVmsNm = VarToStr(pGDC->Values[nRow][Col04->Index]);

        POINT p;
        GetCursorPos(&p);

        pmuVms->Popup(p.x, p.y);
    } catch(...) {}
}
//---------------------------------------------------------------------------

void __fastcall TFrmVmsInfo::pmuVmsPopup(TObject *Sender)
{
    MnuVmsId->Caption = FSelVmsNm;
}
//---------------------------------------------------------------------------

void __fastcall TFrmVmsInfo::mnuVmsPowerOnClick(TObject *Sender)
{
    TMenuItem *pMnu = (TMenuItem*)Sender;

    TVmsCtlr *pObj = VmsManager->FLists.Find(FSelVmsNo);
    if (!pObj) return;

    if (pObj->Server.Status != process_run) return;

    if (!pObj->pPackQueue) return;

    String sVmsNmbr = FSelVmsNo;

    int nCmdIdx;
    if (pMnu->Tag == 0)
        nCmdIdx = vms_board_power_on;
    else
    if (pMnu->Tag == 1)
        nCmdIdx = vms_board_power_off;
    else
    if (pMnu->Tag == 2)
    {
        nCmdIdx = 2;
    }
    else
        return;

    String sCmdUser = "server";
    String sCmdTime = Now().FormatString("yyyymmddhhnnss");
    BYTE   OpCode;

    if (nCmdIdx == vms_board_power_on || nCmdIdx == vms_board_power_off)
    {
        OpCode = INT_OP_VMS_POWER_CTL;

        // 전광판 On(=0)/Off(=1)
        INT_VMS_POWER_CTL_REQ VmsPowerCtl;
        BYTE                  MsgSeq;

        memset(&VmsPowerCtl, 0x00, sizeof(VmsPowerCtl));

        MsgSeq = (BYTE)0x10;                                                            // 제어명령 일련번호-결과값을 받아서 처리할때 필요함

        memcpy(VmsPowerCtl.CmdTime, AnsiString(sCmdTime).c_str(), INT_VMS_MAX_DATETIME); /* 명령수행시각 */
        memcpy(VmsPowerCtl.VmsId,   AnsiString(sVmsNmbr).c_str(), INT_VMS_MAX_ID);       /* VMS 제어기 번호 */
        memcpy(VmsPowerCtl.OperId,  AnsiString(sCmdUser).c_str(), INT_VMS_MAX_OPER_ID);  /* 운영자 ID */
        VmsPowerCtl.Command = (BYTE)nCmdIdx;                                            /* 제어 구분, 0:켜짐 1:꺼짐 */

        IPCUDPPACKET *pPI = new IPCUDPPACKET;
        if (pPI == NULL) return;

        pPI->Sender.IP   = 0;
        pPI->Sender.Port = 0;
        pPI->RecvId      = 0;
        pPI->OPCode      = OpCode;
        pPI->Size        = (int)sizeof(VmsPowerCtl);
        if (pPI->Size > 0)
        {
            pPI->Data = new char[pPI->Size];
            if (!pPI->Data)
            {
                delete pPI;
                return ;
            }
            CopyMemory(pPI->Data, (char*)&VmsPowerCtl, pPI->Size);
        }
        pObj->pPackQueue->Add((void*)pPI);
    }
    else
    if (nCmdIdx == 2)
    {
        OpCode = INT_OP_VMS_RESET;

        // 제어기 리셋
        INT_VMS_RESET_REQ VmsReset;
        BYTE              MsgSeq;

        memset(&VmsReset, 0x00, sizeof(VmsReset));

        MsgSeq = (BYTE)0x20;
        memcpy(VmsReset.CmdTime, AnsiString(sCmdTime).c_str(), INT_VMS_MAX_DATETIME); /* 명령수행시각 */
        memcpy(VmsReset.VmsId,   AnsiString(sVmsNmbr).c_str(), INT_VMS_MAX_ID);       /* VMS 제어기 번호 */
        memcpy(VmsReset.OperId,  AnsiString(sCmdUser).c_str(), INT_VMS_MAX_OPER_ID);  /* 운영자 ID */

        IPCUDPPACKET *pPI = new IPCUDPPACKET;
        if (pPI == NULL) return;

        pPI->Sender.IP   = 0;
        pPI->Sender.Port = 0;
        pPI->RecvId      = 0;
        pPI->OPCode      = OpCode;
        pPI->Size        = (int)sizeof(VmsReset);
        if (pPI->Size > 0)
        {
            pPI->Data = new char[pPI->Size];
            if (!pPI->Data)
            {
                delete pPI;
                return ;
            }
            CopyMemory(pPI->Data, (char*)&VmsReset, pPI->Size);
        }
        pObj->pPackQueue->Add((void*)pPI);
    }
}
//---------------------------------------------------------------------------

void __fastcall TFrmVmsInfo::mnuVmsStatusReqClick(TObject *Sender)
{
    TVmsCtlr *pObj = VmsManager->FLists.Find(FSelVmsNo);
    if (!pObj) return;

    if ((pObj->Client.pThread         != NULL) &&
        (pObj->Client.ActiveIndicator == true))
    {
        try
        {
            TVMSCThread *pVMSCThread = (TVMSCThread *)pObj->Client.pThread;
            pVMSCThread->ReqStatus();
        }
        catch(Exception &e)
        {
        }
    }
}
//---------------------------------------------------------------------------

void __fastcall TFrmVmsInfo::mnuVmsFormDnClick(TObject *Sender)
{
    TVmsCtlr *pObj = VmsManager->FLists.Find(FSelVmsNo);
    if (!pObj) return;

    if ((pObj->Client.pThread         != NULL) &&
        (pObj->Client.ActiveIndicator == true))
    {
        TVmsFormManager *m_pVmsFormList = pObj->pForms;

		m_pVmsFormList->Lock();
		try
		{
            int nFormCnt = m_pVmsFormList->Count();
            for (int ii = 0; ii < nFormCnt; ii++)
            {
                TVmsForm *pVmsForm = m_pVmsFormList->GetItem(ii);
                if (pVmsForm)
                {
                    pVmsForm->SvcRes = false;
                }
            }
		}
		__finally
		{
            pObj->CTLMODE->Enable = object_enable;
			m_pVmsFormList->UnLock();
		}
    }
}
//---------------------------------------------------------------------------

void __fastcall TFrmVmsInfo::Disconnect1Click(TObject *Sender)
{
    TVmsCtlr *pObj = VmsManager->FLists.Find(FSelVmsNo);
    if (!pObj) return;

    if ((pObj->Client.pThread         != NULL) &&
        (pObj->Client.ActiveIndicator == true))
    {
        try
        {
            TVMSCThread *pVMSCThread = (TVMSCThread *)pObj->Client.pThread;
            pVMSCThread->FUserTerm = true;
        }
        catch(Exception &e)
        {
        }
    }
}
//---------------------------------------------------------------------------