Erstellen der Client-Anwendung (TObjects- und DataSnap-Tutorial)
Nach oben zu Tutorial: Übergeben von normalen Delphi-Objekten (PODO) mit DataSnap
Inhaltsverzeichnis |
Erstellen der Client-Anwendung
Führen Sie zum Erzeugen des Clients die folgenden Schritte aus:
1. Klicken Sie mit der rechten Maustaste auf die Projektgruppe, wählen Sie Neues Projekt hinzufügen und dann VCL-Formularanwendung, und klicken Sie auf OK.
2. Speichern Sie das Projekt in demselben Ordner wie den Server. Speichern Sie die erste Unit unter dem Namen FormClientUnit.pas, das Projekt unter dem Namen PODOClient und die Projektgruppe unter dem Namen PODOGrp.
3. Wählen Sie Datei > Neu > Weitere.
4. Markieren Sie im linken Bereich den Knoten DataSnap-Server, wählen Sie rechts DBX DataSnap-Client-Modul aus, und klicken Sie auf OK.
5. Legen Sie den Typ des Moduls fest:
- Behalten Sie den ausgewählten Vorgabewert – Lokaler Server – bei, und klicken Sie auf Weiter.
- Behalten Sie den ausgewählten Vorgabewert – Eigenständiger DataSnap-Server – bei, und klicken Sie auf Weiter.
- Behalten Sie den ausgewählten Vorgabewert – TCP/IP-Protokoll – bei, und klicken Sie auf Weiter.
- Klicken Sie zur Überprüfung, ob der Port 211 geöffnet ist, auf Verbindung testen und dann auf Fertig stellen.
- Der Experte hat nun die Unit ClientModuleUnit und ClassesClientUnit erzeugt.
- In der Unit ClientClassesUnit.pas wurde die Klasse TServerMehods1Client zusammen mit der Funktion GetPerson erzeugt. Die Funktion hat dieselbe Signatur wie die Klasse des Servers. Diese Methode muss lokal aufgerufen werden.
6. Verschieben Sie die Unit SharedStuffUnit.pas per Drag&Drop aus dem Serverprojekt in das Client-Projekt.
7. Implementieren Sie eine kleine grafische Benutzeroberfläche für den Client:
- Fügen Sie auf der Design-Seite der Unit FormClientUnit zwei TEdit-Elemente aus der Tool-Palette hinzu, und ändern Sie deren Namen in EditLastname und EditFirstname.
- Fügen Sie eine TButton-Komponente aus der Tool-Palette hinzu, und ändern Sie deren Titel (Caption) in ShowPerson.
8. Wählen Sie bei aktivierter Unit FormClientUnit Datei > Unit verwenden > ClientClassesUnit1.pas, ClientModuleUnit1.pas und SharedStuffUnit.pas aus, und drücken Sie OK.
9. Doppelklicken Sie auf die Schaltfläche ShowPerson, um deren Funktionalität zu implementieren.
var p: TPerson; begin p := ClientModule1.ServerMethods2Client.GetPerson(EditFirstname.Text, EditLastname.Text); if p <> nil then begin ShowMessage(p.ToString); end; end;
{ TPerson *p; p = new TPerson(EditFirstname->Text, EditLastname->Text); if (p != NULL) ShowMessage(p->ToString()); }
- Die Implementierung der Schaltfläche ShowPerson ruft den Server zur Rückgabe eines Personenobjekts (TPerson, abgeleitet von TObject) auf. Anschließend wird getestet, ob der Server tatsächlich etwas zurückgegeben hat (p<>nil). Im positiven Fall enthält die Meldung den Vornamen und den Nachnamen der Person.