Professional OPC
Development Tools

logos

lupa

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.

  1. Forum
  3. Discussions
  5. QuickOPC-Classic in COM
  7. VB6 app in W7 is not releasing client connection to Kepware

VB6 app in W7 is not releasing client connection to Kepware

More
13 Jul 2017 09:48 #5349 by support
Replied by support on topic VB6 app in W7 is not releasing client connection to Kepware
What leads you to believe that the client connection is not terminated?

Have you tried the same with recent Kepware server version?

Regards

Please Log in or Create an account to join the conversation.

  • William Doherty
  • Topic Author
  • Visitor
  • Visitor
11 Jul 2017 15:12 - 13 Jul 2017 09:47 #5343 by William Doherty
VB6 app in W7 is not releasing client connection to Kepware was created by William Doherty
Hi

I have a small VB6 app using a public function to read (see below) and write values to PLC via kepware.

Problem is when I exit the app, it will not terminate any client connection that it has created.

On subsequent restarts the client connection keeps getting bigger.

How do I kill all client connections when exiting the app.

Regards

Bill
Public Function ReadValue(TextString As String) As Variant
    On Error GoTo ErrorRoutine
     ' Create EasyOPC-DA component
    Dim Client As New EasyDAClient
 
    ' Read item value and display it
    ReadValue = Client.ReadItemValue("", "KEPWare.KEPServerEx.V4", TextString)
    'Set Client = Nothing
 
    '
Exit Function
ErrorRoutine:
    'Call LogError("ReadValue", Err.Description)
    'Set Client = Nothing
End Function
Last edit: 13 Jul 2017 09:47 by support.

Please Log in or Create an account to join the conversation.

Moderators: support
  1. Forum
  3. Discussions
  5. QuickOPC-Classic in COM
  7. VB6 app in W7 is not releasing client connection to Kepware
Time to create page: 0.043 seconds