DIALOGUER AVEC UN AUTOMATE SCHNEIDER À PARTIR D'UN SERVER OPC

   Private WithEvents Server As Opc.Da.IServer = Nothing
    Private isSubscribe As Boolean = True
    Private WithEvents mySubscription As Opc.Da.ISubscription
    Private WithEvents ReadAsync As Opc.Da.ISubscription
    Private WithEvents WriteAsync As Opc.Da.ISubscription
    Dim WithEvents ComServer As Opc.Da.Server
    Dim m_handle As Integer

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        'Déclaration
        Dim Status As Opc.Da.ServerStatus
        'Dim ComServer As Opc.Da.Server
        Dim Url As Opc.URL = New Opc.URL("opcda://localhost/Schneider-Aut.OFS/{e7675090-9ff9-11d1-ac46-0060978add48}")

        'Connexion sur le serveur de la liste deroulante DA20

        'Dim Url As Opc.URL = New Opc.URL(cbxOPCSrvDA_20.SelectedItem.ToString)
        ComServer = New Opc.Da.Server(New OpcCom.Factory, Url)
        txtSrvStatus.Text = "essai"

        Try
            ComServer.Connect()
            Server = ComServer
            'Recuperation du Status du serveur
            Status = Server.GetStatus
            txtSrvStatus.Clear()
            txtSrvStatus.Text = ("Info Vendeur :" & Status.VendorInfo & "Version Produit :" & Status.ProductVersion & "Etat du serveur :" & Status.ServerState.ToString & "Info Status :" & Status.StatusInfo & "Heure démarrage : " & "le " & Status.StartTime.ToLongDateString & " à " & Status.StartTime.ToLongTimeString & "Heure courante :" & Status.CurrentTime.ToLongTimeString & vbCrLf & "Dernier envoi :" & Status.LastUpdateTime.ToLongTimeString)

        Catch ex As Exception
            Throw (ex)
        End Try
    End Sub

    Private Sub btnRead_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnRead.Click
        Dim item As Opc.Da.Item() = New Opc.Da.Item(0) {}
        item(0) = New Opc.Da.Item
        item(0).ItemPath = ""
        item(0).ItemName = txtItem.Text

        Dim result As Opc.Da.ItemValueResult()
        Try
            result = Server.Read(item)
            If result Is Nothing Then
                txtValue.Text = "Erreur de Lecture"
                TxtQuality.Text = "Erreur de Lecture"
            Else
                'If result(0).ResultID = Opc.ResultID.S_OK Then
                txtValue.Text = CType(result(0).Value, String)
                ' TxtQuality.Text = result(0).Quality.ToString
                ' Else
                '    txtValue.Text = "Erreur de Lecture"
                '    TxtQuality.Text = "Erreur de Lecture"
                'End If
            End If

        Catch ex As Exception
            MsgBox("" & ex.Message)
        End Try
    End Sub


    Private Sub btnWrite_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnWrite.Click
        'Déclaration des variables
        Dim item As Opc.Da.ItemValue() = New Opc.Da.ItemValue(0) {}
        item(0) = New Opc.Da.ItemValue
        item(0).ItemPath = ""
        item(0).ItemName = txtItem.Text
        item(0).Value = System.Convert.ChangeType(Me.txtValue.Text, GetType(Object))

        Dim result As Opc.IdentifiedResult()
        Try
            result = Server.Write(item)
            'If result Is Nothing Then
            txtValue.Text = "Erreur d'écriture"
            TxtQuality.Text = "Erreur d'écriture"
            'Else
            '    If Not (result(0).ResultID = Opc.ResultID.S_OK) Then
            '        txtValue.Text = "Erreur d'écriture"
            '        TxtQuality.Text = "Erreur d'écriture"
            '    End If
            'End If
        Catch ex As Exception
            MsgBox("" & ex.Message)
        End Try
    End Sub