Partager via

Utilisation d’une connexion persistante

Cette rubrique détaille l'utilisation d'une connexion persistante avec Windows-Initiated Processing (WIP).

Pour utiliser une connexion persistante avec WIP

  1. Définissez le mot clé COMTIContext CONNTYPE sur OPEN.

    Si un appel avec CONNTYPE défini sur OPEN s’exécute correctement, le mot clé CONNTYPE du tableau COMTIContext retourné aura la valeur USE.

    Après avoir défini le mot clé COMTIContext CONNTYPE sur OPEN, vous pouvez choisir de définir CONNTYPE sur USE. Toutefois, cette action n’est pas obligatoire, car elle est définie sur USE par défaut.

  2. Une fois que vous avez établi la connexion, vous pouvez utiliser l’objet COMTIContext pour accéder au mainframe.

  3. Si l’appel de méthode échoue, utilisez UpdateContextInfo et GetConnectionInfo sur COMTIContextLib.ContextObject pour obtenir l’état mis à jour de la connexion.

  4. Pour effectuer un appel et terminer la connexion persistante, définissez le mot clé CONNTYPE sur CLOSE.

    Si l’appel se termine correctement, le mot clé CONNTYPE du tableau COMTIContext retourné a la valeur NON-PERSISTENT.

    Si vous le souhaitez, vous pouvez appeler ClosePersistentConnection à tout moment pour fermer une connexion persistante. La connexion est terminée et aucune interaction avec un programme serveur n’est établie.

Exemple :

L’exemple de code Visual Basic 6.0 suivant montre comment utiliser les appels de méthode OPEN et CLOSE susceptibles de renvoyer une erreur. L’exemple montre également comment déterminer si une connexion peut toujours être utilisée.

Public CtxCount As Long  
Public COMTIContext() As Variant  
Public ContextObj As COMTIContextLib.ContextObject  
  
Dim fConIsPersistent as Boolean  
Dim fConnIsViable as Boolean  
Dim varConnType as Variant  
  
Private Sub cmdBalance_Click()  
  On Error GoTo ErrorHandler  
  
OpenCall:  
  varConnType = "OPEN"  
  ContextObj.WriteContext "CONNTYPE", varConnType, COMTIContext  
  lngReturn = objBank.cedrbank(txtName.Text, txtAccount.Text, curRetBalance, COMTIContext)  
  
UseCall:  
  lngReturn = objBank.cedrbank(txtName.Text, txtAccount.Text, curRetBalance, COMTIContext)  
  
CloseCall:  
  If (fCloseWithMethod) Then  
      varConnType = "CLOSE"  
      ContextObj.WriteContext "CONNTYPE", varConnType, COMTIContext  
      lngReturn = objBank.cedrbank(txtName.Text, txtAccount.Text, curRetBalance, COMTIContext)  
  Else  
      COMTIContext = objBank.ClosePersistentConnection  
  End-if  
  
  Exit Sub  
  
ErrorHandler:  
    COMTIContext  = objBank.UpdateContextInfo   Optional for COM required for .NET  
    ContextObj.GetConnectionInfo (COMTIContext, fConnIsPersistent, fConnIsViable)  
    If (fConnIsPersistent = True And fConnIsViable = True) Then  
        Continue with the next Use or Close method call is OK  
    Else  
        Connection is either Non-persistent or no longer viable  
        So a Use or Close call is not valid  
    End-if  
    Exit Sub  
  
End Sub

Voir aussi

Connexions persistantes
COMTIContext Interface
Mots clés COMTIContext

  • Last updated on