|
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
(DataFlex) SharePoint -- Get File PropertySee more SharePoint ExamplesDemonstrates how to get a specific property of a SharePoint file. Any of the following properties can be retrieved:
Use ChilkatAx-win32.pkg Procedure Test Handle hoHttp String sUrl String sJsonReply Handle hoJson Boolean iSuccess Integer iNumVersions Integer i String sTemp1 Integer iTemp1 Boolean bTemp1 // This requires the Chilkat API to have been previously unlocked. // See Global Unlock Sample for sample code. Get Create (RefClass(cComChilkatHttp)) To hoHttp If (Not(IsComObjectCreated(hoHttp))) Begin Send CreateComObject of hoHttp End // If SharePoint Windows classic authentication is used, then set the // Login, Password, LoginDomain, and NtlmAuth properties. Set ComLogin Of hoHttp To "SHAREPOINT_USERNAME" Set ComPassword Of hoHttp To "SHAREPOINT_PASSWORD" Set ComLoginDomain Of hoHttp To "SHAREPOINT_NTLM_DOMAIN" Set ComNtlmAuth Of hoHttp To True // The more common case is to use SharePoint Online authentication (via the SPOIDCRL cookie). // If so, do not set Login, Password, LoginDomain, and NtlmAuth, and instead // establish the cookie as shown at SharePoint Online Authentication // Indicate that we want a JSON reply Set ComAccept Of hoHttp To "application/json;odata=verbose" Set ComAcceptCharset Of hoHttp To "utf-8" // Get the Author property. Move "https://SHAREPOINT_HTTPS_DOMAIN/_api/web/GetFileByServerRelativeUrl('/Documents/VCAC-document.docx')/Author" To sUrl Get ComQuickGetStr Of hoHttp sUrl To sJsonReply Get ComLastMethodSuccess Of hoHttp To bTemp1 If (bTemp1 <> True) Begin Get ComLastErrorText Of hoHttp To sTemp1 Showln sTemp1 Procedure_Return End Get Create (RefClass(cComChilkatJsonObject)) To hoJson If (Not(IsComObjectCreated(hoJson))) Begin Send CreateComObject of hoJson End Get ComLoad Of hoJson sJsonReply To iSuccess Set ComEmitCompact Of hoJson To False // Make sure it was a success response, and that we really have metadata. // If it was an error response, then the JSON is error information.. Get ComLastStatus Of hoHttp To iTemp1 If (iTemp1 <> 200) Begin Get ComEmit Of hoJson To sTemp1 Showln sTemp1 Showln "Failed." Procedure_Return End Get ComEmit Of hoJson To sTemp1 Showln sTemp1 // The Author property returns JSON looking like this: // { // "d": { // "__metadata": { // "id": "Web/GetUserById(18)", // "uri": "https://SHAREPOINT_HTTPS_DOMAIN/_api/Web/GetUserById(18)", // "type": "SP.User" // }, // "Groups": { // "__deferred": { // "uri": "https://SHAREPOINT_HTTPS_DOMAIN/_api/Web/GetUserById(18)/Groups" // } // }, // "Id": 18, // "IsHiddenInUI": false, // "LoginName": "i:0#.w|mydomain\\msmith", // "Title": "Mike Smith", // "PrincipalType": 1, // "Email": "msmith@mydomain.com", // "IsSiteAdmin": false, // "UserId": { // "__metadata": { // "type": "SP.UserIdInfo" // }, // "NameId": "s-1-5-21-3433503314-2897774614-343593928-1137", // "NameIdIssuer": "urn:office:idp:activedirectory" // } // } // } // // Get the Title and Email: Showln "----" Get ComStringOf Of hoJson "d.Title" To sTemp1 Showln "Title: " sTemp1 Get ComStringOf Of hoJson "d.Email" To sTemp1 Showln "Email: " sTemp1 Showln "----" // -------------------------------------------------------------------- // Get the Versions property. Move "https://SHAREPOINT_HTTPS_DOMAIN/_api/web/GetFileByServerRelativeUrl('/Documents/VCAC-document.docx')/Versions" To sUrl Get ComQuickGetStr Of hoHttp sUrl To sJsonReply Get ComLastMethodSuccess Of hoHttp To bTemp1 If (bTemp1 <> True) Begin Get ComLastErrorText Of hoHttp To sTemp1 Showln sTemp1 Procedure_Return End Get ComLoad Of hoJson sJsonReply To iSuccess Get ComEmit Of hoJson To sTemp1 Showln sTemp1 // The Versions JSON reply looks like this: // { // "d": { // "results": [ // { // "__metadata": { // "id": "a8d025e2-8255-4487-9edb-9e796ab2889c", // "type": "SP.FileVersion" // }, // "CreatedBy": { // "__deferred": { // "uri": "https://SHAREPOINT_HTTPS_DOMAIN/_api/CreatedBy" // } // }, // "CheckInComment": "", // "Created": "2016-03-15T02:22:26Z", // "ID": 1, // "IsCurrentVersion": false, // "Size": 21082, // "Url": "_vti_history/1/Documents/VCAC-document.docx", // "VersionLabel": "0.1" // }, // { // "__metadata": { // "id": "8ab3eadd-9126-4f65-a2a3-3b0689c592d6", // "type": "SP.FileVersion" // }, // "CreatedBy": { // "__deferred": { // "uri": "https://SHAREPOINT_HTTPS_DOMAIN/_api/CreatedBy" // } // }, // "CheckInComment": "", // "Created": "2016-03-15T05:28:24Z", // "ID": 2, // "IsCurrentVersion": false, // "Size": 21082, // "Url": "_vti_history/2/Documents/VCAC-document.docx", // "VersionLabel": "0.2" // } // ] // } // } // // Get each VersionLabel, Size, and Url... Get ComSizeOfArray Of hoJson "d.results" To iNumVersions Move 0 To i While (i < iNumVersions) Set ComI Of hoJson To i Showln "---- i = " i Get ComStringOf Of hoJson "d.results[i].VersionLabel" To sTemp1 Showln "VersionLabel: " sTemp1 Get ComStringOf Of hoJson "d.results[i].Url" To sTemp1 Showln "Url: " sTemp1 Get ComIntOf Of hoJson "d.results[i].Size" To iTemp1 Showln "Size: " iTemp1 Move (i + 1) To i Loop // The output is: // ---- i = 0 // VersionLabel: 0.1 // Url: _vti_history/1/Documents/VCAC-document.docx // Size: 21082 // ---- i = 1 // VersionLabel: 0.2 // Url: _vti_history/2/Documents/VCAC-document.docx // Size: 21082 End_Procedure |
||||
© 2000-2024 Chilkat Software, Inc. All Rights Reserved.