Forum: Netzwerke
by Maekkelrajter,
23. Sep 2020
So funktioniert's tatsächlich. Naja, das muss man natürlich wissen. Ich war eben davon ausgegangen, dass die Properties die Schnittstelle einer Klasse sind.
Dass aber ein Funktionsrückgabewert innerhalb einer Methode nicht auf Gültigkeit überprüft wird und eine Accessviolation auslöst, kann man doch nur als Bug ansehen. Ein ähnlicher Fall lag ja auch meinem Ausgangs-Posting in diesem Thread...
Forum: Netzwerke
by Maekkelrajter,
20. Sep 2020
Ich war ja froh, als ich das Ding endlich am laufen hatte. Ich zweifele auch nicht im geringsten daran dass der Code noch verbesserungsfähig ist. Hier also die Authentifizierungs Routinen, die ich übrigens zum Teil aus dem Beispiel-Programm abgekupfert habe:
{
type
TSpManager = class(TForm)
IdHTTPServer1: TIdHTTPServer;
OAuth2Authenticator1: TOAuth2Authenticator;
...
Forum: Netzwerke
by Maekkelrajter,
20. Sep 2020
Der Fehler wird so tatsächlich behoben, oder besser gesagt, umgangen. Die Idee mit der lokalen Variablen habe ich mit einer Funktion realisiert, gewissermaßen ein Wrapper für den eigentlichen Aufruf von GetValue. Der hilft auch den Code aller übrigen Methoden, die diese Funktion benutzen, deutlich zu vereinfachen:
Function TSpManager.GetValue(value:TJSONValue; key: string): String;
var jv:...