Datasnap.DSServer.TDSServer.Start

Übergeordnet: TDSServer

Delphi

procedure Start; override;

C++

virtual void __fastcall Start();

Eigenschaften

Typ	Sichtbarkeit	Quelle	Unit	Übergeordnet
procedure function	public	Datasnap.DSServer.pas Datasnap.DSServer.hpp	Datasnap.DSServer	TDSServer

Beschreibung

Startet den DataSnap-Server.

Start startet den DataSnap-Server. Dadurch wird die Methode Start aller TDSServerTransport-Komponentenimplementierungen und aller TDSServerClass-Komponenten aufgerufen, deren Eigenschaft Server auf diese Instanz gesetzt ist.

Diese Methode wird automatisch aufgerufen, wenn die Komponente geladen wird und die Eigenschaft AutoStart True ist.

Die folgenden Code-Snippets zeigen, wie ein Laufzeit-DataSnap-Server erstellt wird (die Snippets werden mit den Methoden Start und Stop vervollständigt). Da TDSServer eine visuelle Komponente ist, muss sie beim Ziehen auf ein Formular nicht manuell erstellt werden, wie in den folgenden Snippets. Die Prozeduren zum Starten und Anhalten sind jedoch gleich.

var
  MyDSServer: TDSServer;

begin
  { DataSnap-Server erstellen. }
  MyDSServer := TDSServer.Create(Self);

  { DataSnap-Server starten. }
  MyDSServer.Start;

  { Den Benutzer darüber informieren, ob der DataSnap-Server gestartet wurde. }
  if MyDSServer.Started then
    ShowMessage('My DataSnap server is started.') else
    ShowMessage('Could not start the DataSnap server.');

  { DataSnap-Server anhalten und Speicher freigeben. }
  MyDSServer.Stop;
  MyDSServer.Free;
end;

{
  TDSServer *MyDSServer;

  /* DataSnap-Server erstellen. */
  MyDSServer = new TDSServer(this);

  /* DataSnap-Server starten. */
  MyDSServer->Start();

  /* Den Benutzer darüber informieren, ob der DataSnap-Server gestartet wurde. */
  if (MyDSServer->Started)
  {
    ShowMessage("My DataSnap server is started.");
  } else
  {
    ShowMessage("Could not start the DataSnap server.");
  }

  /* DataSnap-Server anhalten und Speicher freigeben. */
  MyDSServer->Stop();
  MyDSServer->Free();
}