Xojo / 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 Chilkat.Http
Dim success As Boolean
http.SetRequestHeader "Accept","application/json"
Dim sbResponseBody As New Chilkat.StringBuilder
success = http.QuickGetSb("https://eds.vid.gov.lv/api/doc/:id",sbResponseBody)
If (success = False) Then
System.DebugLog(http.LastErrorText)
Return
End If
Dim jResp As New Chilkat.JsonObject
success = jResp.LoadSb(sbResponseBody)
jResp.EmitCompact = False
System.DebugLog("Response Body:")
System.DebugLog(jResp.Emit())
Dim respStatusCode As Int32
respStatusCode = http.LastStatus
System.DebugLog("Response Status Code = " + Str(respStatusCode))
If (respStatusCode >= 400) Then
System.DebugLog("Response Header:")
System.DebugLog(http.LastHeader)
System.DebugLog("Failed.")
Return
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 Int32
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 Int32
StatussId = jResp.IntOf("StatussId")
Dim Statuss As String
Statuss = jResp.StringOf("Statuss")
Dim IrBridinajumi As Boolean
IrBridinajumi = jResp.BoolOf("IrBridinajumi")
Dim VarIesniegt As Boolean
VarIesniegt = jResp.BoolOf("VarIesniegt")
Dim VarDzest As Boolean
VarDzest = jResp.BoolOf("VarDzest")
Dim IrSanemtasAtbildes As Boolean
IrSanemtasAtbildes = jResp.BoolOf("IrSanemtasAtbildes")
Dim Arhivets As Boolean
Arhivets = jResp.BoolOf("Arhivets")
Dim i As Int32
i = 0
Dim count_i As Int32
count_i = jResp.SizeOfArray("ParbaudesRezultats.Kluda")
While i < count_i
jResp.I = i
strVal = jResp.StringOf("ParbaudesRezultats.Kluda[i]")
i = i + 1
Wend
i = 0
count_i = jResp.SizeOfArray("ParbaudesRezultats.Bridinajums")
While i < count_i
jResp.I = i
strVal = jResp.StringOf("ParbaudesRezultats.Bridinajums[i]")
i = i + 1
Wend
i = 0
count_i = jResp.SizeOfArray("ParbaudesRezultats.Informacija")
While i < count_i
jResp.I = i
strVal = jResp.StringOf("ParbaudesRezultats.Informacija[i]")
i = i + 1
Wend
i = 0
count_i = jResp.SizeOfArray("ParbaudesRezultats.Apstiprinajums")
While i < count_i
jResp.I = i
strVal = jResp.StringOf("ParbaudesRezultats.Apstiprinajums[i]")
i = i + 1
Wend
i = 0
count_i = jResp.SizeOfArray("SanemtasAtbildes")
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
Wend
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": ""
}
]
}
