Pascal (Lazarus/Delphi)
Pascal (Lazarus/Delphi)
OneNote - Get Page HTML Content
See more OneNote Examples
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 Pascal (Lazarus/Delphi) Downloads
program ChilkatDemo;
// Demonstrates using the Chilkat Pascal wrapper via the C bridge DLL.
// Builds as a console application under Lazarus (FPC) or Delphi.
{$IFDEF FPC}
{$MODE DELPHI}
{$ENDIF}
{$APPTYPE CONSOLE}
uses
{$IFDEF UNIX}
cthreads,
{$ENDIF}
SysUtils,
CkDllLoader,
Chilkat.Http,
Chilkat.StringBuilder,
Chilkat.BinData,
Chilkat.Xml;
// ---------------------------------------------------------------------------
procedure RunDemo;
var
success: Boolean;
http: THttp;
sbResponseBody: TStringBuilder;
respStatusCode: Integer;
xml: TXml;
sbState: TStringBuilder;
url: string;
bd: TBinData;
begin
success := False;
// This example assumes the Chilkat API to have been previously unlocked.
// See Global Unlock Sample for sample code.
http := THttp.Create;
// 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.
http.AuthToken := 'ACCESS_TOKEN';
http.SetUrlVar('page_id','0-d2298668edd74dccac7f821fa378bf64!41-3A33FCEB9B74CC15!20350');
sbResponseBody := TStringBuilder.Create;
success := http.QuickGetSb('https://graph.microsoft.com/v1.0/me/onenote/pages/{$page_id}/content?includeIDs=true',sbResponseBody);
if (success = False) then
begin
WriteLn(http.LastErrorText);
Exit;
end;
WriteLn('HTML content:');
WriteLn(sbResponseBody.GetAsString());
respStatusCode := http.LastStatus;
WriteLn('Response Status Code = ' + respStatusCode);
if (respStatusCode >= 400) then
begin
WriteLn('Response Header:');
WriteLn(http.LastHeader);
WriteLn('Failed.');
Exit;
end;
// 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 := TXml.Create;
xml.LoadSb(sbResponseBody,True);
// 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 := TStringBuilder.Create;
bd := TBinData.Create;
while xml.NextInTraversal2(sbState) <> False do
begin
if (xml.TagEquals('img') = True) then
begin
WriteLn('img id: ' + xml.GetAttrValue('id'));
url := xml.GetAttrValue('src');
bd.Clear();
success := http.QuickGetBd(url,bd);
if (success = False) then
begin
WriteLn(http.LastErrorText);
Exit;
end;
WriteLn('Downloaded from ' + url);
WriteLn('----');
// If desired, bd.WriteFile to save the contents of bd to a file..
end;
if (xml.TagEquals('object') = True) then
begin
WriteLn('data-attachment: ' + xml.GetAttrValue('data-attachment'));
WriteLn('type: ' + xml.GetAttrValue('type'));
url := xml.GetAttrValue('data');
bd.Clear();
success := http.QuickGetBd(url,bd);
if (success = False) then
begin
WriteLn(http.LastErrorText);
Exit;
end;
WriteLn('Downloaded from ' + url);
WriteLn('----');
// If desired, bd.WriteFile to save the contents of bd to a file..
end;
end;
WriteLn('Success.');
http.Free;
sbResponseBody.Free;
xml.Free;
sbState.Free;
bd.Free;
end;
// ---------------------------------------------------------------------------
begin
try
RunDemo;
except
on E: Exception do
WriteLn('Unhandled exception: ', E.ClassName, ': ', E.Message);
end;
WriteLn;
{$IFDEF MSWINDOWS}
WriteLn('Press Enter to exit...');
ReadLn;
{$ENDIF}
end.