Implementieren einer einfachen ThingPoint-Anwendung

Sie können eine neue ThingPoint-Anwendung erstellen, die auf Anforderungen der RAD Server Engine wartet und mit den benötigten Daten antwortet.

In Ihrer ThingPoint-Anwendung benötigen Sie die folgenden Komponenten:

Mit der Komponente TEMSProvider wird die Verbindung zur RAD Server Engine eingerichtet.
Mit der Komponente TEMSEdgeService wird dann auf Anforderungen von der RAD Server Engine gewartet.

Die folgenden Komponenten sind in der RAD Server Client-Anwendung erforderlich:

Mit der Komponente TEMSProvider wird die Verbindung zur RAD Server Engine eingerichtet.
Mit der Komponente TBackendEndpoint wird auf eine bestimmte Ressource aus der ThingPoint-Anwendung zugegriffen.

Inhaltsverzeichnis

Erstellen Sie eine neue geräteübergreifende Anwendung.
- Für Delphi: Öffnen Sie Datei > Neu > Geräteübergreifende Anwendung - Delphi
- Für C++: Öffnen Sie Datei > Neu > Geräteübergreifende Anwendung - C++Builder
Suchen Sie in der Tool-Palette die Komponente TEMSProvider, und ziehen Sie sie auf das Formular.
Konfigurieren Sie im Objektinspektor die Parameter der RAD Server Engine (EMS-Server) entsprechend der Konfiguration der RAD Server Engine:
- URLHost: localhost
- URLPort: 8080
- URLProtocol: http
Klicken Sie auf die Schaltfläche Verbindung testen. Wenn die Verbindung erfolgreich hergestellt werden konnte, wird eine Meldung mit der aktuellen Version der RAD Server Engine angezeigt.
Suchen Sie in der Tool-Palette die Komponente TEMSEdgeService, und ziehen Sie sie auf das Formular.
Konfigurieren Sie im Objektinspektor die folgenden TEMSEdgeService-Parameter:
- Provider: EMSProvider1
- ModuleName: WinEdge1
Konfigurieren Sie im Objektinspektor die folgenden TEMSEdgeService-Parameter für das Warten auf Anforderungen der RAD Server Engine:
- ListenerProtocol: http
- ListenerService.Host: localhost
- ListenerService.Port: 8081
Erzeugen Sie Ihre Anwendung, und führen Sie sie aus. Drücken Sie F9 oder klicken Sie auf Ausführen.

Hinweis: Sie können ein ThingPoint nur auf den Zielplattformen 32-Bit-Windows, 64-Bit-Windows und macOS ausführen.

Erstellen Sie eine neue geräteübergreifende Anwendung:
- Für Delphi: Öffnen Sie Datei > Neu > Geräteübergreifende Anwendung - Delphi
- Für C++: Öffnen Sie Datei > Neu > Geräteübergreifende Anwendung - C++Builder
Suchen Sie in der Tool-Palette die Komponente TEMSProvider, und ziehen Sie sie auf das Formular.
Konfigurieren Sie im Objektinspektor die Parameter der RAD Server Engine gemäß der Konfiguration der RAD Server Engine:
- URLHost: localhost
- URLPort: 8080
- URLProtocol: http
Legen Sie eine TBackendEndpoint-Komponente auf dem Formular ab.
Legen Sie im Objektinspektor zur Verwendung der ThingPoint-Ressource die folgenden Parameter des TBackendEndpoint fest:
- Provider. Wählen Sie in der Dropdown-Liste den Namen der TEMSProvider-Komponente (EMSProvider1) aus.
- Resource: edgemodules/WinEdge1/version
- ResourceSuffix: Belassen Sie dieses Feld für dieses Tutorial leer.
- Method: rmGET

Zum visuellen Binden der Antwortdaten aus der ThingPoint-Anwendung öffnen Sie den LiveBindings-Designer. Wählen Sie Ansicht > LiveBindings-Designer.
Klicken Sie im LiveBindings-Designer mit der rechten Maustaste auf die Eigenschaft Response.JSONText der TBackendEndpoint-Komponente, und wählen Sie die Option Mit neuem Steuerelement verknüpfen aus, um die Antwort an eine neue TMemo-Komponente zu binden.
Legen Sie eine neue TButton-Komponente auf dem Formular ab.
- Setzen Sie im Objektinspektor die Eigenschaft Text auf Get ThingPoint Version.

Erstellen Sie das OnClick-Ereignis der TButton-Komponente (doppelklicken Sie darauf), und fügen Sie den folgenden Code hinzu:

procedure TForm1.Button1Click(Sender: TObject);
begin
    BackendEndpoint1.Execute;
end;

void __fastcall TForm1::Button1Click(TObject *Sender)
{
    BackendEndpoint1->Execute();
}