dOPC Client Toolkit Help file
Example
procedure TForm1.WriteValues;
var
  ItemList: TdOPCItemList;
begin
  ItemList := TdOPCItemList.Create(OPCServer.OPCGroups[i]); //we want to write new values to all Items of the first Group
  for i := 0 to ItemList.Count-1 do
    ItemList[i].WantValue := random(100);
  OPCServer.OPCGroups[i].AsyncWrite(ItemList); //write values to OPC server
  ItemList.Free;
end;

procedure TForm1.OPCServerWriteError(Sender: TObject;  ItemList: TdOPCItemList);
begin
  ItemList.CheckOPCErrors('Write Items...',false); //show errors
end;
Copyright © 2001-2014 Kassl GmbH (http://www.kassl.de). All rights reserved.