Online Forums
Technical support is provided through Support Forums below. Anybody can view them; you need to Register/Login to our site (see links in upper right corner) in order to Post questions. You do not have to be a licensed user of our product.
Please read Rules for forum posts before reporting your issue or asking a question. OPC Labs team is actively monitoring the forums, and replies as soon as possible. Various technical information can also be found in our Knowledge Base. For your convenience, we have also assembled a Frequently Asked Questions page.
Do not use the Contact page for technical issues.
BrowseDataNode doesn't works anymore on 2019.2
05 Nov 2020 11:04 #9073
by alr1976
BrowseDataNode doesn't works anymore on 2019.2 was created by alr1976
Hi!
I have used 2018.2 for long time.(Delphi) Now i have changed in 2019.2 (I need support for Windows 7 again).
i have function to read root in my opc ua server but in 2019.2 doesn't works anymore.... Give me certificate Problem.
My function:
var
BrowseParameters: _UABrowseParameters;
BrowsePathParser: _UABrowsePathParser;
Client: TEasyUAClient;
Count: Cardinal;
Element: OleVariant;
EndpointDescriptor: _UAEndpointDescriptor;
NodeDescriptor: _UANodeDescriptor;
NodeElement: _UANodeElement;
NodeElementEnumerator: IEnumVariant;
NodeElements: _UANodeElementCollection;
ReferencesNodeId: _UANodeId;
begin
Client:= TEasyUAClient.create(self);
ReferencesNodeId := CoUANodeId.Create;
ReferencesNodeId.StandardName := 'References';
EndpointDescriptor := CoUAEndpointDescriptor.Create;
EndpointDescriptor.UrlString := 'opc.tcp://127.0.0.1:49320/';
NodeDescriptor := CoUANodeDescriptor.Create;
NodeDescriptor.NodeId.StandardName := 'Objects';
BrowseParameters := CoUABrowseParameters.Create;
BrowseParameters.NodeClasses := UANodeClass_Object;
BrowseParameters.ReferenceTypeIds.Add(NodeDescriptor.NodeId);
BrowseParameters.ReferenceTypeIds.Add(ReferencesNodeId);
NodeElements := Client.BrowseDataNodes(
EndpointDescriptor.UrlString,
NodeDescriptor.NodeId.expandedText);
NodeElementEnumerator := NodeElements.GetEnumerator;
while (NodeElementEnumerator.Next(1, Element, Count) = S_OK) do
begin
NodeElement := IUnknown(Element) as _UANodeElement;
if Assigned(NodeElement) then
Showmessage(NodeElement.BrowseName.ToString);
end;
I have certificate problem (Check screenshot).
so i have add:
client.IsolatedParameters.SessionParameters.EndpointSelectionPolicy.
AllowedMessageSecurityModes := UAMessageSecurityModes_SecurityNone;
client.IsolatedParameters.SessionParameters.EndpointSelectionPolicy.AllowZeroSecurityLevel :=TRUE;
Clientconfiguration := TEasyUAClientConfiguration.Create(self);
ClientConfiguration.SharedParameters.EngineParameters.CertificateAcceptancePolicy.AcceptAnyCertificate := true;
ClientConfiguration.SharedParameters.EngineParameters.CertificateAcceptancePolicy.AllowUserAcceptCertificate := true;
// ClientConfiguration.SharedParameters.EngineParameters.CertificateAcceptancePolicy.TrustedEndpointUrlStrings := (ANode.NODE.DataObject as TInfo).EndPoint);
Clientconfiguration.Connect;
But i have same problem
I have used 2018.2 for long time.(Delphi) Now i have changed in 2019.2 (I need support for Windows 7 again).
i have function to read root in my opc ua server but in 2019.2 doesn't works anymore.... Give me certificate Problem.
My function:
var
BrowseParameters: _UABrowseParameters;
BrowsePathParser: _UABrowsePathParser;
Client: TEasyUAClient;
Count: Cardinal;
Element: OleVariant;
EndpointDescriptor: _UAEndpointDescriptor;
NodeDescriptor: _UANodeDescriptor;
NodeElement: _UANodeElement;
NodeElementEnumerator: IEnumVariant;
NodeElements: _UANodeElementCollection;
ReferencesNodeId: _UANodeId;
begin
Client:= TEasyUAClient.create(self);
ReferencesNodeId := CoUANodeId.Create;
ReferencesNodeId.StandardName := 'References';
EndpointDescriptor := CoUAEndpointDescriptor.Create;
EndpointDescriptor.UrlString := 'opc.tcp://127.0.0.1:49320/';
NodeDescriptor := CoUANodeDescriptor.Create;
NodeDescriptor.NodeId.StandardName := 'Objects';
BrowseParameters := CoUABrowseParameters.Create;
BrowseParameters.NodeClasses := UANodeClass_Object;
BrowseParameters.ReferenceTypeIds.Add(NodeDescriptor.NodeId);
BrowseParameters.ReferenceTypeIds.Add(ReferencesNodeId);
NodeElements := Client.BrowseDataNodes(
EndpointDescriptor.UrlString,
NodeDescriptor.NodeId.expandedText);
NodeElementEnumerator := NodeElements.GetEnumerator;
while (NodeElementEnumerator.Next(1, Element, Count) = S_OK) do
begin
NodeElement := IUnknown(Element) as _UANodeElement;
if Assigned(NodeElement) then
Showmessage(NodeElement.BrowseName.ToString);
end;
I have certificate problem (Check screenshot).
so i have add:
client.IsolatedParameters.SessionParameters.EndpointSelectionPolicy.
AllowedMessageSecurityModes := UAMessageSecurityModes_SecurityNone;
client.IsolatedParameters.SessionParameters.EndpointSelectionPolicy.AllowZeroSecurityLevel :=TRUE;
Clientconfiguration := TEasyUAClientConfiguration.Create(self);
ClientConfiguration.SharedParameters.EngineParameters.CertificateAcceptancePolicy.AcceptAnyCertificate := true;
ClientConfiguration.SharedParameters.EngineParameters.CertificateAcceptancePolicy.AllowUserAcceptCertificate := true;
// ClientConfiguration.SharedParameters.EngineParameters.CertificateAcceptancePolicy.TrustedEndpointUrlStrings := (ANode.NODE.DataObject as TInfo).EndPoint);
Clientconfiguration.Connect;
But i have same problem
Attachments:
Please Log in or Create an account to join the conversation.
Moderators: support
Time to create page: 0.047 seconds