Important Update
Check these thousands of pre-made source code samples for simple implementation in your own programming projects. ByteScout Cloud API Server helps with barcode reader API in VB.NET. ByteScout Cloud API Server is the ready to use Web API Server that can be deployed in less than 30 minutes into your own in-house server or into private cloud server. Can store data on in-house local server based storage or in Amazon AWS S3 bucket. Processing data solely on the server using buil-in ByteScout powered engine, no cloud services are used to process your data!.
This simple and easy to understand sample source code in VB.NET for ByteScout Cloud API Server contains different functions and options you should do calling the API to implement barcode reader API. For implementation of this functionality, please copy and paste the code below into your app using code editor. Then compile and run your app. You can use these VB.NET sample examples in one or many applications.
Free! Free! Free! ByteScout free trial version is available for FREE download from our website. Programming tutorials along with source code samples are assembled.
On-demand (REST Web API) version:
Web API (on-demand version)
On-premise offline SDK for Windows:
60 Day Free Trial (on-premise)
Imports System.IO
Imports System.Net
Imports Newtonsoft.Json.Linq
' Please NOTE: In this sample we're assuming Cloud Api Server is hosted at "https://localhost".
' If it's not then please replace this with with your hosting url.
Module Module1
' Direct URL of source file to search barcodes in.
Const SourceFileURL As String = "https://bytescout-com.s3.amazonaws.com/files/demo-files/cloud-api/barcode-reader/sample.pdf"
' Comma-separated list of barcode types to search.
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()
' Prepare URL for `Barcode Reader` API call
Dim query As String = Uri.EscapeUriString(String.Format(
"https://localhost/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
60 Day Free Trial or Visit ByteScout Cloud API Server Home Page
Explore ByteScout Cloud API Server Documentation
Explore Samples
Sign Up for ByteScout Cloud API Server Online Training
Get Your API Key
Explore Web API Docs
Explore Web API Samples
<?xml version="1.0" encoding="utf-8"?>
<packages>
<package id="Newtonsoft.Json" version="10.0.3" targetFramework="net40" />
</packages>
60 Day Free Trial or Visit ByteScout Cloud API Server Home Page
Explore ByteScout Cloud API Server Documentation
Explore Samples
Sign Up for ByteScout Cloud API Server Online Training
Get Your API Key
Explore Web API Docs
Explore Web API Samples
60 Day Free Trial or Visit ByteScout Cloud API Server Home Page
Explore ByteScout Cloud API Server Documentation
Explore Samples
Sign Up for ByteScout Cloud API Server Online Training
Get Your API Key
Explore Web API Docs
Explore Web API Samples