VmsCommServer/SRC/FRM/FrmSysF.cpp

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

#include <vcl.h>
#pragma hdrstop

#include "FrmSysF.h"
#include "AppGlobalF.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TFrmSys *FrmSys = NULL;
//---------------------------------------------------------------------------
__fastcall TFrmSys::TFrmSys(TComponent* Owner)
    : TForm(Owner)
{
    reMsg->Lines->Clear();
}
//---------------------------------------------------------------------------

void __fastcall TFrmSys::UpdateSystemInfo()
{
#if 0
    try
    {
        AnsiString sDomainName    = DMComm->TcpServer->LocalDomainName();
        AnsiString sHostName      = DMComm->TcpServer->LocalHostName();
        AnsiString sHostAddr      = DMComm->TcpServer->LookupHostAddr(sHostName);
        AnsiString sLocalHostAddr = DMComm->TcpServer->LocalHostAddr();

        plIpAddress->Caption  = sLocalHostAddr;
        plProcessId->Caption  = g_AppCfg.sProcessId;
        plVmsPort->Caption    = String(g_AppCfg.comm.nBindPort);
        plCenterPort->Caption = String(CenterGetUdpPort());
    }
    catch(Exception &e) { }

	plVmsTotal->Caption  = String(VmsManager->Count);
	plVmsNormal->Caption = "0";
	plVmsError->Caption  = String(VmsManager->Count);
#endif
}
//---------------------------------------------------------------------------

void __fastcall TFrmSys::btnClearClick(TObject *Sender)
{
    reMsg->Lines->Clear();
    Application->ProcessMessages();
}
//---------------------------------------------------------------------------

void __fastcall TFrmSys::btnCopyClick(TObject *Sender)
{
    try
    {
        reMsg->SelectAll();
        reMsg->CopyToClipboard();
    }
    catch(Exception &e)
    {
    }
}
//---------------------------------------------------------------------------

void __fastcall TFrmSys::OnWMLogDisplayMessage(TMessage &Msg)
{
#if 0
    IPC_LOG_MESSAGE *pLog = (IPC_LOG_MESSAGE *)Msg.WParam;

    if (pLog)
    {
        IPC_LOG_MESSAGE Log;
        Log.Kind = pLog->Kind;
        Log.Flag = pLog->Flag;
        Log.Len  = pLog->Len;
        Log.Tm   = pLog->Tm;
        memcpy(Log.Msg, pLog->Msg, sizeof(Log.Msg));

        delete pLog; pLog = NULL;

        ReplyMessage(0);

        if (chkLogPause->Checked) return;

        try
        {
            reMsg->Lines->BeginUpdate();

            while (reMsg->Lines->Count >= g_AppCfg.nMaxLogLines)
                reMsg->Lines->Delete(0);

            reMsg->Lines->Add(Log.Tm.FormatString("hh:nn:ss") + String(Log.Msg));
            PostMessage(reMsg->Handle, WM_VSCROLL, SB_BOTTOM, 0);
        }
        __finally
        {
            reMsg->Lines->EndUpdate();
            Application->ProcessMessages();
        }
    }
#endif
}
//---------------------------------------------------------------------------