Link Search Menu Expand Document

Decode page by page from PDF OR TIFF - ASP.NET VB

BarCode Reader SDK sample in ASP.NET VB demonstrating ‘Decode page by page from PDF OR TIFF’

Default.aspx
<%@ Page Language="C#" AutoEventWireup="true" CodeBehind="Default.aspx.cs" Inherits="WebTestSharp._Default" %>

<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">

<html xmlns="http://www.w3.org/1999/xhtml">
<head runat="server">
    <title>Web Barcode Reader Tester (C#)</title>
</head>
<body>
    <form id="form1" runat="server">
        <div>
            Click browse button to upload a PDF/TIFF document<br />
            <asp:FileUpload ID="FileUpload1" runat="server" /><br />
            <br />
            Page No. to read barcode from:
        <asp:TextBox ID="txtPageNo" Text="1" runat="server"></asp:TextBox>
            <br />
            <br />
            <asp:Button ID="UploadButton"
                Text="Upload file and read barcodes"
                OnClick="UploadButton_Click"
                runat="server"></asp:Button>
            <br />
            <br />
            <asp:Label ID="UploadStatusLabel" Text="" runat="server"></asp:Label>
            <br />
            <asp:ListBox ID="ListBox1" runat="server" Visible="False"></asp:ListBox><br />
            <br />
        </div>
    </form>
</body>
</html>

Default.aspx.designer.vb
��'------------------------------------------------------------------------------

' <auto-generated>

'     This code was generated by a tool.

'

'     Changes to this file may cause incorrect behavior and will be lost if

'     the code is regenerated. 

' </auto-generated>

'------------------------------------------------------------------------------



Option Strict On

Option Explicit On





Partial Public Class _Default

    

    '''<summary>

    '''form1 control.

    '''</summary>

    '''<remarks>

    '''Auto-generated field.

    '''To modify move field declaration from designer file to code-behind file.

    '''</remarks>

    Protected WithEvents form1 As Global.System.Web.UI.HtmlControls.HtmlForm

    

    '''<summary>

    '''FileUpload1 control.

    '''</summary>

    '''<remarks>

    '''Auto-generated field.

    '''To modify move field declaration from designer file to code-behind file.

    '''</remarks>

    Protected WithEvents FileUpload1 As Global.System.Web.UI.WebControls.FileUpload

    

    '''<summary>

    '''txtPageNo control.

    '''</summary>

    '''<remarks>

    '''Auto-generated field.

    '''To modify move field declaration from designer file to code-behind file.

    '''</remarks>

    Protected WithEvents txtPageNo As Global.System.Web.UI.WebControls.TextBox

    

    '''<summary>

    '''UploadButton control.

    '''</summary>

    '''<remarks>

    '''Auto-generated field.

    '''To modify move field declaration from designer file to code-behind file.

    '''</remarks>

    Protected WithEvents UploadButton As Global.System.Web.UI.WebControls.Button

    

    '''<summary>

    '''UploadStatusLabel control.

    '''</summary>

    '''<remarks>

    '''Auto-generated field.

    '''To modify move field declaration from designer file to code-behind file.

    '''</remarks>

    Protected WithEvents UploadStatusLabel As Global.System.Web.UI.WebControls.Label

    

    '''<summary>

    '''ListBox1 control.

    '''</summary>

    '''<remarks>

    '''Auto-generated field.

    '''To modify move field declaration from designer file to code-behind file.

    '''</remarks>

    Protected WithEvents ListBox1 As Global.System.Web.UI.WebControls.ListBox

End Class


Default.aspx.vb
Imports Bytescout.BarCodeReader


Public Partial Class _Default
    Inherits Web.UI.Page

    ' IF YOU SEE TEMPORARY FOLDER ACCESS ERRORS: 

    ' Temporary folder access is required for web application when you use ByteScout SDK in it.
    ' If you are getting errors related to the access to temporary folder like "Access to the path 'C:\Windows\TEMP\... is denied" then you need to add permission for this temporary folder to make ByteScout SDK working on that machine and IIS configuration because ByteScout SDK requires access to temp folder to cache some of its data for more efficient work.

    ' SOLUTION:

    ' If your IIS Application Pool has "Load User Profile" option enabled the IIS provides access to user's temp folder. Check user's temporary folder

    ' If you are running Web Application under an impersonated account or IIS_IUSRS group, IIS may redirect all requests into separate temp folder like "c:\temp\".

    ' In this case
    ' - check the User or User Group your web application is running under
    ' - then add permissions for this User or User Group to read and write into that temp folder (c:\temp or c:\windows\temp\ folder)
    ' - restart your web application and try again

    Protected Sub UploadButton_Click(ByVal sender As Object, ByVal e As EventArgs)
        Dim savePath As String = "\uploads\"

        If FileUpload1.HasFile Then
            Dim fileName As [String] = FileUpload1.FileName
            savePath += fileName
            FileUpload1.SaveAs(Server.MapPath(savePath))

            Dim barcodeReader As New Reader()

            ' Limit search to 1D barcodes only (exclude 2D barcodes to speed up the search).
			' Change to barcodeReader.BarcodeTypesToFind.SetAll() to scan for all supported 1D and 2D barcodes 
			' or select specific type, e.g. barcodeReader.BarcodeTypesToFind.PDF417 = True
			barcodeReader.BarcodeTypesToFind.SetAll1D()

            'reader.MediumTrustLevelCompatible = true ' uncomment this line to enable Medium Trust compatible mode (slows down the recognition process as direct image data access is disabled in Medium Trust mode)

            ' Page No to read
            Dim PageNoToRead As Integer = Convert.ToInt32(txtPageNo.Text)

            UploadStatusLabel.Visible = False
            ListBox1.Items.Clear()
            ListBox1.Visible = True

            ListBox1.Items.Add("Reading barcode(s) from file """ + fileName + ", Page No:" + PageNoToRead.ToString())

            ' Reading barcode from document on page-by-page basic
            Dim barcodes As FoundBarcode() = barcodeReader.ReadFrom(Server.MapPath(savePath), (PageNoToRead - 1))

            If barcodes.Length = 0 Then
                ListBox1.Items.Add("No barcodes found")
            Else
                For Each barcode As FoundBarcode In barcodes
                    ListBox1.Items.Add(String.Format("Found barcode - Type: '{0}', Value: '{1}', Position: '{2}'", barcode.Type, barcode.Value, barcode.Rect.ToString()))
                Next
            End If

        Else
            ' Notify the user that a file was not uploaded.
            UploadStatusLabel.Text = "You did not specify a file to upload."
        End If
    End Sub
End Class

Download Source Code (.zip)

Return to the previous page Explore BarCode Reader SDK


Copyright © 2016 - 2021 ByteScout