Událost RequestStart

[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 zahájí požadavek zařazený do fronty.

syntaxe

agenta**_RequestStart** (ByValRequest**)**

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

 

Poznámky

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 začne zpracovávat požadavek (například Get, Přehrátnebo Přečíst metoda) a synchronizovat ji s dalšími akcemi vygenerovanými vaší aplikací. Událost se odešle pouze klientovi, který vytvořil odkaz na objekt Request a pouze v případě, že 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 = 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

Stav vrátí hodnotu 4 (probíhá požadavek) pro vrácený objektpožadavku.

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_RequestStart (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álostiRequestComplete