Datasnap - Clientapp identifizieren

[michaelg]

Hallo zusammen!

Es geht um einen Datasnap-Server und zwei verschiedene ClientApps. Ich möchte gerne herausbekommen, welche der Clientapps sich gerade mit dem Datasnap-Server verbindet. Ich hab mich voll gefreut, als ich sah, dass es das tDSConnecteventObject gibt und hab dieses Event mit Leben befüllt. (Zur Info: Prot ist eine Procedure, die einen String in ein Logbuch schreibt)

Delphi-Quellcode:

procedure TServerContainer1.DSServer1Connect(DSConnectEventObject: TDSConnectEventObject);
  begin
    Prot('Appname: '+DSConnectEventObject.ChannelInfo.ClientInfo.AppName);
  end;

Leider ist ClientInfo.Appname immer ein leerer String, egal von welchem Client und von welcher Plattform die Connection erstellt wird.

Ich habe etwas recherchiert und bin auf diesen Link gestossen: https://stackoverflow.com/questions/...me-in-datasnap. Dort steht, dass Appname nicht gefüllt wird, man das aber umgehen könnte, wenn man der SQLConnection einen weiteren Parameter mitgibt.

Leider habe ich keine SQLConnection in meinen Clients, nur eine TDSRestConnection. Außerdem ist der Post in dem Link sechs Jahre alt.

Hat jemand eine Idee, wie ich den Appnamen herausbekomme am Server, bzw. am Client mitsenden kann, ohne jeder Servermethode einen zusätzlichen Parameter mitzugeben?

Viele Grüße
Michael

[himitsu]

Ich versuche morgen mal nachzusehn, wie ich das bei uns gemacht hab.
Am Ende gebe ich irgendwo beim Connect einen String mit, welcher dann im Server ausgelesen wird.

Es ist zwar mit binärer SQLConnection (für Streams und DataSets war REST einfach zu lahm) ... nicht ausprobiert, ob es auch im zusätzlichen REST-Teil läuft, ABER es läuft damit schon seit dem ersten DataSnap, bis jetzt im 11.2.


Im Notfall kannst du auch nach dem Connect im Client eine "eigene" Methode aufrufen, und es dort selbst übergeben, bzw. einen Callback im Server nutzen und es abrufen.

[michaelg]

Bei Emba gibt es ein ähnliches Issue, welches aber schon 2015 als funktionierend abgeschlossen wurde.

Muss man den Appname irgendwo explizit initialisieren oder würde im Normalfall der Application-Name benutzt? Ich finde dazu nicht viel.

Hab noch das hier am DSServer beim Connect-Event probiert:

Delphi-Quellcode:

  Session := TDSSessionManager.GetThreadSession;
  Protocol := Session.GetData('CommunicationProtocol');
  IpAddress := Session.GetData('RemoteIP');
  AppName := Session.GetData('RemoteAppName');

Wenn ich die Thread Session auslese, steht da bei Appname "Embarcadero URI Client/1.0", was der DefaultUserAgent aus System.NetConsts.pas zu sein scheint. Und das ist als CONST definiert...kann ich also auch nicht ändern.

[himitsu]

OK, wird hier nicht viel bringen, da
im BeforeConnect des Client ->

Delphi-Quellcode:

SQLConnection.Params.Values[TDBXPropertyNames.DSAuthenticationUser] := 'abc';

Server.OnConnect ->

Delphi-Quellcode:

DSConnectEventObject.ConnectProperties.Values['DSAuthenticationUser']

Wobei das OnConnect im Server aber auch bei REST ausgeführt wird. (weiß jetzt nicht, was dort alles im ConnectProperties drin steckt, und ob es vielleicht doch irgendwie geht)



So oder so muß sowieso immer der Client es übergeben, denn woher soll ein Framework sowas wissen?
Bei REST z.B. in der URL (name@server/... oder hinten im Pfad bzw. den Parametern), im HTTP-Header oder in den Eingangsdaten (JSON).

[michaelg]

Danke für Deine Mühe. Ich hab mir jetzt einen Workaround gebaut. Da ich bei der tDSRESTConnection keine gesonderten Params setzen kann, übergebe ich den Appnamen beim Connecten im User mit. Am Server nehme ich es dann auseinander und habe User und den Appnamen der aufrufenden App zur Verfügung. Ist zwar nicht das, was ich mir ursprünglich vorgestellt hatte, aber es funktioniert einwandfrei.

Trotzdem frage ich mich, warum der Appname nicht gefüllt wird. Sollte ich da noch mal bei Emba eine Anfrage starten?