Depuis RADStudio XE6, il existe une bibliothèque de composants permettant aux applications qui les utilisent de communiquer aisément entre elles.

Si le nombre de cas d'utilisation est infini, on pourrait les catégoriser comme suit :

• application satellite : cas d'une application tierce, qui vient au service d'une application principale, et qui ne peut exister indépendamment de l'application principale (ex : lanceur d'application, serveur d'impression) ;
• application complémentaire : cas d'une application tierce qui vient en complément d'une application principale, parce que l'application principale n'implémente pas la fonction (ex : modem, application de prise de photo, application de prise de mesure via des capteurs /détecteurs) ;
• application entre pairs : cas d'une application qui fonctionne avec ses pairs : deux ou plusieurs applications identiques communiquent entre elles (ex : application de messagerie instantanée, compteurs).

L'exemple traité ici sera un cas particulier d'une application de type complémentaire puisqu'il s'agira d'une application de partage de connexion Internet.

II-A. TTetheringManager▲

II-B. TTetheringAppProfile▲

L'objectif du composant TTetheringAppProfile est d'encapsuler les ressources et les actions qui seront partagées au sein d'un même conteneur ayant des règles communes de sécurité et d'accès aux ressources et actions.

Les principales propriétés de ce composant sont :

• Manager : cette propriété pointera sur le composant TTetheringManager décrit précédemment. Ainsi, un TTetheringManager pourra être associé à plusieurs TTetheringAppProfile.
• Actions : il s'agit de la liste d'actions qu'il sera possible d'invoquer depuis l'application distante, ou bien des actions de l'application distante qu'il sera possible d'invoquer.
• Resources : indique la liste des données qu'il sera possible de partager avec l'application distante. Ces données pourront être partagées de diverses manières : soit la donnée est envoyée, soit elle est demandée puis reçue, soit elle est écoutée.
• Group : donne le nom du groupe au sein duquel toutes les applications possédant un TTetheringAppProfile avec le même nom de Group pourront entrer en communication automatiquement.

III-A. Principe général▲

Deux applications seront impliquées : une application demandeuse (dite client) et une application fournisseuse (dite WebProvider).

III-A-1. L'application client▲

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, celui qui surviendra quand l'application WebProvider lui enverra sa réponse.

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

III-A-2. L'application WebProvider▲

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.

Seul le TTetheringAppProfile aura un événement à gérer, celui qui surviendra quand le client lui enverra sa requête.

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

III-B. Processus chronologique entre les deux applications▲

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

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;

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 THtmlViewer
      Memo1.Lines.LoadFromStream(SS);
    finally
      SS.Free;
    end;
  end;
end;

Afin de tester les exemples proposés, vous devrez tout d'abord installer les composants HtmlViewer 11.7 disponibles sur GitHub.

Le WebProvider est fourni sous VCL et FMX. Vous choisirez la version que vous préférez pour l'exécuter. Après avoir lancé le WebProvider, lancez alors le client pour envoyer vos requêtes :

• connectez-vous avec le bouton adéquat ;
• choisissez une URL depuis la TComboBox ;
• cliquez sur Go.

Cet exemple ne montre que très partiellement la puissance de cette technologie, mais elle simplifie indéniablement le développement d'applications impliquant la communication inter-applications.

De nombreux exemples d'AppTethering sont disponibles :

• dans les démonstrations livrées avec RADStudio ;
• auprès de nombreux contributeurs tels que Malcolm Groves et Stephen Ball.

Ce tutoriel est proposé par la société Barnsten.

La relecture technique et la mise en forme ont été effectuées par gvasseur58. La relecture orthographique a été effectuée par XXXXX.