Událost RequestComplete

[Microsoft Agent je zastaralý jako Windows 7 a může být nedostupný v následujících verzích Windows.]

popis

Nastane, když server dokončí požadavek zařazený do fronty.

syntaxe

agenta**_RequestComplete** (ByValRequest**)**

Část	Popis
žádost	Vrátí objekt Request.

 

Poznámky

Tato událost vrátí objekt Request. Vzhledem k tomu, že se požadavky zpracovávají asynchronně, můžete pomocí této události určit, kdy server dokončí zpracování požadavku (například Get, Přehrátnebo Metodu Přečíst) k synchronizaci této události s dalšími akcemi generovanými vaší aplikací. Server odešle událost pouze klientovi, který vytvořil odkaz na objekt Request, a pouze pokud jste definovali globální proměnnou pro odkaz na požadavek:

   Dim MyRequest 
   Dim Genie 

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

   Set Genie = Agent.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_RequestComplete(ByVal Request)

   If Request = MyRequest Then
      Status = "Showing animation is now loaded"

   End Sub

Vzhledem k tomu, že animace Požadavek objekty se nepřiřazují, dokud server nezvlyzuje požadavek, ujistěte se, že objekt Request existuje, než se ho pokusíte vyhodnotit. Pokud například v jazyce Visual Basic použijete podmínku k otestování, jestli byl konkrétní požadavek dokončen, můžete použít klíčové slovo Nothing:

   Sub Agent1_RequestComplete (ByVal Request)

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

   End Sub

Poznámka

V jazyce VBScript 1.0 se tato událost aktivuje, i když nedefinujete odkazy na objekt Request. Tento kód je opravený ve VBScriptu 2.0.

 

Viz také

událostiRequestStart