program ReadStatus; {$APPTYPE CONSOLE} {$R *.res} uses sysutils, ua.client, ua.datatypes, ua.buildintypes; var OPCClient: TdOPCUaClient; ServerStatus: uaServerStatusDataType; begin OPCClient := TdOPCUaClient.Create(nil); ServerStatus := uaServerStatusDataType.Create; OPCClient.Url := 'opc.tcp://islgmbh3.intern.isl.org:53530/OPCUA/SimulationServer'; try OPCClient.Active := true; OPCClient.ReadServerStatus(ServerStatus); Writeln(ServerStatus.ToString); OPCClient.Active := false; except on E: Exception do Writeln(E.ClassName, ': ', E.Message); end; ServerStatus.Free; OPCClient.Free; readln; end.