Merge pull request #258 from michaelJustin/257-read-user-profile-data…

…-via-microsoft-graph-api

Read user profile data and send mail using Microsoft Graph API

demo/tutorial12/AuthFilter.pas

@@ -0,0 +1,102 @@
+(*
+
+    Daraja HTTP Framework
+    Copyright (C) Michael Justin
+
+    This program is free software: you can redistribute it and/or modify
+    it under the terms of the GNU Affero General Public License as published by
+    the Free Software Foundation, either version 3 of the License, or
+    (at your option) any later version.
+
+    This program is distributed in the hope that it will be useful,
+    but WITHOUT ANY WARRANTY; without even the implied warranty of
+    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+    GNU Affero General Public License for more details.
+
+    You should have received a copy of the GNU Affero General Public License
+    along with this program.  If not, see <http://www.gnu.org/licenses/>.
+
+
+    You can be released from the requirements of the license by purchasing
+    a commercial license. Buying such a license is mandatory as soon as you
+    develop commercial activities involving the Daraja framework without
+    disclosing the source code of your own applications. These activities
+    include: offering paid services to customers as an ASP, shipping Daraja
+    with a closed source product.
+
+*)
+
+unit AuthFilter;
+
+// note: this is unsupported example code
+
+interface
+
+uses
+  djWebFilter,
+  djServerContext,
+  djTypes,
+  djInterfaces,
+  Classes, SysUtils;
+
+type
+
+  { TAuthFilter }
+
+  TAuthFilter = class(TdjWebFilter)
+  private
+    AuthorizeEndpoint: string;
+    ClientID: string;
+    RedirectURI: string;
+  public
+    procedure Init(const Config: IWebFilterConfig); override;
+    procedure DoFilter(Context: TdjServerContext; Request: TdjRequest;
+      Response: TdjResponse; const Chain: IWebFilterChain); override;
+  end;
+
+implementation
+
+function CreateGUIDString: string;
+var
+  Guid: TGUID;
+begin
+  CreateGUID(Guid);
+  Result := GUIDToString(Guid);
+end;
+
+{ TAuthFilter }
+
+procedure TAuthFilter.Init(const Config: IWebFilterConfig);
+begin
+  AuthorizeEndpoint := Config.GetInitParameter('AuthorizeEndpoint');
+  ClientID := Config.GetInitParameter('ClientID');
+  RedirectURI := Config.GetInitParameter('RedirectURI');
+end;
+
+procedure TAuthFilter.DoFilter(Context: TdjServerContext; Request: TdjRequest;
+  Response: TdjResponse; const Chain: IWebFilterChain);
+var
+  AccessToken: string;
+  State: string;
+begin
+  AccessToken := Request.Session.Content.Values['access_token'];
+  if AccessToken = '' then
+  begin
+    State := CreateGUIDString;
+    Response.Session.Content.Values['state'] := State;
+    Response.Redirect(AuthorizeEndpoint
+     + '?client_id=' + ClientID           // Your app registration's Application (client) ID
+     + '&response_type=token'             // Requests an access token
+     + '&redirect_uri=' + RedirectURI
+     + '&scope=User.Read Mail.Send'       // Request read profile and send mail permission
+     + '&response_mode=form_post'
+     + '&state=' + State
+     );
+  end
+  else
+  begin
+    Chain.DoFilter(Context, Request, Response); // pass
+  end;
+end;
+
+end.

demo/tutorial12/AuthResponseResource.pas

@@ -0,0 +1,79 @@
+(*
+
+    Daraja HTTP Framework
+    Copyright (C) Michael Justin
+
+    This program is free software: you can redistribute it and/or modify
+    it under the terms of the GNU Affero General Public License as published by
+    the Free Software Foundation, either version 3 of the License, or
+    (at your option) any later version.
+
+    This program is distributed in the hope that it will be useful,
+    but WITHOUT ANY WARRANTY; without even the implied warranty of
+    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+    GNU Affero General Public License for more details.
+
+    You should have received a copy of the GNU Affero General Public License
+    along with this program.  If not, see <http://www.gnu.org/licenses/>.
+
+
+    You can be released from the requirements of the license by purchasing
+    a commercial license. Buying such a license is mandatory as soon as you
+    develop commercial activities involving the Daraja framework without
+    disclosing the source code of your own applications. These activities
+    include: offering paid services to customers as an ASP, shipping Daraja
+    with a closed source product.
+
+*)
+
+unit AuthResponseResource;
+
+// note: this is unsupported example code
+
+interface
+
+uses
+  djWebComponent, djTypes;
+
+type
+
+  { TAuthResponseResource }
+
+  TAuthResponseResource = class(TdjWebComponent)
+  public
+    procedure OnPost(Request: TdjRequest; Response: TdjResponse); override;
+  end;
+
+implementation
+
+uses
+  SysUtils;
+
+{ TAuthResponseResource }
+
+procedure TAuthResponseResource.OnPost(Request: TdjRequest; Response: TdjResponse);
+var
+  AccessToken: string;
+  // P: string;
+begin
+  if Request.Params.Values['state'] <> Request.Session.Content.Values['state'] then
+  begin
+    Response.ResponseNo := 401;
+    WriteLn('Invalid state parameter.');
+    Exit;
+  end;
+
+  // for P in Request.Params do
+  // begin
+  //   WriteLn(P);
+  // end;
+
+  // Read the access_token
+  AccessToken := Request.Params.Values['access_token'];
+
+  Response.Session.Content.Values['access_token'] := AccessToken;
+  Response.Redirect('/index.html');
+end;
+
+end.
+

demo/tutorial12/MainUnit.pas

@@ -0,0 +1,89 @@
+(*
+
+    Daraja HTTP Framework
+    Copyright (C) Michael Justin
+
+    This program is free software: you can redistribute it and/or modify
+    it under the terms of the GNU Affero General Public License as published by
+    the Free Software Foundation, either version 3 of the License, or
+    (at your option) any later version.
+
+    This program is distributed in the hope that it will be useful,
+    but WITHOUT ANY WARRANTY; without even the implied warranty of
+    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+    GNU Affero General Public License for more details.
+
+    You should have received a copy of the GNU Affero General Public License
+    along with this program.  If not, see <http://www.gnu.org/licenses/>.
+
+
+    You can be released from the requirements of the license by purchasing
+    a commercial license. Buying such a license is mandatory as soon as you
+    develop commercial activities involving the Daraja framework without
+    disclosing the source code of your own applications. These activities
+    include: offering paid services to customers as an ASP, shipping Daraja
+    with a closed source product.
+
+*)
+
+unit MainUnit;
+
+// note: this is unsupported example code
+
+interface
+
+procedure Demo;
+
+implementation
+
+uses
+  AuthFilter,
+  AuthResponseResource,
+  RootResource,
+  djServer, djWebAppContext, djNCSALogFilter, djWebFilterHolder,
+  ShellAPI, SysUtils;
+
+procedure Demo;
+const
+  AUTHORIZE_ENDPOINT = 'https://login.microsoftonline.com/consumers/oauth2/v2.0/authorize';
+  // Application (client) ID from Entra configuration
+  CLIENT_ID = 'ee5a0402-2861-44a2-b0e1-d79bfafbe56a';
+  // Redirect URI must match Entra configuration
+  REDIRECT_PATH = '/auth-response';
+  REDIRECT_URI = 'http://localhost' + REDIRECT_PATH;
+var
+  Context: TdjWebAppContext;
+  FilterHolder: TdjWebFilterHolder;
+  Server: TdjServer;
+begin
+  FilterHolder := TdjWebFilterHolder.Create(TAuthFilter);
+  FilterHolder.SetInitParameter('AuthorizeEndpoint', AUTHORIZE_ENDPOINT);
+  FilterHolder.SetInitParameter('ClientID', CLIENT_ID);
+  FilterHolder.SetInitParameter('RedirectURI', REDIRECT_URI);
+
+  Context := TdjWebAppContext.Create('', True);
+  Context.AddWebComponent(TRootResource, '/index.html');
+  Context.AddWebComponent(TAuthResponseResource, REDIRECT_PATH);
+  Context.AddWebFilter(FilterHolder, '*.html');
+  Context.AddFilterWithMapping(TdjNCSALogFilter, '/*');
+
+  Server := TdjServer.Create(80);
+  try
+    try
+      Server.Add(Context);
+      Server.Start;
+
+      ShellExecute(0, 'open', PChar('http://localhost/index.html'), '', '', 0);
+
+      WriteLn('Server is running, launching web browser ...');
+      WriteLn('Hit any key to terminate.');
+    except
+      on E: Exception do WriteLn(E.Message);
+    end;
+    ReadLn;
+  finally
+    Server.Free;
+  end;
+end;
+
+end.

demo/tutorial12/ReadUserProfileFromMSGraph.dpr

@@ -0,0 +1,41 @@
+(*
+
+    Daraja HTTP Framework
+    Copyright (C) Michael Justin
+
+    This program is free software: you can redistribute it and/or modify
+    it under the terms of the GNU Affero General Public License as published by
+    the Free Software Foundation, either version 3 of the License, or
+    (at your option) any later version.
+
+    This program is distributed in the hope that it will be useful,
+    but WITHOUT ANY WARRANTY; without even the implied warranty of
+    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+    GNU Affero General Public License for more details.
+
+    You should have received a copy of the GNU Affero General Public License
+    along with this program.  If not, see <http://www.gnu.org/licenses/>.
+
+
+    You can be released from the requirements of the license by purchasing
+    a commercial license. Buying such a license is mandatory as soon as you
+    develop commercial activities involving the Daraja framework without
+    disclosing the source code of your own applications. These activities
+    include: offering paid services to customers as an ASP, shipping Daraja 
+    with a closed source product.
+
+*)
+
+program ReadUserProfileFromMSGraph;
+
+// note: this is unsupported example code
+
+{$APPTYPE CONSOLE}
+
+uses
+  MainUnit;
+
+begin
+  Demo;
+end.
+