dOPC Client Toolkit
Close
Example
ua.client.TdOPCUAClient.ReadServerStatus
Copy Code
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
.
Kassl GmbH Copyright © 2024. All rights reserved.