Read Barcodes From PDF - ASP.NET VB
BarCode Reader SDK sample in ASP.NET VB demonstrating ‘Read Barcodes From PDF’
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 document<br />
<asp:FileUpload ID="FileUpload1" runat="server" /><br />
<br />
<asp:Button id="UploadButton"
Text="Upload file"
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
��' - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
' < a u t o - g e n e r a t e d >
' T h i s c o d e w a s g e n e r a t e d b y a t o o l .
' R u n t i m e V e r s i o n : 2 . 0 . 5 0 7 2 7 . 4 9 2 7
'
' C h a n g e s t o t h i s f i l e m a y c a u s e i n c o r r e c t b e h a v i o r a n d w i l l b e l o s t i f
' t h e c o d e i s r e g e n e r a t e d .
' < / a u t o - g e n e r a t e d >
' - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
' ' ' < s u m m a r y >
' ' ' _ D e f a u l t c l a s s .
' ' ' < / s u m m a r y >
' ' ' < r e m a r k s >
' ' ' A u t o - g e n e r a t e d c l a s s .
' ' ' < / r e m a r k s >
P u b l i c P a r t i a l C l a s s _ D e f a u l t
' ' ' < s u m m a r y >
' ' ' f o r m 1 c o n t r o l .
' ' ' < / s u m m a r y >
' ' ' < r e m a r k s >
' ' ' A u t o - g e n e r a t e d f i e l d .
' ' ' T o m o d i f y m o v e f i e l d d e c l a r a t i o n f r o m d e s i g n e r f i l e t o c o d e - b e h i n d f i l e .
' ' ' < / r e m a r k s >
P r o t e c t e d f o r m 1 A s G l o b a l . S y s t e m . W e b . U I . H t m l C o n t r o l s . H t m l F o r m
' ' ' < s u m m a r y >
' ' ' F i l e U p l o a d 1 c o n t r o l .
' ' ' < / s u m m a r y >
' ' ' < r e m a r k s >
' ' ' A u t o - g e n e r a t e d f i e l d .
' ' ' T o m o d i f y m o v e f i e l d d e c l a r a t i o n f r o m d e s i g n e r f i l e t o c o d e - b e h i n d f i l e .
' ' ' < / r e m a r k s >
P r o t e c t e d F i l e U p l o a d 1 A s G l o b a l . S y s t e m . W e b . U I . W e b C o n t r o l s . F i l e U p l o a d
' ' ' < s u m m a r y >
' ' ' U p l o a d B u t t o n c o n t r o l .
' ' ' < / s u m m a r y >
' ' ' < r e m a r k s >
' ' ' A u t o - g e n e r a t e d f i e l d .
' ' ' T o m o d i f y m o v e f i e l d d e c l a r a t i o n f r o m d e s i g n e r f i l e t o c o d e - b e h i n d f i l e .
' ' ' < / r e m a r k s >
P r o t e c t e d U p l o a d B u t t o n A s G l o b a l . S y s t e m . W e b . U I . W e b C o n t r o l s . B u t t o n
' ' ' < s u m m a r y >
' ' ' U p l o a d S t a t u s L a b e l c o n t r o l .
' ' ' < / s u m m a r y >
' ' ' < r e m a r k s >
' ' ' A u t o - g e n e r a t e d f i e l d .
' ' ' T o m o d i f y m o v e f i e l d d e c l a r a t i o n f r o m d e s i g n e r f i l e t o c o d e - b e h i n d f i l e .
' ' ' < / r e m a r k s >
P r o t e c t e d U p l o a d S t a t u s L a b e l A s G l o b a l . S y s t e m . W e b . U I . W e b C o n t r o l s . L a b e l
' ' ' < s u m m a r y >
' ' ' L i s t B o x 1 c o n t r o l .
' ' ' < / s u m m a r y >
' ' ' < r e m a r k s >
' ' ' A u t o - g e n e r a t e d f i e l d .
' ' ' T o m o d i f y m o v e f i e l d d e c l a r a t i o n f r o m d e s i g n e r f i l e t o c o d e - b e h i n d f i l e .
' ' ' < / r e m a r k s >
P r o t e c t e d L i s t B o x 1 A s G l o b a l . S y s t e m . W e b . U I . W e b C o n t r o l s . L i s t B o x
E n d C l a s s
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)
UploadStatusLabel.Visible = False
ListBox1.Items.Clear()
ListBox1.Visible = True
ListBox1.Items.Add("Reading barcode(s) from PDF file """ + fileName + """")
Dim barcodes As FoundBarcode() = barcodeReader.ReadFrom(Server.MapPath(savePath))
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 with type '{0}' and value '{1}' at page {2} at {3}", barcode.Type, barcode.Value, barcode.Page, 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