RequestStart-Ereignis

[Der Microsoft Agent ist seit Windows 7 veraltet und kann in späteren Versionen von Windows nicht mehr verfügbar sein.]

Beschreibung

Tritt auf, wenn der Server eine in die Warteschlange eingereihte Anforderung startet.

Syntax

Subagent**_RequestStart** (ByValRequest**)**

Teil	Beschreibung
Anforderung	Gibt das Request-Objekt zurück.

 

Hinweise

Das Ereignis gibt ein Request-Objekt zurück. Da Anforderungen asynchron verarbeitet werden, können Sie dieses Ereignis verwenden, um zu bestimmen, wann der Server die Verarbeitung einer Anforderung (z. B. eine Get-, Play- oder Speak-Methode) beginnt, um dieses Ereignis mit anderen Aktionen zu synchronisieren, die von Ihrer Anwendung generiert werden. Das Ereignis wird nur an den Client gesendet, der den Verweis auf das Request-Objekt erstellt hat, und nur, wenn Sie eine globale Variable für den Anforderungsverweis definiert haben:

   Dim MyRequest 
   Dim Genie 

   Sub window_Onload
   
   Agent1.Characters.Load "Genie", _
      "https://agent.microsoft.com/characters/v2/genie/genie.acf"   

   Set Genie = Agent1.Characters("Genie")

   ' This syntax will generate RequestStart and RequestComplete events.
   Set MyRequest = Genie.Get("state", "Showing")

   ' This syntax will not generate RequestStart and RequestComplete events.
   Genie.Get ("state", "Hiding")

   End Sub

   Sub Agent1_RequestStart(ByVal Request)

   If Request = MyRequest Then
      Status = "Loading the Showing animation"

   End Sub

Der Status gibt 4 (Anforderung in Bearbeitung) für das Request-Objekt zurück.

Da die Request-Objekte der Animation erst zugewiesen werden, wenn der Server die Anforderung verarbeitet, stellen Sie sicher, dass das Request-Objekt vorhanden ist, bevor Sie versuchen, es auszuwerten. Wenn Sie beispielsweise in Visual Basic eine Bedingung verwenden, um zu testen, ob eine bestimmte Anforderung abgeschlossen wurde, können Sie das Schlüsselwort Nothing verwenden:

   Sub Agent1_RequestStart (ByVal Request)

   If Not (MyRequest Is Nothing) Then
      If Request = MyRequest Then
      '-- Do whatever
      End If
   End If

   End Sub

Weitere Informationen

RequestComplete-Ereignis