unit1.~cpp

OPCserver OPCserver.rar

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

#include <vcl.h>
#pragma hdrstop

#include "Unit1.h"
#include "frmabout.h"
#include "opcdefine.h"
#include "opcmodul.h"  
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"


TfrmMain *frmMain;
//---------------------------------------------------------------------------
__fastcall TfrmMain::TfrmMain(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TfrmMain::register1Click(TObject *Sender)
{
// on regiester
  BOOL result;
  result = OnRegister();
  if (result ) {
     MessageDlg("注册成功" ,
               mtInformation,  TMsgDlgButtons() << mbOK,0);
    }
    else {
      MessageDlg("注册失败" ,
               mtInformation,  TMsgDlgButtons() << mbOK,0);
    }


}
//---------------------------------------------------------------------------
void __fastcall TfrmMain::UnRegister1Click(TObject *Sender)
{
  BOOL result;
  result =   OnUnRegister();
  if (result ) {
     MessageDlg("反注册成功" ,
               mtInformation,  TMsgDlgButtons() << mbOK,0);
    }
    else {
      MessageDlg("反注册失败" ,
               mtInformation,  TMsgDlgButtons() << mbOK,0);
    }

}
//---------------------------------------------------------------------------
void __fastcall TfrmMain::ServerStatus1Click(TObject *Sender)
{
// server status

  TL_SetVendorInfo("TLOPCRDK CB Demo");
}
//---------------------------------------------------------------------------
void __fastcall TfrmMain::AddItem1Click(TObject *Sender)
{
// on Add Item
   OnAddItems();
}
//---------------------------------------------------------------------------
void __fastcall TfrmMain::DelItem1Click(TObject *Sender)
{
// On Delete Item
   OnDelItems();
}
//---------------------------------------------------------------------------
void __fastcall TfrmMain::Exit1Click(TObject *Sender)
{
// Onexit
int result;
result =MessageDlg("是否退出程序" ,
               mtInformation, mbYesNoCancel,0);
if  ( result == 6){
               	Application->Terminate();
                }
}
//---------------------------------------------------------------------------
void __fastcall TfrmMain::start1Click(TObject *Sender)
{
//On Start data time
   Timer->Enabled =true;
}
//---------------------------------------------------------------------------
void __fastcall TfrmMain::stop1Click(TObject *Sender)
{
//On Stop Data Time
   Timer->Enabled =false;
}
//---------------------------------------------------------------------------
void __fastcall TfrmMain::about1Click(TObject *Sender)
{
    AboutBox = new TAboutBox(this);
    AboutBox->ShowModal();
    delete AboutBox;

}
//---------------------------------------------------------------------------

void __fastcall TfrmMain::FormClose(TObject *Sender, TCloseAction &Action)
{
  Timer->Enabled =false;
  OnDelItems();//删除点
  OnUnInitOpcServer();
}
//---------------------------------------------------------------------------

void __fastcall TfrmMain::FormCreate(TObject *Sender)
{
  OnInitOpcServer();

 }
//---------------------------------------------------------------------------

void __fastcall TfrmMain::TimerTimer(TObject *Sender)
{
 //时钟
    OnUpdateData();
    OnRandomData();

 }
//---------------------------------------------------------------------------