program UAOnlyWrite; {$APPTYPE CONSOLE} {$R *.res} uses SysUtils, ua.client, ua.buildintypes; var OPCClient: TdOPCUAClient; Nodes: TArray<String>; WriteValues: TArray<uaDatavalue>; Rets: TArray<uaStatuscode>; V: uaDatavalue; i: integer; begin OPCClient := TdOPCUAClient.Create(nil); OPCClient.Url := 'opc.tcp://opcuaserver.com:48010'; Setlength(Nodes, 2); Setlength(WriteValues, 2); Nodes[0] := 'ns=2;s=Demo.Static.Scalar.Int16'; WriteValues[0] := uaDatavalue.Create(uaVariant.Create(uaInt16(16))); Nodes[1] := 'ns=2;s=Demo.Static.Scalar.Int32'; WriteValues[1] := uaDatavalue.Create(uaVariant.Create(uaInt32(32))); OPCClient.Active := true; Rets := OPCClient.WriteNodeAttributes(Nodes,[TuaAttributes.Value], WriteValues); for i := 0 to Length(Rets) - 1 do begin if not Rets[i].IsGood then writeln('Node: ' + Nodes[i] + ': Error write node:', uaStatusCodeToString(Rets[i])) else writeln('Node: ' + Nodes[i] + ': successfully written :-)'); end; for V in WriteValues do V.Free; writeln('Press Enter to exit'); Readln; OPCClient.Free; end.