Freigeben über

Verwenden einer persistenten Verbindung

  • Artikel

Im folgenden Thema wird beschrieben, wie Sie eine dauerhafte Verbindung mit Windows-Initiated Processing (WIP) verwenden.

So verwenden Sie eine dauerhafte Verbindung mit WIP

  1. Legen Sie COMTIContext Schlüsselwort (keyword) CONNTYPE auf OPEN fest.

    Wenn ein Aufruf mit CONNTYPE, der auf OPEN festgelegt ist, erfolgreich abgeschlossen wird, weist das zurückgegebene COMTIContext-Array CONNTYPE Schlüsselwort (keyword) den Wert USE auf.

    Nachdem Sie COMTIContext Schlüsselwort (keyword) CONNTYPE auf OPEN festgelegt haben, können Sie CONNTYPE auf USE festlegen. Diese Aktion ist jedoch nicht obligatorisch, da sie standardmäßig auf USE festgelegt ist.

  2. Nachdem Sie die Verbindung hergestellt haben, können Sie das COMTIContext-Objekt verwenden, um auf den Mainframe zuzugreifen.

  3. Wenn der Methodenaufruf fehlschlägt, verwenden Sie UpdateContextInfo und GetConnectionInfo für COMTIContextLib.ContextObject, um aktualisierte status der Verbindung abzurufen.

  4. Um einen Aufruf zu tätigen und die persistente Verbindung zu beenden, legen Sie CONNTYPE Schlüsselwort (keyword) auf CLOSE fest.

    Wenn der Aufruf erfolgreich abgeschlossen wurde, weist das zurückgegebene COMTIContext-Array CONNTYPE Schlüsselwort (keyword) den Wert NON-PERSISTENT auf.

    Optional können Sie ClosePersistentConnection jederzeit aufrufen, um eine dauerhafte Verbindung zu schließen. Die Verbindung wird beendet, und es gibt keine Interaktion mit einem Serverprogramm.

Beispiel

Im folgenden Visual Basic 6.0-Codebeispiel wird gezeigt, wie die OPEN- und CLOSE-Methodenaufrufe verwendet werden, die möglicherweise einen Fehler zurückgeben. Das Beispiel zeigt auch, wie sie ermitteln, ob eine Verbindung weiterhin verwendet werden kann.

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

Weitere Informationen

Persistente Verbindungen
COMTIContext-Schnittstelle
COMTIContext-Schlüsselwörter