Datasnap - Clientapp identifizieren

[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 -> SQLConnection.Params.Values[TDBXPropertyNames.DSAuthenticationUser] := 'abc';

Server.OnConnect -> 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?