dOPC Client Toolkit
Close
Example
ua.client.TdOPCUAClient.GetNamespaceArray
Copy Code
procedure
TTestForm.bTestClick(Sender: TObject);
var
UAClient :
TdOPCUAClient
; NameSpaceArray: uaStringArray; i : integer;
begin
Memo1.Clear; UAClient := TdOPCUAClient.Create(
nil
); UAClient.Url := 'opc.tcp://opcua.demo-this.com:51210/UA/SampleServer'; UAClient.Active := true; NameSpaceArray := UAClient.GetNameSpaceArray;
for
i := 0
to
Length(NameSpaceArray)-1
do
Memo1.Lines.Add(format('[%d] %s',[i,NameSpaceArray[i]])); UAClient.Free; Memo1.Lines.Add('ready :-)');
end
;
Copy Code
Returns e.g. [0] http:
//opcfoundation.org/UA/
[1] urn:DEMO-5:UA Sample Server [2] http:
//test.org/UA/Data/
[3] http:
//test.org/UA/Data//Instance
[4] http:
//opcfoundation.org/UA/Boiler/
[5] http:
//opcfoundation.org/UA/Boiler//Instance
[6] http:
//opcfoundation.org/UA/Diagnostics
[7] http:
//samples.org/UA/memorybuffer
[8] http:
//samples.org/UA/memorybuffer/Instance
Kassl GmbH Copyright © 2024. All rights reserved.