OAuth2 | Recover Access Tokens

OAuth2 Sunucusu yok edilirse (yeniden başlatıldığı için) ve verilmiş geçerli Access Token'lar varsa, bunlar varsayılan olarak kaybolur. Bu Access Token'ları AddToken yöntemini kullanarak kurtarabilirsiniz. Bu yöntem token'ları OAuth2 Sunucusunda depolar.

 

Bir Token eklemek için aşağıdaki bilgiler gereklidir:

 

• AppName: uygulamanın adı.
• Token: access token.
• Expires: token'ın ne zaman süresinin dolacağı.
• RefreshToken: refresh token.

 

OAuth2AfterAccessToken olayını işleyerek verilen token'ları kaydedebilirsiniz.

 

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;