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