Delphi Google Sign-In Login

Configuration 

The module requires first configure your OAuth2 Application in your Google Account, once are configure just add a couple of lines in your application to allow users login with any Google Account.

The Local Server used to read the response from Google, by default listens on IP Address 127.0.0.1 and port 8080. So you must configure the CallBack URL in the Google Application. Of course, you can modify the IP Address and port.

Once configured the OAuth2 Application in the Google Account, just create an instance of TsgcHTTP_OAuth2_Client_Google and call the method Authenticate passing as parameters the Client_Id and Client_Secret. This method waits (by default up to 60 seconds) till the user has login successfully. Returns an object where you can check if the user has authenticated or not, the Name, Id... and more data from the user profile.

Delphi Login Google 

procedure GoogleSignIn;
begin
var
  oClient: TsgcHTTP_OAuth2_Client_Google;
  oData: TsgcOAuth2_Google_Data;
begin
  oClient := TsgcHTTP_OAuth2_Client_Google.Create(nil);
  Try
    oData := oClient.Authenticate('client_id', 'client_secret');
    if oData.Authenticated then
      ShowMessage(oData.UserProfile._Name);
  Finally
    oClient.Free;
  End;
end;