Datasnap.DSServer.TDSServer.Start
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();
}