Wenn der OAuth2-Server zerstört wird (weil er neu gestartet wird) und gültige Access Tokens ausgestellt sind, gehen diese standardmäßig verloren. Sie können diese Access Tokens mit der Methode AddToken wiederherstellen. Diese Methode speichert die Tokens im OAuth2-Server.
Das Hinzufügen eines Tokens erfordert die folgenden Informationen:
Sie können die ausgestellten Tokens speichern, indem Sie das Ereignis OAuth2AfterAccessToken behandeln.
procedure OnOAuth2AfterAccessToken(Sender: TObject; Connection: TsgcWSConnection; OAuth2: TsgcHTTPOAuth2Request;
aResponse: string);
begin
// ... store OAuth2 Token data
end;
OAuth2 := TsgcHTTP_OAuth2_Server.Create(nil);
OAuth2.Apps.AddApp('MyApp', 'http://127.0.0.1:8080', 'client-id', 'client-secret');
OAuth2.AddToken('MyApp', '12146ce12b0e4813987f2794f768905cefc39da6fbd54f6d9b38387489280608', EncodeDate(2022,1,1),
'ef3e3dfa56ec44109c3d345b1541f08e539ce21432d9433099b48a3d08d34bc0');
oServer.Authentication.Enabled := True;
oServer.Authentication.OAuth.OAuth2 := OAuth2;