dOPC Client Toolkit Help file
Example
procedure TForm1.Button1Click(Sender: TObject);
var
  Name,
  ControlName,
  Propname,
  OPCGroup,
  ItemName: string;
  GUIItem : TdGUIItem;
  OPCItem : TdOPCItem;
begin
  GUIItem := dOPCGUI.Find(Edit1,ControlName,Propname,OPCGroup,ItemName);
  if GUIItem <> nil then
  begin
    ShowMessage(ControlName+#10#13+Propname+#10#13+OPCGroup+#10#13+ItemName);
    OPCItem := FinddOPCItem(OPCServer,OPCGroup,ItemName);
    if OPCItem <> nil then
      OPCItem.WriteSync('Hello');
  end
  else
    showMessage('not found');
end;
Copyright © 2001-2014 Kassl GmbH (http://www.kassl.de). All rights reserved.