ByteScout Data Extraction Suite – VB.NET – Read vcard from qr code with barcode reader sdk

Home
/
Articles
/
ByteScout Data Extraction Suite – VB.NET – Read vcard from qr code with barcode reader sdk

printable version:
ByteScout-Data-Extraction-Suite-VB-NET-Read-vcard-from-qr-code-with-barcode-reader-sdk.pdf

How to read vcard from qr code with barcode reader sdk in VB.NET with ByteScout Data Extraction Suite

This code in VB.NET shows how to read vcard from qr code with barcode reader sdk with this how to tutorial

We made thousands of pre-made source code pieces for easy implementation in your own programming projects. What is ByteScout Data Extraction Suite? It is the set that includes 3 SDK products for data extraction from PDF, scans, images and from spreadsheets: PDF Extractor SDK, Data Extraction SDK, Barcode Reader SDK. It can help you to read vcard from qr code with barcode reader sdk in your VB.NET application.

The SDK samples given below describe how to quickly make your application do read vcard from qr code with barcode reader sdk in VB.NET with the help of ByteScout Data Extraction Suite. Simply copy and paste in your VB.NET project or application you and then run your app! Applying VB.NET application mostly includes various stages of the software development so even if the functionality works please test it with your data and the production environment.

ByteScout provides the free trial version of ByteScout Data Extraction Suite along with the documentation and source code samples.

On-demand (REST Web API) version:
Web API (on-demand version)

On-premise offline SDK for Windows:
60 Day Free Trial (on-premise)

Module1.vb

      Imports System.IO
Imports Bytescout.BarCodeReader
Imports Thought.vCards

Module Module1
    ''' <summary>
    ''' This example demonstrates reading of QR Code encoded vCard.
    ''' It uses vCard library by David Pinch:
    ''' 
    ''' vCard Class Library for .NET (Version 0.4; LGPL license)
    ''' Copyright (c) 2007-2009 David Pinch 
    ''' http://www.thoughtproject.com/Libraries/vCard/
    ''' </summary>
    Sub Main()

        ' Create Bytescout.BarCodeReader.Reader instance
        Using reader As New Reader

            ' Enable QR Code decoding
            reader.BarcodeTypesToFind.QRCode = True

            ' -----------------------------------------------------------------------
            ' NOTE: We can read barcodes from specific page to increase performance .
            ' For sample please refer to "Decoding barcodes from PDF by pages" program.
            ' ----------------------------------------------------------------------- 

            ' Decode QR Code from image
            Dim barcodes = reader.ReadFrom("sample_vcard.gif")

            If barcodes.Length > 0 Then

                Dim vcardBarcode = barcodes(0)

                ' Decode vCard information from barcode value
                Dim stringReader As New StringReader(vcardBarcode.Value)
                Dim vCard As New vCard(stringReader)

                ' Display some decoded info:
                Console.WriteLine("GivenName: " + vCard.GivenName)
                Console.WriteLine("FamilyName: " + vCard.FamilyName)
                Console.WriteLine("Organization: " + vCard.Organization)
                Console.WriteLine("Title: " + vCard.Title)
                Console.WriteLine("Phone: " & vCard.Phones(0).FullNumber)
                Console.WriteLine("EmailAddresses: " & vCard.EmailAddresses(0).Address)
                Console.WriteLine("DeliveryAddress: " & vCard.DeliveryAddresses(0).Street & " " & vCard.DeliveryAddresses(0).City & " " & _
                    vCard.DeliveryAddresses(0).Region & " " & vCard.DeliveryAddresses(0).PostalCode & " " & vCard.DeliveryAddresses(0).Country)

            End If

        End Using

        Console.WriteLine()
        Console.WriteLine("Press any key...")
        Console.ReadKey()

    End Sub

End Module