Chilkat Online Tools

VB6 / EDS API / Struktūrvienību saraksts.

Back to Collection Items

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

Dim http As New ChilkatHttp
Dim success As Long

http.SetRequestHeader "Accept","application/json"

Dim sbResponseBody As New ChilkatStringBuilder
success = http.QuickGetSb("https://eds.vid.gov.lv/api/departments",sbResponseBody)
If (success = 0) Then
    Debug.Print http.LastErrorText
    Exit Sub
End If

Dim jarrResp As New ChilkatJsonArray
success = jarrResp.LoadSb(sbResponseBody)
jarrResp.EmitCompact = 0

Debug.Print "Response Body:"
Debug.Print jarrResp.Emit()

Dim respStatusCode As Long
respStatusCode = http.LastStatus
Debug.Print "Response Status Code = " & respStatusCode
If (respStatusCode >= 400) Then
    Debug.Print "Response Header:"
    Debug.Print http.LastHeader
    Debug.Print "Failed."
    Exit Sub
End If

' Sample JSON response:
' (Sample code for parsing the JSON response is shown below)

' [
'   {
'     "Nosaukums": "laboris Excepteur",
'     "RegNr": "fugiat mollit qui nostrud ",
'     "Veids": -38769346,
'     "Datums": "2000-01-31T00:00:00",
'     "VeidsTeksts": "ad aliquip",
'     "Adrese": "labore id veniam",
'     "AdresesSaistiba": 90754423,
'     "AdresesSaistibaTeksts": "et incididunt proident v"
'   },
'   {
'     "Nosaukums": "est dolor",
'     "RegNr": "consequat laborum",
'     "Veids": 13422983,
'     "Datums": "2000-01-31T00:00:00",
'     "VeidsTeksts": "eiusmod laboris dolor qui pariatur",
'     "Adrese": "nulla officia",
'     "AdresesSaistiba": 39912793,
'     "AdresesSaistibaTeksts": "in veniam"
'   }
' ]

' Sample code for parsing the JSON response...
' Use this online tool to generate parsing code from sample JSON: Generate JSON Parsing Code

Dim json As ChilkatJsonObject
Dim Nosaukums As String
Dim RegNr As String
Dim Veids As Long
Dim Datums As String
Dim VeidsTeksts As String
Dim Adrese As String
Dim AdresesSaistiba As Long
Dim AdresesSaistibaTeksts As String

Dim i As Long
i = 0
Dim count_i As Long
count_i = jarrResp.Size
Do While i < count_i
    Set json = jarrResp.ObjectAt(i)
    Nosaukums = json.StringOf("Nosaukums")
    RegNr = json.StringOf("RegNr")
    Veids = json.IntOf("Veids")
    Datums = json.StringOf("Datums")
    VeidsTeksts = json.StringOf("VeidsTeksts")
    Adrese = json.StringOf("Adrese")
    AdresesSaistiba = json.IntOf("AdresesSaistiba")
    AdresesSaistibaTeksts = json.StringOf("AdresesSaistibaTeksts")

    i = i + 1
Loop

Curl Command

curl -X GET
	-H "Accept: application/json"
https://eds.vid.gov.lv/api/departments

Postman Collection Item JSON

{
  "name": "Struktūrvienību saraksts.",
  "request": {
    "method": "GET",
    "header": [
      {
        "key": "Accept",
        "value": "application/json"
      }
    ],
    "url": {
      "raw": "{{baseUrl}}/api/departments",
      "host": [
        "{{baseUrl}}"
      ],
      "path": [
        "api",
        "departments"
      ]
    }
  },
  "response": [
    {
      "name": "OK",
      "originalRequest": {
        "method": "GET",
        "header": [
        ],
        "url": {
          "raw": "{{baseUrl}}/api/departments",
          "host": [
            "{{baseUrl}}"
          ],
          "path": [
            "api",
            "departments"
          ]
        }
      },
      "status": "OK",
      "code": 200,
      "_postman_previewlanguage": "json",
      "header": [
        {
          "key": "Content-Type",
          "value": "application/json"
        }
      ],
      "cookie": [
      ],
      "body": "[\n  {\n    \"Nosaukums\": \"laboris Excepteur\",\n    \"RegNr\": \"fugiat mollit qui nostrud \",\n    \"Veids\": -38769346,\n    \"Datums\": \"2000-01-31T00:00:00\",\n    \"VeidsTeksts\": \"ad aliquip\",\n    \"Adrese\": \"labore id veniam\",\n    \"AdresesSaistiba\": 90754423,\n    \"AdresesSaistibaTeksts\": \"et incididunt proident v\"\n  },\n  {\n    \"Nosaukums\": \"est dolor\",\n    \"RegNr\": \"consequat laborum\",\n    \"Veids\": 13422983,\n    \"Datums\": \"2000-01-31T00:00:00\",\n    \"VeidsTeksts\": \"eiusmod laboris dolor qui pariatur\",\n    \"Adrese\": \"nulla officia\",\n    \"AdresesSaistiba\": 39912793,\n    \"AdresesSaistibaTeksts\": \"in veniam\"\n  }\n]"
    },
    {
      "name": "Lietotājs nav autentificēts.",
      "originalRequest": {
        "method": "GET",
        "header": [
        ],
        "url": {
          "raw": "{{baseUrl}}/api/departments",
          "host": [
            "{{baseUrl}}"
          ],
          "path": [
            "api",
            "departments"
          ]
        }
      },
      "status": "Unauthorized",
      "code": 401,
      "_postman_previewlanguage": "text",
      "header": [
        {
          "key": "Content-Type",
          "value": "text/plain"
        }
      ],
      "cookie": [
      ],
      "body": ""
    },
    {
      "name": "Lietotājam nav tiesību veikt šo darbību.",
      "originalRequest": {
        "method": "GET",
        "header": [
        ],
        "url": {
          "raw": "{{baseUrl}}/api/departments",
          "host": [
            "{{baseUrl}}"
          ],
          "path": [
            "api",
            "departments"
          ]
        }
      },
      "status": "Forbidden",
      "code": 403,
      "_postman_previewlanguage": "text",
      "header": [
        {
          "key": "Content-Type",
          "value": "text/plain"
        }
      ],
      "cookie": [
      ],
      "body": ""
    },
    {
      "name": "Pārsniegts izsaukumu skaita ierobežojums.",
      "originalRequest": {
        "method": "GET",
        "header": [
        ],
        "url": {
          "raw": "{{baseUrl}}/api/departments",
          "host": [
            "{{baseUrl}}"
          ],
          "path": [
            "api",
            "departments"
          ]
        }
      },
      "status": "Too Many Requests",
      "code": 429,
      "_postman_previewlanguage": "text",
      "header": [
        {
          "key": "Content-Type",
          "value": "text/plain"
        }
      ],
      "cookie": [
      ],
      "body": ""
    }
  ]
}