Generate Barcode in VB Non-Visual class - ASP.NET
BarCode SDK sample in ASP.NET demonstrating ‘Generate Barcode in VB Non-Visual class’
Default.aspx
<%@ Page Language="VB" AutoEventWireup="false" CodeFile="Default.aspx.vb" Inherits="_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>Untitled Page</title>
</head>
<body>
<form id="form1" runat="server">
<div>
</div>
</form>
</body>
</html>
Default.aspx.vb
Imports System.Drawing.Imaging
Imports Bytescout.BarCode
Partial Class _Default
Inherits System.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 Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
' Create new barcode
Dim barcode As New Barcode()
' Set symbology
barcode.Symbology = SymbologyType.Code39
' Set value
barcode.Value = "Sample"
' Clear http output
Response.Clear()
' Set the content type to PNG
Response.ContentType = "image/png"
' Add content type header
Response.AddHeader("Content-Type", "image/png")
' Set the content disposition
Response.AddHeader("Content-Disposition", "inline;filename=result.png")
' Save image to output stream
barcode.SaveImage(Response.OutputStream, ImageFormat.Png)
' End response
Response.End()
End Sub
End Class