unit Main;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, AxCtrls, ExtCtrls, Mask;

type
  TOPCForm = class(TForm)
    laDateTime: TLabel;
    paServer: TGroupBox;
    buShutDown: TButton;
    paClients: TPanel;
    laClients: TLabel;
    laClientCount: TLabel;
    laGroupCount: TLabel;
    laGroup: TLabel;
    buClose: TButton;
    Timer: TTimer;
    paPath: TPanel;
    paIncrement: TPanel;
    cbAuto: TCheckBox;
    buIncrement: TButton;
    edIncrement: TEdit;
    buReset: TButton;
    laValue: TLabel;
    IncTimer: TTimer;
    procedure buCloseClick(Sender: TObject);
    procedure buShutDownClick(Sender: TObject);
    procedure TimerTimer(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormCreate(Sender: TObject);
    procedure buIncrementClick(Sender: TObject);
    procedure buResetClick(Sender: TObject);
    procedure IncTimerTimer(Sender: TObject);
  end;

var
  OPCForm: TOPCForm;

implementation

{$R *.DFM}

uses
  uOPC, uOPCDemo;

procedure TOPCForm.buCloseClick(Sender: TObject);
begin
  Close;
end;

procedure TOPCForm.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  OPC.ShutDown;
end;

procedure TOPCForm.buShutDownClick(Sender: TObject);
begin
  OPC.ShutDown;
end;

procedure TOPCForm.TimerTimer(Sender: TObject);
begin
  laDateTime.Caption := DateTimeToStr(Now);
  laClientCount.Caption := IntToStr(OPC.GetServerCount);
  laGroupCount.Caption := IntToStr(OPC.GetGroupCount);
  edIncrement.Text := IntToStr(uOPCDemo.Values[102]);
end;

procedure TOPCForm.FormCreate(Sender: TObject);
begin
  paPath.Caption := GetCurrentDir;
end;

procedure TOPCForm.buIncrementClick(Sender: TObject);
var
  i: integer;
begin
  for i := Low(Values) to High(Values) do inc(Values[i]);
end;

procedure TOPCForm.buResetClick(Sender: TObject);
begin
  ResetValues;
end;

procedure TOPCForm.IncTimerTimer(Sender: TObject);
begin
  if cbAuto.Checked then IncrementValues;
end;

end.