Ecriture asynchrone sur serveur OCP

Private Shared WithEvents groupWrite As Opc.Da.ISubscription ... création des items non détaillés ici... Public Shared Sub Write_Direct_OPC_Item(ByVal index_a_ecrire As Integer, ByVal valeur_a_ecrire_item As Integer) Dim item As Opc.Da.ItemValue() = New Opc.Da.ItemValue(0) {} 'créé un tableau d item contenant une seule valeur item(0) = New Opc.Da.ItemValue ' créé l item à écrire item(0).ServerHandle = index_a_ecrire item(0).Value = valeur_a_ecrire_item groupWrite.Write(item) 'on écrit et on récupere le resultat si on le veux ==> SYNCRHONE End Sub

Bonjour,

J'ai trouvé la solution.

il suffit de remplacer la commande

Code:

groupWrite.Write(item)

par la même mais avec des paramétres supplémentaires :

Code:

1
2
3
4
5
6
7
8
9
 If _TransactionID < 32767 Then ' chaque transaction aura un id différent
                _TransactionID += 1
            Else
                _TransactionID = 0
            End If

            Dim _request As Opc.IRequest = Nothing ' pour gérer la réponse du serveur

            groupWrite.Write(item, _TransactionID, New Opc.Da.WriteCompleteEventHandler(AddressOf WriteCompleteCallback), _request) 'on écrit en mode asynchrone

Pensez à rajouter le handler pour gérer le retour du serveur OPC

Code:

1
2
3
4
5
    Private Shared Sub WriteCompleteCallback(clientHandle As Object, results As Opc.IdentifiedResult())
           For Each writeResult As Opc.IdentifiedResult In results
                msgbox(writeResult.ItemName.ToString & " value " & writeResult.ResultID.ToString)
            Next
        End Sub

PS : mettre tout ça dans un thread pour ne pas monopoliser l'interface