Cloud API - Barcode Reader API - VB.NET - Read Barcode From URL - ByteScout

Cloud API – Barcode Reader API – VB.NET – Read Barcode From URL

  • Home
  • /
  • Articles
  • /
  • Cloud API – Barcode Reader API – VB.NET – Read Barcode From URL

Cloud API – Barcode Reader API – VB.NET – Read Barcode From URL

Module1.vb

[vb]
Imports System.IO
Imports System.Net
Imports Newtonsoft.Json.Linq

Module Module1

‘ The authentication key (API Key).
‘ Get your own by registering at https://app.pdf.co/documentation/api
Const API_KEY As String = “***********************************”

‘ Direct URL of source file to search barcodes in.
Const SourceFileURL As String = “https://s3-us-west-2.amazonaws.com/bytescout-com/files/demo-files/cloud-api/barcode-reader/sample.pdf”
‘ Comma-separated list of barcode types to search.
‘ See valid barcode types in the documentation https://app.pdf.co/documentation/api/1.0/barcode/read_from_url.html
Const BarcodeTypes As String = “Code128,Code39,Interleaved2of5,EAN13”
‘ Comma-separated list of page indices (or ranges) to process. Leave empty for all pages. Example: ‘0,2-5,7-‘.
Const Pages As String = “”

Sub Main()

‘ Create standard .NET web client instance
Dim webClient As WebClient = New WebClient()

‘ Set API Key
webClient.Headers.Add(“x-api-key”, API_KEY)

‘ Prepare URL for `Barcode Reader` API call
Dim query As String = Uri.EscapeUriString(String.Format(
“https://api.pdf.co/v1/barcode/read/from/url?types={0}&pages={1}&url={2}”,
BarcodeTypes,
Pages,
SourceFileURL))

Try
‘ Execute request
Dim response As String = webClient.DownloadString(query)

‘ Parse JSON response
Dim json As JObject = JObject.Parse(response)

If json(“error”).ToObject(Of Boolean) = False Then

‘ Display found barcodes in console
For Each token As JToken In json(“barcodes”)
Console.WriteLine(“Found barcode:”)
Console.WriteLine(” Type: ” + token(“TypeName”).ToString())
Console.WriteLine(” Value: ” + token(“Value”).ToString())
Console.WriteLine(” Document Page Index: ” + token(“Page”).ToString())
Console.WriteLine(” Rectangle: ” + token(“Rect”).ToString())
Console.WriteLine(” Confidence: ” + token(“Confidence”).ToString())
Console.WriteLine()
Next

Else
Console.WriteLine(json(“message”).ToString())
End If

Catch ex As WebException
Console.WriteLine(ex.ToString())
End Try

webClient.Dispose()

Console.WriteLine()
Console.WriteLine(“Press any key…”)
Console.ReadKey()

End Sub

End Module

[/vb]


  Click here to get your Free Trial version of the SDK

Tutorials:

prev
next