|
Chilkat • HOME • .NET Core C# • Android™ • AutoIt • C • C# • C++ • Chilkat2-Python • CkPython • Classic ASP • DataFlex • Delphi ActiveX • Delphi DLL • Go • Java • Lianja • Mono C# • Node.js • Objective-C • PHP ActiveX • PHP Extension • Perl • PowerBuilder • PowerShell • PureBasic • Ruby • SQL Server • Swift 2 • Swift 3,4,5... • Tcl • Unicode C • Unicode C++ • VB.NET • VBScript • Visual Basic 6.0 • Visual FoxPro • Xojo Plugin
(PureBasic) OneNote - Get Page HTML ContentDownload the HTML content of a OneNote page. Also iterates over the images and attachments on the OneNote page and downloads the content for each. For more information, see https://docs.microsoft.com/en-us/graph/api/page-get?view=graph-rest-1.0
IncludeFile "CkBinData.pb" IncludeFile "CkHttp.pb" IncludeFile "CkStringBuilder.pb" IncludeFile "CkXml.pb" Procedure ChilkatExample() ; This example assumes the Chilkat API to have been previously unlocked. ; See Global Unlock Sample for sample code. http.i = CkHttp::ckCreate() If http.i = 0 Debug "Failed to create object." ProcedureReturn EndIf success.i ; Implements the following CURL command: ; curl -X GET https://graph.microsoft.com/v1.0/me/onenote/pages/{id}/content?includeIDs=true \ ; -H 'authorization: Bearer ACCESS_TOKEN' ; Use the following online tool to generate HTTP code from a CURL command ; Convert a cURL Command to HTTP Source Code ; Adds the "Authorization: Bearer ACCESS_TOKEN" header. CkHttp::setCkAuthToken(http, "ACCESS_TOKEN") CkHttp::ckSetUrlVar(http,"page_id","0-d2298668edd74dccac7f821fa378bf64!41-3A33FCEB9B74CC15!20350") sbResponseBody.i = CkStringBuilder::ckCreate() If sbResponseBody.i = 0 Debug "Failed to create object." ProcedureReturn EndIf success = CkHttp::ckQuickGetSb(http,"https://graph.microsoft.com/v1.0/me/onenote/pages/{$page_id}/content?includeIDs=true",sbResponseBody) If success = 0 Debug CkHttp::ckLastErrorText(http) CkHttp::ckDispose(http) CkStringBuilder::ckDispose(sbResponseBody) ProcedureReturn EndIf Debug "HTML content:" Debug CkStringBuilder::ckGetAsString(sbResponseBody) respStatusCode.i = CkHttp::ckLastStatus(http) Debug "Response Status Code = " + Str(respStatusCode) If respStatusCode >= 400 Debug "Response Header:" Debug CkHttp::ckLastHeader(http) Debug "Failed." CkHttp::ckDispose(http) CkStringBuilder::ckDispose(sbResponseBody) ProcedureReturn EndIf ; Let's get the images and attached files. ; Here's sample HTML content with 2 images and one PDF attachment: ; <html lang="en-US"> ; <head> ; <title>A page with rendered images and an attached file</title> ; <meta http-equiv="Content-Type" content="text/html; charset=utf-8" /> ; <meta name="created" content="2020-10-23T12:00:00.0000000" /> ; </head> ; <body data-absolute-enabled="true" style="font-family:Calibri;font-size:11pt"> ; <div id="div:{b130eb6c-638a-4f97-8f7e-b6d9e2e88bf9}{32}" data-id="_default" style="position:absolute;left:48px;top:120px;width:624px"> ; <p id="p:{b130eb6c-638a-4f97-8f7e-b6d9e2e88bf9}{39}" style="margin-top:5.5pt;margin-bottom:5.5pt">Here's an image from an online source:</p> ; <img id="img:{ee18fe8d-b219-4baf-9b4d-4fc680579f0d}{1}" alt="an image on the page" width="500" height="500" src="https://graph.microsoft.com/v1.0/users('admin@chilkat.io')/onenote/resources/0-e71b45b763484921b4200e32c2439a47!1-3A33FCEB9B74CC15!20350/$value" data-src-type="image/jpeg" data-fullres-src="https://graph.microsoft.com/v1.0/users('admin@chilkat.io')/onenote/resources/0-e71b45b763484921b4200e32c2439a47!1-3A33FCEB9B74CC15!20350/$value" data-fullres-src-type="image/jpeg" /> ; <p id="p:{b130eb6c-638a-4f97-8f7e-b6d9e2e88bf9}{43}" style="margin-top:5.5pt;margin-bottom:5.5pt">Here's an image uploaded as binary data:</p> ; <img id="img:{ee18fe8d-b219-4baf-9b4d-4fc680579f0d}{3}" alt="an image on the page" width="300" height="225" src="https://graph.microsoft.com/v1.0/users('admin@chilkat.io')/onenote/resources/0-a60516b962b842f2ae9bec75c16b31de!1-3A33FCEB9B74CC15!20350/$value" data-src-type="image/jpeg" data-fullres-src="https://graph.microsoft.com/v1.0/users('admin@chilkat.io')/onenote/resources/0-a60516b962b842f2ae9bec75c16b31de!1-3A33FCEB9B74CC15!20350/$value" data-fullres-src-type="image/jpeg" /> ; <p id="p:{b130eb6c-638a-4f97-8f7e-b6d9e2e88bf9}{47}" style="margin-top:5.5pt;margin-bottom:5.5pt">Here's a file attachment:</p> ; <object data-attachment="FileName.pdf" type="application/pdf" data="https://graph.microsoft.com/v1.0/users('admin@chilkat.io')/onenote/resources/0-9e685efb33a24a6a8de1b9c707d28385!1-3A33FCEB9B74CC15!20350/$value" /> ; </div> ; </body> ; </html> xml.i = CkXml::ckCreate() If xml.i = 0 Debug "Failed to create object." ProcedureReturn EndIf CkXml::ckLoadSb(xml,sbResponseBody,1) ; Iterate over each element in the XML. Each time we find an "img" or "object", download the data. ; (The sbState is an object used to keep track of the current state of the traversal.) sbState.i = CkStringBuilder::ckCreate() If sbState.i = 0 Debug "Failed to create object." ProcedureReturn EndIf url.s bd.i = CkBinData::ckCreate() If bd.i = 0 Debug "Failed to create object." ProcedureReturn EndIf While CkXml::ckNextInTraversal2(xml,sbState) <> 0 If CkXml::ckTagEquals(xml,"img") = 1 Debug "img id: " + CkXml::ckGetAttrValue(xml,"id") url = CkXml::ckGetAttrValue(xml,"src") CkBinData::ckClear(bd) success = CkHttp::ckQuickGetBd(http,url,bd) If success = 0 Debug CkHttp::ckLastErrorText(http) CkHttp::ckDispose(http) CkStringBuilder::ckDispose(sbResponseBody) CkXml::ckDispose(xml) CkStringBuilder::ckDispose(sbState) CkBinData::ckDispose(bd) ProcedureReturn EndIf Debug "Downloaded from " + url Debug "----" ; If desired, bd.WriteFile to save the contents of bd to a file.. EndIf If CkXml::ckTagEquals(xml,"object") = 1 Debug "data-attachment: " + CkXml::ckGetAttrValue(xml,"data-attachment") Debug "type: " + CkXml::ckGetAttrValue(xml,"type") url = CkXml::ckGetAttrValue(xml,"data") CkBinData::ckClear(bd) success = CkHttp::ckQuickGetBd(http,url,bd) If success = 0 Debug CkHttp::ckLastErrorText(http) CkHttp::ckDispose(http) CkStringBuilder::ckDispose(sbResponseBody) CkXml::ckDispose(xml) CkStringBuilder::ckDispose(sbState) CkBinData::ckDispose(bd) ProcedureReturn EndIf Debug "Downloaded from " + url Debug "----" ; If desired, bd.WriteFile to save the contents of bd to a file.. EndIf Wend Debug "Success." CkHttp::ckDispose(http) CkStringBuilder::ckDispose(sbResponseBody) CkXml::ckDispose(xml) CkStringBuilder::ckDispose(sbState) CkBinData::ckDispose(bd) ProcedureReturn EndProcedure |
||||
© 2000-2024 Chilkat Software, Inc. All Rights Reserved.