Datasnap.DSServer.TDSServer.Start

Aller au parent : TDSServer

Delphi

procedure Start; override;

C++

virtual void __fastcall Start(void);

Propriétés

Type	Visibilité	Source	Unité	Parent
procedure function	public	Datasnap.DSServer.pas Datasnap.DSServer.hpp	Datasnap.DSServer	TDSServer

Description

Démarre le serveur DataSnap.

Start démarre le serveur DataSnap. La méthode Start appelle de façon interne la méthode Start pour toutes les implémentations du composant TDSServerTransport et tous les composants TDSServerClass dont la propriété Server est définie sur cette instance.

La méthode Start est appelée automatiquement quand le composant est chargé si la propriété AutoStart est définie sur True.

Les extraits de code ci-dessous illustrent la création d'un serveur DataSnap à l'exécution (les extraits contiennent aussi les méthodes Start et Stop). Comme TDSServer est un composant visuel, s'il est déplacé sur une fiche, il n'est pas nécessaire de le créer manuellement comme dans les extraits ci-dessous. Cependant, les procédures de démarrage et d'arrêt sont les mêmes.

var
  MyDSServer: TDSServer;

begin
  { Crée un serveur DataSnap. }
  MyDSServer := TDSServer.Create(Self);

  { Démarre le serveur DataSnap. }
  MyDSServer.Start;

  { Informe l'utilisateur si le serveur DataSnap a été démarré. }
  if MyDSServer.Started then
    ShowMessage('Mon serveur DataSnap est démarré.') else
    ShowMessage('Impossible de démarrer le serveur DataSnap.');

  { Arrête le serveur DataSnap et libère la mémoire. }
  MyDSServer.Stop;
  MyDSServer.Free;
end;

{
  TDSServer *MyDSServer;

  /* Crée un serveur DataSnap. */
  MyDSServer = new TDSServer(this);

  /* Démarre le serveur DataSnap. */
  MyDSServer->Start();

  /* Informe l'utilisateur si le serveur DataSnap a été démarré. */
  if (MyDSServer->Started)
  {
    ShowMessage("Mon serveur DataSnap est démarré.");
  } else
  {
    ShowMessage("Impossible de démarrer le serveur DataSnap.");
  }

  /* Arrête le serveur DataSnap et libère la mémoire. */
  MyDSServer->Stop();
  MyDSServer->Free();
}