(Delphi DLL) SCIS Search

See more SCiS Schools Catalogue Examples

Demonstrates the SCIS (Schools Catalogue Information Service) search API call.

Chilkat for Delphi Downloads

Chilkat non-ActiveX DLL for Delphi

Chilkat ActiveX DLL for Delphi

* The examples here use the non-ActiveX DLL.

uses
    Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
    Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Http, StringBuilder, JsonObject;

...

procedure TForm1.Button1Click(Sender: TObject);
var
http: HCkHttp;
success: Boolean;
sbQuery: HCkStringBuilder;
sbUrl: HCkStringBuilder;
sbResponseBody: HCkStringBuilder;
jResp: HCkJsonObject;
respStatusCode: Integer;
v_index: PWideChar;
v_type: PWideChar;
v_sourceDateIssuedMarc: Integer;
v_sourceIsbn13: PWideChar;
v_sourceImageFileName: PWideChar;
v_sourcePublicationDetails: PWideChar;
v_sourceIsbn10: PWideChar;
v_sourceId: PWideChar;
v_id: PWideChar;
v_score: PWideChar;
j: Integer;
count_j: Integer;
strVal: PWideChar;
dataHitsTotal: Integer;
dataHitsMax_score: PWideChar;
dataTook: Integer;
dataTimed_out: Boolean;
i: Integer;
count_i: Integer;

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

http := CkHttp_Create();

// 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.
CkHttp_putLogin(http,'myLogin');
CkHttp_putPassword(http,'myPassword');
CkHttp_putBasicAuth(http,True);

sbQuery := CkStringBuilder_Create();
CkStringBuilder_Append(sbQuery,'titleSearch:dogs AND publicationYear:2015');

sbUrl := CkStringBuilder_Create();
CkStringBuilder_Append(sbUrl,'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..
CkStringBuilder_Append(sbUrl,CkStringBuilder__getEncoded(sbQuery,'url','utf-8'));
CkStringBuilder_Append(sbUrl,'&from=0&size=20&sort=author&order=asc');

sbResponseBody := CkStringBuilder_Create();
success := CkHttp_QuickGetSb(http,CkStringBuilder__getAsString(sbUrl),sbResponseBody);
if (success = False) then
  begin
    Memo1.Lines.Add(CkHttp__lastErrorText(http));
    Exit;
  end;

jResp := CkJsonObject_Create();
CkJsonObject_LoadSb(jResp,sbResponseBody);
CkJsonObject_putEmitCompact(jResp,False);

Memo1.Lines.Add('Response Body:');
Memo1.Lines.Add(CkJsonObject__emit(jResp));

respStatusCode := CkHttp_getLastStatus(http);
Memo1.Lines.Add('Response Status Code = ' + IntToStr(respStatusCode));
if (respStatusCode >= 400) then
  begin
    Memo1.Lines.Add('Response Header:');
    Memo1.Lines.Add(CkHttp__lastHeader(http));
    Memo1.Lines.Add('Failed.');
    Exit;
  end;

// 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

dataHitsTotal := CkJsonObject_IntOf(jResp,'data.hits.total');
dataHitsMax_score := CkJsonObject__stringOf(jResp,'data.hits.max_score');
dataTook := CkJsonObject_IntOf(jResp,'data.took');
dataTimed_out := CkJsonObject_BoolOf(jResp,'data.timed_out');
i := 0;
count_i := CkJsonObject_SizeOfArray(jResp,'data.hits.hits');
while i < count_i do
  begin
    CkJsonObject_putI(jResp,i);
    v_index := CkJsonObject__stringOf(jResp,'data.hits.hits[i]._index');
    v_type := CkJsonObject__stringOf(jResp,'data.hits.hits[i]._type');
    v_sourceDateIssuedMarc := CkJsonObject_IntOf(jResp,'data.hits.hits[i]._source.dateIssuedMarc');
    v_sourceIsbn13 := CkJsonObject__stringOf(jResp,'data.hits.hits[i]._source.isbn13');
    v_sourceImageFileName := CkJsonObject__stringOf(jResp,'data.hits.hits[i]._source.imageFileName');
    v_sourcePublicationDetails := CkJsonObject__stringOf(jResp,'data.hits.hits[i]._source.publicationDetails');
    v_sourceIsbn10 := CkJsonObject__stringOf(jResp,'data.hits.hits[i]._source.isbn10');
    v_sourceId := CkJsonObject__stringOf(jResp,'data.hits.hits[i]._source.id');
    v_id := CkJsonObject__stringOf(jResp,'data.hits.hits[i]._id');
    v_score := CkJsonObject__stringOf(jResp,'data.hits.hits[i]._score');
    j := 0;
    count_j := CkJsonObject_SizeOfArray(jResp,'data.hits.hits[i]._source.isbn');
    while j < count_j do
      begin
        CkJsonObject_putJ(jResp,j);
        strVal := CkJsonObject__stringOf(jResp,'data.hits.hits[i]._source.isbn[j]');
        j := j + 1;
      end;

    j := 0;
    count_j := CkJsonObject_SizeOfArray(jResp,'data.hits.hits[i]._source.languageTermCode');
    while j < count_j do
      begin
        CkJsonObject_putJ(jResp,j);
        strVal := CkJsonObject__stringOf(jResp,'data.hits.hits[i]._source.languageTermCode[j]');
        j := j + 1;
      end;

    j := 0;
    count_j := CkJsonObject_SizeOfArray(jResp,'data.hits.hits[i]._source.mainAuthor.namePersonalPrimary');
    while j < count_j do
      begin
        CkJsonObject_putJ(jResp,j);
        strVal := CkJsonObject__stringOf(jResp,'data.hits.hits[i]._source.mainAuthor.namePersonalPrimary[j]');
        j := j + 1;
      end;

    j := 0;
    count_j := CkJsonObject_SizeOfArray(jResp,'data.hits.hits[i]._source.title.titlePrimary');
    while j < count_j do
      begin
        CkJsonObject_putJ(jResp,j);
        strVal := CkJsonObject__stringOf(jResp,'data.hits.hits[i]._source.title.titlePrimary[j]');
        j := j + 1;
      end;

    j := 0;
    count_j := CkJsonObject_SizeOfArray(jResp,'data.hits.hits[i]._source.title.noteStmOfResponsibility');
    while j < count_j do
      begin
        CkJsonObject_putJ(jResp,j);
        strVal := CkJsonObject__stringOf(jResp,'data.hits.hits[i]._source.title.noteStmOfResponsibility[j]');
        j := j + 1;
      end;

    j := 0;
    count_j := CkJsonObject_SizeOfArray(jResp,'data.hits.hits[i]._source.scisType');
    while j < count_j do
      begin
        CkJsonObject_putJ(jResp,j);
        strVal := CkJsonObject__stringOf(jResp,'data.hits.hits[i]._source.scisType[j]');
        j := j + 1;
      end;

    j := 0;
    count_j := CkJsonObject_SizeOfArray(jResp,'data.hits.hits[i]._source.languageTermValue');
    while j < count_j do
      begin
        CkJsonObject_putJ(jResp,j);
        strVal := CkJsonObject__stringOf(jResp,'data.hits.hits[i]._source.languageTermValue[j]');
        j := j + 1;
      end;

    j := 0;
    count_j := CkJsonObject_SizeOfArray(jResp,'data.hits.hits[i].sort');
    while j < count_j do
      begin
        CkJsonObject_putJ(jResp,j);
        strVal := CkJsonObject__stringOf(jResp,'data.hits.hits[i].sort[j]');
        j := j + 1;
      end;

    j := 0;
    count_j := CkJsonObject_SizeOfArray(jResp,'data.hits.hits[i]._source.contributor.namePersonalOther');
    while j < count_j do
      begin
        CkJsonObject_putJ(jResp,j);
        strVal := CkJsonObject__stringOf(jResp,'data.hits.hits[i]._source.contributor.namePersonalOther[j]');
        j := j + 1;
      end;

    j := 0;
    count_j := CkJsonObject_SizeOfArray(jResp,'data.hits.hits[i]._source.contributor.nameCorporateOther');
    while j < count_j do
      begin
        CkJsonObject_putJ(jResp,j);
        strVal := CkJsonObject__stringOf(jResp,'data.hits.hits[i]._source.contributor.nameCorporateOther[j]');
        j := j + 1;
      end;

    i := i + 1;
  end;

CkHttp_Dispose(http);
CkStringBuilder_Dispose(sbQuery);
CkStringBuilder_Dispose(sbUrl);
CkStringBuilder_Dispose(sbResponseBody);
CkJsonObject_Dispose(jResp);

end;