main.pas

VUOPCclient Trial version

unit Main;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms,
  Dialogs, VUOPCclient, ComCtrls, StdCtrls;

type
  TfMain = class(TForm)
    VUOPCclient1: TVUOPCclient;
    ComboBox1: TComboBox;
    Button1: TButton;
    Button2: TButton;
    ListBox1: TListBox;
    CheckBox1: TCheckBox;
    Edit2: TEdit;
    Button4: TButton;
    Button5: TButton;
    Button6: TButton;
    GroupBox1: TGroupBox;
    Button3: TButton;
    Edit1: TEdit;
    Button7: TButton;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    ListBox2: TListBox;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure ListBox1Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure VUOPCclient1Error(Sender: TObject; NError: Integer;
      Message: String);
    procedure Button4Click(Sender: TObject);
    procedure VUOPCclient1DataChange(Sender: TObject; Group: TVUOPCGroup;
      Item: TVUOPCItem);
    procedure Button5Click(Sender: TObject);
    procedure Button6Click(Sender: TObject);
    procedure Button7Click(Sender: TObject);
  private
    { Private declarations }
    Group: TVUOPCGroup;
  public
    { Public declarations }
  end;

var
  fMain: TfMain;

implementation

{$R *.dfm}

procedure TfMain.Button1Click(Sender: TObject);
begin
  ComboBox1.Items.Assign(VUOPCclient1.ServerList);
  ComboBox1.ItemIndex:=0;
end;

procedure TfMain.Button2Click(Sender: TObject);
var
  i:integer;
  Item:TVUOPCItem;
begin
  if Button2.Tag=0 then begin
    VUOPCclient1.RootOmitted:=CheckBox1.Checked;
    VUOPCclient1.OPCName:=ComboBox1.Text;
    VUOPCclient1.Connect:=true;
    if not VUOPCclient1.Connect then begin
      MessageBox(0,'OPC-皴疴屦 礤 磬殇屙.','硒栳赅',MB_OK);
      exit;
    end;
    sleep(500);
    VUOPCclient1.Browse;
    for i:=0 to VUOPCclient1.ItemList.Count-1 do begin
      Item:=VUOPCclient1.ItemList.Item[i];
      ListBox1.Items.AddObject(Item.Name,Item);
    end;
    Button2.Tag:=1;
    Button2.Caption:='悟耦邃桧栩