PowerBuilder

SharePoint Online Authentication

Demonstrates how to authenticate with SharePoint Online. The end result of authentication is to establish an HTTP cookie, named "SPOIDCRL", that contains a binary security token to be sent in subsequent SharePoint HTTPS requests.

The SPOIDCRL cookie can be persisted to a file and re-used in subsequent application runs.

Important: This example uses a method, SharePointOnlineAuth, that is introduced in Chilkat v9.5.0.73.

Also Important: Chilkat realizes there may be cases where your situation is such that it does not work, and something additional is required to make it work. If the example does not work out-of-the-box, please send email to support@chilkatsoft.com. The information logged to the LastErrorText property has been carefully crafted to help solve problems quickly. Also, the JSON argument to the SharePointOnlineAuth method provides a means to include additional information, whatever it may be, to handle future unknown situations.

PowerBuilder

integer li_rc
integer li_Success
oleobject loo_Http
string ls_SiteUrl
string ls_Username
oleobject loo_JsonExtra
oleobject loo_SsPassword
oleobject loo_SbResponseXml
oleobject loo_Xml

li_Success = 0

// This requires the Chilkat API to have been previously unlocked.
// See Global Unlock Sample for sample code.

loo_Http = create oleobject
li_rc = loo_Http.ConnectToNewObject("Chilkat.Http")
if li_rc < 0 then
    destroy loo_Http
    MessageBox("Error","Connecting to COM object failed")
    return
end if

// Change these things...
// Make sure to use "https" and end in a "/".
ls_SiteUrl = "https://mydomain.sharepoint.com/"
// The username is an email address.
ls_Username = "username@mydomain.com"

// The jsonExtra is for future use, if extra information is required for particular integrations.
loo_JsonExtra = create oleobject
li_rc = loo_JsonExtra.ConnectToNewObject("Chilkat.JsonObject")

loo_SsPassword = create oleobject
li_rc = loo_SsPassword.ConnectToNewObject("Chilkat.SecureString")

loo_SsPassword.Append("mypassword")

// Set properties to save/send cookies, and specify a cookie directory.
// If the CookieDir = "memory", then the SPOIDCRL cookie is persisted in memory for this HTTP object instance only.
// To persist the SharePoint authentication cookie for other HTTP objects, and for future application runs,
// set the CookieDir equal to a directory path (not a specific file path, but a directory path where cookie files
// are to be created).
loo_Http.SaveCookies = 1
loo_Http.SendCookies = 1
loo_Http.CookieDir = "memory"

// The SharePointOnlineAuth method is introduced in Chilkat v9.5.0.73
li_Success = loo_Http.SharePointOnlineAuth(ls_SiteUrl,ls_Username,loo_SsPassword,loo_JsonExtra)
if li_Success = 0 then
    Write-Debug loo_Http.LastErrorText
    destroy loo_Http
    destroy loo_JsonExtra
    destroy loo_SsPassword
    return
end if

Write-Debug "Success! We have the SPOIDCRL cookie..."

// -----------------------------------------------------------------------------------------------------------
// IMPORTANT:
// The purpose of the SharePointOnlineAuth method is to establish the SPOIDCRL cookie that will automatically be
// included in subsequent requests using the *** same HTTP object instance. ***
// If later you create a new HTTP object instance, then you'll need to re-establish the SPOIDCRL cookie before sending 
// a Sharepoint HTTP request.
// -----------------------------------------------------------------------------------------------------------

// SharePoint authenticated requests may now be sent because the authentication cookie is automatically included.
// For example:
loo_SbResponseXml = create oleobject
li_rc = loo_SbResponseXml.ConnectToNewObject("Chilkat.StringBuilder")

// If your Sharepoint site is within a site collection, then use "https://mydomain.sharepoint.com/sites/teamA/_api/web/GetFolderByServerRelativeUrl('/sites/teamA/Documents')/Files" where "teamA" is the name of the site.
li_Success = loo_Http.QuickGetSb("https://mydomain.sharepoint.com/_api/web/GetFolderByServerRelativeUrl('/Documents')/Files",loo_SbResponseXml)
if li_Success = 0 then
    Write-Debug loo_Http.LastErrorText
    destroy loo_Http
    destroy loo_JsonExtra
    destroy loo_SsPassword
    destroy loo_SbResponseXml
    return
end if

Write-Debug "Response status code = " + string(loo_Http.LastStatus)

loo_Xml = create oleobject
li_rc = loo_Xml.ConnectToNewObject("Chilkat.Xml")

loo_Xml.LoadSb(loo_SbResponseXml,1)
Write-Debug loo_Xml.GetXml()


destroy loo_Http
destroy loo_JsonExtra
destroy loo_SsPassword
destroy loo_SbResponseXml
destroy loo_Xml