Tcl
OneNote - Get Page HTML Content

Download the HTML content of a OneNote page. Also iterates over the images and attachments on the OneNote page and downloads the content for each.
Chilkat Tcl Downloads

Download Chilkat for Tcl
Tcl

load ./chilkat.dll

set success 0

# This example assumes the Chilkat API to have been previously unlocked.
# See Global Unlock Sample for sample code.

set http [new_CkHttp]

# 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_put_AuthToken $http "ACCESS_TOKEN"

CkHttp_SetUrlVar $http "page_id" "0-d2298668edd74dccac7f821fa378bf64!41-3A33FCEB9B74CC15!20350"

set sbResponseBody [new_CkStringBuilder]

set success [CkHttp_QuickGetSb $http "https://graph.microsoft.com/v1.0/me/onenote/pages/{$page_id}/content?includeIDs=true" $sbResponseBody]
if {$success == 0} then {
    puts [CkHttp_lastErrorText $http]
    delete_CkHttp $http
    delete_CkStringBuilder $sbResponseBody
    exit
}

puts "HTML content:"
puts [CkStringBuilder_getAsString $sbResponseBody]

set respStatusCode [CkHttp_get_LastStatus $http]
puts "Response Status Code = $respStatusCode"
if {$respStatusCode >= 400} then {
    puts "Response Header:"
    puts [CkHttp_lastHeader $http]
    puts "Failed."
    delete_CkHttp $http
    delete_CkStringBuilder $sbResponseBody
    exit
}

# 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&#39;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&#39;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&#39;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>

set xml [new_CkXml]

CkXml_LoadSb $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.)
set sbState [new_CkStringBuilder]

set bd [new_CkBinData]

while {[CkXml_NextInTraversal2 $xml $sbState] != 0} {

    if {[CkXml_TagEquals $xml "img"] == 1} then {
        puts "img id: [CkXml_getAttrValue $xml id]"
        set url [CkXml_getAttrValue $xml "src"]
        CkBinData_Clear $bd
        set success [CkHttp_QuickGetBd $http $url $bd]
        if {$success == 0} then {
            puts [CkHttp_lastErrorText $http]
            delete_CkHttp $http
            delete_CkStringBuilder $sbResponseBody
            delete_CkXml $xml
            delete_CkStringBuilder $sbState
            delete_CkBinData $bd
            exit
        }

        puts "Downloaded from $url"
        puts "----"
        # If desired, bd.WriteFile to save the contents of bd to a file..
    }

    if {[CkXml_TagEquals $xml "object"] == 1} then {
        puts "data-attachment: [CkXml_getAttrValue $xml data-attachment]"
        puts "type: [CkXml_getAttrValue $xml type]"
        set url [CkXml_getAttrValue $xml "data"]
        CkBinData_Clear $bd
        set success [CkHttp_QuickGetBd $http $url $bd]
        if {$success == 0} then {
            puts [CkHttp_lastErrorText $http]
            delete_CkHttp $http
            delete_CkStringBuilder $sbResponseBody
            delete_CkXml $xml
            delete_CkStringBuilder $sbState
            delete_CkBinData $bd
            exit
        }

        puts "Downloaded from $url"
        puts "----"
        # If desired, bd.WriteFile to save the contents of bd to a file..
    }

}

puts "Success."

delete_CkHttp $http
delete_CkStringBuilder $sbResponseBody
delete_CkXml $xml
delete_CkStringBuilder $sbState
delete_CkBinData $bd