Chilkat HOME Android™ Classic ASP C C++ C# Mono C# .NET Core C# C# UWP/WinRT DataFlex Delphi ActiveX Delphi DLL Visual FoxPro Java Lianja MFC Objective-C Perl PHP ActiveX PHP Extension PowerBuilder PowerShell PureBasic CkPython Chilkat2-Python Ruby SQL Server Swift 2 Swift 3,4,5... Tcl Unicode C Unicode C++ Visual Basic 6.0 VB.NET VB.NET UWP/WinRT VBScript Xojo Plugin Node.js Excel Go
(VB.NET UWP/WinRT) SCIS SearchSee more SCiS Schools Catalogue ExamplesDemonstrates the SCIS (Schools Catalogue Information Service) search API call.
' This example assumes the Chilkat API to have been previously unlocked. ' See Global Unlock Sample for sample code. Dim http As New Chilkat.Http Dim success As Boolean ' Implements the following CURL command: ' curl -i -X GET --url 'https://api.scisdata.com/catalogue/api/search?query=titleSearch%3Adogs%20AND%20publicationYear%3A2015&from=0&size=20&sort=author&order=asc' -H 'Authorization: Basic ****' ' Use the following online tool to generate HTTP code from a CURL command ' Convert a cURL Command to HTTP Source Code ' This causes the "Authorization: Basic ****" to be added to each request. http.Login = "myLogin" http.Password = "myPassword" http.BasicAuth = True Dim sbQuery As New Chilkat.StringBuilder sbQuery.Append("titleSearch:dogs AND publicationYear:2015") Dim sbUrl As New Chilkat.StringBuilder sbUrl.Append("https://api.scisdata.com/catalogue/api/search?query=") ' If non-usascii chars are included in the search, we don't know if utf-8 or windows-1252 is desired by the server. You'll need to find out.. sbUrl.Append(sbQuery.GetEncoded("url","utf-8")) sbUrl.Append("&from=0&size=20&sort=author&order=asc") Dim sbResponseBody As New Chilkat.StringBuilder success = Await http.QuickGetSbAsync(sbUrl.GetAsString(),sbResponseBody) If (success = False) Then Debug.WriteLine(http.LastErrorText) Exit Sub End If Dim jResp As New Chilkat.JsonObject jResp.LoadSb(sbResponseBody) jResp.EmitCompact = False Debug.WriteLine("Response Body:") Debug.WriteLine(jResp.Emit()) Dim respStatusCode As Integer = http.LastStatus Debug.WriteLine("Response Status Code = " & respStatusCode) If (respStatusCode >= 400) Then Debug.WriteLine("Response Header:") Debug.WriteLine(http.LastHeader) Debug.WriteLine("Failed.") Exit Sub End If ' Sample JSON response: ' (Sample code for parsing the JSON response is shown below) ' { ' "data": { ' "hits": { ' "hits": [ ' { ' "_index": "scisdata2", ' "_type": "bibdatatype", ' "_source": { ' "isbn": [ ' "9781517638160" ' ], ' "languageTermCode": [ ' "eng" ' ], ' "mainAuthor": { ' "namePersonalPrimary": [ ' "Abbott, Eleanor Hallowell." ' ] ' }, ' "title": { ' "titlePrimary": [ ' "Peace on Earth, good-will to dogs" ' ], ' "noteStmOfResponsibility": [ ' "by Eleanor Hallowell Abbott." ' ] ' }, ' "scisType": [ ' "Book" ' ], ' "dateIssuedMarc": 2015, ' "languageTermValue": [ ' "English" ' ], ' "contributor": {}, ' "isbn13": "9781517638160", ' "imageFileName": "9781517638160.jpg", ' "publicationDetails": "United States, Create Space Independent Publishing Platform, 2015", ' "isbn10": "151763816X", ' "id": "1867852" ' }, ' "_id": "1867852", ' "sort": [ ' "abbott, eleanor hallowell." ' ], ' "_score": null ' }, ' { ' "_index": "scisdata2", ' "_type": "bibdatatype", ' "_source": { ' "isbn": [ ' "9781780747910" ' ], ' "languageTermCode": [ ' "eng" ' ], ' "mainAuthor": { ' "namePersonalPrimary": [ ' "Adams, Richard." ' ] ' }, ' "title": { ' "titlePrimary": [ ' "The plague dogs" ' ], ' "noteStmOfResponsibility": [ ' "Richard Adams." ' ] ' }, ' "scisType": [ ' "Book" ' ], ' "dateIssuedMarc": 2015, ' "languageTermValue": [ ' "English" ' ], ' "contributor": {}, ' "isbn13": "9781780747910", ' "imageFileName": "9781780747910.jpg", ' "publicationDetails": "New York, Rock the Boat, 2015", ' "isbn10": "1780747918", ' "id": "1749228" ' }, ' "_id": "1749228", ' "sort": [ ' "adams, richard." ' ], ' "_score": null ' }, ' ... ' ], ' "total": 84, ' "max_score": null ' }, ' "took": 585, ' "timed_out": false ' }, ' "subscriptionStatus": {} ' } ' Sample code for parsing the JSON response... ' Use the following online tool to generate parsing code from sample JSON: ' Generate Parsing Code from JSON Dim v_index As String Dim v_type As String Dim v_sourceDateIssuedMarc As Integer Dim v_sourceIsbn13 As String Dim v_sourceImageFileName As String Dim v_sourcePublicationDetails As String Dim v_sourceIsbn10 As String Dim v_sourceId As String Dim v_id As String Dim v_score As String Dim j As Integer Dim count_j As Integer Dim strVal As String Dim dataHitsTotal As Integer = jResp.IntOf("data.hits.total") Dim dataHitsMax_score As String = jResp.StringOf("data.hits.max_score") Dim dataTook As Integer = jResp.IntOf("data.took") Dim dataTimed_out As Boolean = jResp.BoolOf("data.timed_out") Dim i As Integer = 0 Dim count_i As Integer = jResp.SizeOfArray("data.hits.hits") While i < count_i jResp.I = i v_index = jResp.StringOf("data.hits.hits[i]._index") v_type = jResp.StringOf("data.hits.hits[i]._type") v_sourceDateIssuedMarc = jResp.IntOf("data.hits.hits[i]._source.dateIssuedMarc") v_sourceIsbn13 = jResp.StringOf("data.hits.hits[i]._source.isbn13") v_sourceImageFileName = jResp.StringOf("data.hits.hits[i]._source.imageFileName") v_sourcePublicationDetails = jResp.StringOf("data.hits.hits[i]._source.publicationDetails") v_sourceIsbn10 = jResp.StringOf("data.hits.hits[i]._source.isbn10") v_sourceId = jResp.StringOf("data.hits.hits[i]._source.id") v_id = jResp.StringOf("data.hits.hits[i]._id") v_score = jResp.StringOf("data.hits.hits[i]._score") j = 0 count_j = jResp.SizeOfArray("data.hits.hits[i]._source.isbn") While j < count_j jResp.J = j strVal = jResp.StringOf("data.hits.hits[i]._source.isbn[j]") j = j + 1 End While j = 0 count_j = jResp.SizeOfArray("data.hits.hits[i]._source.languageTermCode") While j < count_j jResp.J = j strVal = jResp.StringOf("data.hits.hits[i]._source.languageTermCode[j]") j = j + 1 End While j = 0 count_j = jResp.SizeOfArray("data.hits.hits[i]._source.mainAuthor.namePersonalPrimary") While j < count_j jResp.J = j strVal = jResp.StringOf("data.hits.hits[i]._source.mainAuthor.namePersonalPrimary[j]") j = j + 1 End While j = 0 count_j = jResp.SizeOfArray("data.hits.hits[i]._source.title.titlePrimary") While j < count_j jResp.J = j strVal = jResp.StringOf("data.hits.hits[i]._source.title.titlePrimary[j]") j = j + 1 End While j = 0 count_j = jResp.SizeOfArray("data.hits.hits[i]._source.title.noteStmOfResponsibility") While j < count_j jResp.J = j strVal = jResp.StringOf("data.hits.hits[i]._source.title.noteStmOfResponsibility[j]") j = j + 1 End While j = 0 count_j = jResp.SizeOfArray("data.hits.hits[i]._source.scisType") While j < count_j jResp.J = j strVal = jResp.StringOf("data.hits.hits[i]._source.scisType[j]") j = j + 1 End While j = 0 count_j = jResp.SizeOfArray("data.hits.hits[i]._source.languageTermValue") While j < count_j jResp.J = j strVal = jResp.StringOf("data.hits.hits[i]._source.languageTermValue[j]") j = j + 1 End While j = 0 count_j = jResp.SizeOfArray("data.hits.hits[i].sort") While j < count_j jResp.J = j strVal = jResp.StringOf("data.hits.hits[i].sort[j]") j = j + 1 End While j = 0 count_j = jResp.SizeOfArray("data.hits.hits[i]._source.contributor.namePersonalOther") While j < count_j jResp.J = j strVal = jResp.StringOf("data.hits.hits[i]._source.contributor.namePersonalOther[j]") j = j + 1 End While j = 0 count_j = jResp.SizeOfArray("data.hits.hits[i]._source.contributor.nameCorporateOther") While j < count_j jResp.J = j strVal = jResp.StringOf("data.hits.hits[i]._source.contributor.nameCorporateOther[j]") j = j + 1 End While i = i + 1 End While |
© 2000-2022 Chilkat Software, Inc. All Rights Reserved.