MS Sharepoint Authentication - OAuth2
lazarus / 38-Networking and Web Programming

----------------------------------------------------------------------
magu · 2025-06-27 21:44

I have mostly vibe-coded a library to handle OAuth2 authentication to
Microsoft Sharepoint, the unit and a sample are attached in case
anyone of you finds it useful.
It works by creating a server to receive the authenticated token.

It works well, however the difficulty is in freeing the server, and
the following code returns an error when I try to free the server
Thread:

Code: Pascal  [Select][+][-]window.onload = function(){var x1 =
document.getElementById("main_content_section"); if (x1) { var x =
document.getElementsByClassName("geshi");for (var i = 0; i procedure
TMS365Auth.LoginAuth;var  ...  Server: TFPHTTPServer;  Handler:
TRequestHandler;  ServerThread: TServerThread;begin  ...  Server :=
TFPHTTPServer.Create(nil);  Handler := TRequestHandler.Create; 
Server.OnRequest := @Handler.HandleRequest;  Server.Port := 8080;  
ServerThread := TServerThread.Create(Server);  Sleep(250); // give the
server time to bind  OpenBrowser(AuthURL);   //WriteLn('Waiting for
authentication to complete...');  while (Handler.AuthCodeReceived =
'') do  begin    Sleep(100);  end;   //The server is waiting to
receive the Access Code.  if Handler.AuthCodeReceived <> '' then 
begin    GetAccessToken(Handler.AuthCodeReceived);    FConnected :=
True;  end  else  begin    //WriteLn('Authentication failed or was
cancelled.');    FConnected := False;  end;   Server.Active := False; 
// this is the failure point!  //ServerThread.WaitFor; 
//Server.Free;  //ServerThread.Free;  Handler.Free;end;
I would be really grateful if someone could explain how to shutdown
and free the server and serverthread without crashing the system.

ps. The system works well enough if the server isn't freed but of
course that would not be ideal...

Thank you,
Ref