dOPC Client Toolkit
Close
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;
Kassl GmbH Copyright © 2024. All rights reserved.