AppTethering pour exploiter une connexion Internet

L'appariement est le processus par lequel les deux applications vont se reconnaître, pour pouvoir communiquer.

Plusieurs techniques d'appariement sont à disposition :

1. Lappariement automatique, par l'appel de la méthode TTetheringManager.AutoConnect, et l'utilisation d'un TTetheringAppProfile.Group commun aux deux applications voulant s'apparier. C'est cette technique qui sera utilisée dans l'exemple ;

2. L'appariement manuel, par l'appel de la méthode TTetheringManager.DiscoverManagers, qui impliquera un processus de notification /réponses, où interviendront successivement les événements TTetheringManager.OnEndManagersDiscovery et TTetheringManager.OnEndProfilesDiscovery, pour se terminer par un appel à TTetheringAppProfile.Connect.

Cette application disposera de l'interface utilisateur afin de permettre à ce dernier de demander une page Web via son URL.

Pour communiquer cette information à l'application fournisseuse, les deux composants d'AppTethering seront nécessaires.

Seul le TTetheringAppProfile aura un événement à gérer, OnResourceReceived, celui qui surviendra quand l'application WebProvider lui enverra sa réponse.

Mis à part cet événement OnResourceReceived, les autres propriétés ne devront pas être modifiées.

Cette application disposera de l'accès au Web afin de renvoyer au client le flux http relatif à sa requête, comme indiqué dans le paragraphe précédent.

Pour communiquer cette information à l'application client, les deux composants d'AppTethering seront là aussi nécessaires.

Ici aussi, seul le TTetheringAppProfile aura le même unique événement à gérer, OnResourceReceived, qui surviendra quand le client lui enverra sa requête.

Mis à part l'événement OnResourceReceived, les propriétés de ces composants n'ont pas à être modifiées.

Avant d'envoyer la requête, une vérification de connexion devra être faite : le TTetheringManager est-il connecté à son pair, côté WebProvider ?

L'envoi de la requête est réalisé via l'événement choisi (par exemple, TAction.OnExecute, ou TButton.OnClick), avec la méthode SendString :

TTetheringAppProfile.SendString(aProfileInfo: TTetheringProfileInfo, aDescription: string, aString: string)

Les paramètres sont les suivants :

• aProfileInfo est le profil distant (par exemple, TetheringManager1.RemoteProfiles.Items[0]) ;
• aDescription est le nom de la ressource que le profil distant va recevoir ;
• aString est la chaîne « ressource », associée à aDescription, que le profil distant va recevoir.

Ex. : TetheringAppProfile1.SendString(TetheringManager1.RemoteProfiles.Items[0], 'URL', 'www.developpez.com').

Nous nous attendons à ce que cette application reçoive la requête envoyée par le Client.

Si elle arrive, cette requête parviendra par le biais de l'événement du WebProvider, OnResourceReceived, décrit en III.A.3.

Sur cet événement OnResourceReceived, il faudra traiter la requête et envoyer la réponse.

Le code suivant s'en chargera :

procedure TForm2.TetheringAppProfile1ResourceReceived(const Sender: TObject;
  const AResource: TRemoteResource);
var
  lURL: string;
  SS: TStringStream;
begin
  // si la ressource reçue est nommée "URL"
  if AResource.Hint = 'URL' then
  begin
    lURL := AResource.Value.AsString;
    SS := TStringStream.Create;
    try
      { j'envoie le contenu de la ressource reçue (AResource.Value.AsString) comme paramètre au composant TidHHTP afin qu'il me retourne sa réponse (SS) }
      idHTTP1.Get(AResource.Value.AsString, SS);
      SS.Position := 0;
      { quand la réponse (SS) est disponible, je renvoie cette réponse à l'application client et je la nomme "Response" }
      if not TetheringAppProfile1.SendStream(TetheringManager1.RemoteProfiles.Items[0]
                                      , 'Response'
                                      , SS) then
        raise Exception.Create('cannot send');
      lbRequests.Items.Append(lURL);
    finally
      SS.Free;
    end;
  end;
end;

Nous nous attendons à ce que cette application, à son tour, reçoive la réponse, nommée 'Response', renvoyée par le WebProvider.

Si elle arrive, cette réponse parviendra par le biais de l'événement décrit en III.A.1, OnResourceReceived.

Le code suivant qui s'en chargera :

procedure TfrmClient.TetheringAppProfile1ResourceReceived(const Sender: TObject;
  const AResource: TRemoteResource);
var
  SS: TStringStream;
  s: string;
begin
  // si la ressource reçue est nommée "Response"
  if AResource.Hint = 'Response' then
  begin
    SS := TStringStream.Create;
    try
      // je charge le contenu de cette ressource dans SS
      SS.LoadFromStream(AResource.Value.AsStream);
      // j'affiche SS dans un « Viewer » (TMemo ou THtmlViewer)
      Memo1.Lines.LoadFromStream(SS);
    finally
      SS.Free;
    end;
  end;
end;