VB6 / EDS API / Dokumenta pamatdati.
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/doc/:id",sbResponseBody)
If (success = 0) Then
Debug.Print http.LastErrorText
Exit Sub
End If
Dim jResp As New ChilkatJsonObject
success = jResp.LoadSb(sbResponseBody)
jResp.EmitCompact = 0
Debug.Print "Response Body:"
Debug.Print jResp.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)
' {
' "ParbaudesRezultats": {
' "Kluda": [
' "dolor ad aliqua",
' "commodo enim est"
' ],
' "Bridinajums": [
' "aliqua adipisicing eiusmod incididunt",
' "Ut eiusmod laborum"
' ],
' "Informacija": [
' "exercitation inc",
' "irure amet ut"
' ],
' "Apstiprinajums": [
' "labore eu magna irure",
' "dolor laboris tempor"
' ]
' },
' "SanemtasAtbildes": [
' {
' "Tips": "ex dolore amet",
' "Datums": "2000-01-31T00:00:00",
' "Teksts": "commodo sint minim"
' },
' {
' "Tips": "in laborum",
' "Datums": "2000-01-31T00:00:00",
' "Teksts": "in fugiat"
' }
' ],
' "Id": -19950873,
' "Izveidots": "2000-01-31T00:00:00",
' "Iesniegts": "2000-01-31T00:00:00",
' "DokumentaVersija": "cillum ut magna adipisicing aliqua",
' "DokumentaVeids": "ex magna reprehenderit",
' "PeriodsNo": "2000-01-31T00:00:00",
' "PeriodsLidz": "2000-01-31T00:00:00",
' "Papildinformacija": "pariatur tempor occ",
' "StatussId": 94653878,
' "Statuss": "aliquip occaec",
' "IrBridinajumi": true,
' "VarIesniegt": true,
' "VarDzest": true,
' "IrSanemtasAtbildes": true,
' "Arhivets": false
' }
' Sample code for parsing the JSON response...
' Use this online tool to generate parsing code from sample JSON: Generate JSON Parsing Code
Dim strVal As String
Dim Tips As String
Dim Datums As String
Dim Teksts As String
Dim Id As Long
Id = jResp.IntOf("Id")
Dim Izveidots As String
Izveidots = jResp.StringOf("Izveidots")
Dim Iesniegts As String
Iesniegts = jResp.StringOf("Iesniegts")
Dim DokumentaVersija As String
DokumentaVersija = jResp.StringOf("DokumentaVersija")
Dim DokumentaVeids As String
DokumentaVeids = jResp.StringOf("DokumentaVeids")
Dim PeriodsNo As String
PeriodsNo = jResp.StringOf("PeriodsNo")
Dim PeriodsLidz As String
PeriodsLidz = jResp.StringOf("PeriodsLidz")
Dim Papildinformacija As String
Papildinformacija = jResp.StringOf("Papildinformacija")
Dim StatussId As Long
StatussId = jResp.IntOf("StatussId")
Dim Statuss As String
Statuss = jResp.StringOf("Statuss")
Dim IrBridinajumi As Long
IrBridinajumi = jResp.BoolOf("IrBridinajumi")
Dim VarIesniegt As Long
VarIesniegt = jResp.BoolOf("VarIesniegt")
Dim VarDzest As Long
VarDzest = jResp.BoolOf("VarDzest")
Dim IrSanemtasAtbildes As Long
IrSanemtasAtbildes = jResp.BoolOf("IrSanemtasAtbildes")
Dim Arhivets As Long
Arhivets = jResp.BoolOf("Arhivets")
Dim i As Long
i = 0
Dim count_i As Long
count_i = jResp.SizeOfArray("ParbaudesRezultats.Kluda")
Do While i < count_i
jResp.I = i
strVal = jResp.StringOf("ParbaudesRezultats.Kluda[i]")
i = i + 1
Loop
i = 0
count_i = jResp.SizeOfArray("ParbaudesRezultats.Bridinajums")
Do While i < count_i
jResp.I = i
strVal = jResp.StringOf("ParbaudesRezultats.Bridinajums[i]")
i = i + 1
Loop
i = 0
count_i = jResp.SizeOfArray("ParbaudesRezultats.Informacija")
Do While i < count_i
jResp.I = i
strVal = jResp.StringOf("ParbaudesRezultats.Informacija[i]")
i = i + 1
Loop
i = 0
count_i = jResp.SizeOfArray("ParbaudesRezultats.Apstiprinajums")
Do While i < count_i
jResp.I = i
strVal = jResp.StringOf("ParbaudesRezultats.Apstiprinajums[i]")
i = i + 1
Loop
i = 0
count_i = jResp.SizeOfArray("SanemtasAtbildes")
Do While i < count_i
jResp.I = i
Tips = jResp.StringOf("SanemtasAtbildes[i].Tips")
Datums = jResp.StringOf("SanemtasAtbildes[i].Datums")
Teksts = jResp.StringOf("SanemtasAtbildes[i].Teksts")
i = i + 1
Loop
Curl Command
curl -X GET
-H "Accept: application/json"
https://eds.vid.gov.lv/api/doc/:id
Postman Collection Item JSON
{
"name": "Dokumenta pamatdati.",
"request": {
"method": "GET",
"header": [
{
"key": "Accept",
"value": "application/json"
}
],
"url": {
"raw": "{{baseUrl}}/api/doc/:id",
"host": [
"{{baseUrl}}"
],
"path": [
"api",
"doc",
":id"
],
"variable": [
{
"key": "id",
"value": "25210683",
"description": "(Required) Dokumenta id."
}
]
}
},
"response": [
{
"name": "OK",
"originalRequest": {
"method": "GET",
"header": [
],
"url": {
"raw": "{{baseUrl}}/api/doc/:id",
"host": [
"{{baseUrl}}"
],
"path": [
"api",
"doc",
":id"
],
"variable": [
{
"key": "id",
"value": "25210683",
"description": "(Required) Dokumenta id."
}
]
}
},
"status": "OK",
"code": 200,
"_postman_previewlanguage": "json",
"header": [
{
"key": "Content-Type",
"value": "application/json"
}
],
"cookie": [
],
"body": "{\n \"ParbaudesRezultats\": {\n \"Kluda\": [\n \"dolor ad aliqua\",\n \"commodo enim est\"\n ],\n \"Bridinajums\": [\n \"aliqua adipisicing eiusmod incididunt\",\n \"Ut eiusmod laborum\"\n ],\n \"Informacija\": [\n \"exercitation inc\",\n \"irure amet ut\"\n ],\n \"Apstiprinajums\": [\n \"labore eu magna irure\",\n \"dolor laboris tempor\"\n ]\n },\n \"SanemtasAtbildes\": [\n {\n \"Tips\": \"ex dolore amet\",\n \"Datums\": \"2000-01-31T00:00:00\",\n \"Teksts\": \"commodo sint minim\"\n },\n {\n \"Tips\": \"in laborum\",\n \"Datums\": \"2000-01-31T00:00:00\",\n \"Teksts\": \"in fugiat\"\n }\n ],\n \"Id\": -19950873,\n \"Izveidots\": \"2000-01-31T00:00:00\",\n \"Iesniegts\": \"2000-01-31T00:00:00\",\n \"DokumentaVersija\": \"cillum ut magna adipisicing aliqua\",\n \"DokumentaVeids\": \"ex magna reprehenderit\",\n \"PeriodsNo\": \"2000-01-31T00:00:00\",\n \"PeriodsLidz\": \"2000-01-31T00:00:00\",\n \"Papildinformacija\": \"pariatur tempor occ\",\n \"StatussId\": 94653878,\n \"Statuss\": \"aliquip occaec\",\n \"IrBridinajumi\": true,\n \"VarIesniegt\": true,\n \"VarDzest\": true,\n \"IrSanemtasAtbildes\": true,\n \"Arhivets\": false\n}"
},
{
"name": "Lietotājs nav autentificēts.",
"originalRequest": {
"method": "GET",
"header": [
],
"url": {
"raw": "{{baseUrl}}/api/doc/:id",
"host": [
"{{baseUrl}}"
],
"path": [
"api",
"doc",
":id"
],
"variable": [
{
"key": "id",
"value": "25210683",
"description": "(Required) Dokumenta id."
}
]
}
},
"status": "Unauthorized",
"code": 401,
"_postman_previewlanguage": "text",
"header": [
{
"key": "Content-Type",
"value": "text/plain"
}
],
"cookie": [
],
"body": ""
},
{
"name": "Dokuments neeksistē vai lietotājam nav tiesību.",
"originalRequest": {
"method": "GET",
"header": [
],
"url": {
"raw": "{{baseUrl}}/api/doc/:id",
"host": [
"{{baseUrl}}"
],
"path": [
"api",
"doc",
":id"
],
"variable": [
{
"key": "id",
"value": "25210683",
"description": "(Required) Dokumenta id."
}
]
}
},
"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/doc/:id",
"host": [
"{{baseUrl}}"
],
"path": [
"api",
"doc",
":id"
],
"variable": [
{
"key": "id",
"value": "25210683",
"description": "(Required) Dokumenta id."
}
]
}
},
"status": "Too Many Requests",
"code": 429,
"_postman_previewlanguage": "text",
"header": [
{
"key": "Content-Type",
"value": "text/plain"
}
],
"cookie": [
],
"body": ""
}
]
}
