Juliemac
|
ASP VB Barcode Image from Font not Scanning
We are trying to generate a Code 128 Barcode with the Universal Barcode Font. The codebase is ASP/VB.
I am reading the string submitted. Parsing it out and multiplying the ASCII value by the index. Totaling the hash and dividing it, then creating the return string. But... It's not creating an image that can be scanned. New to bar codes so ANY help would be appreciated! I left the return remarks in so the building of the return string can be seen.
<ASP/VB code>
Using bitMap As New Bitmap(barCode.Length * 15, 80)
Using graphics__1 As Graphics = Graphics.FromImage(bitMap)
Dim oFont As New Font("IDAutomationC128XXL", 11)
Dim point As New PointF(2.0F, 2.0F)
Dim blackBrush As New SolidBrush(Color.Black)
Dim whiteBrush As New SolidBrush(Color.White)
Dim BCT = Trim(barCode) 'clean string
Dim BC1 = len(BCT) 'length of the string
Dim BCS 'segment (via index of string)
Dim BCR 'return
Dim BCH 'Hash of the string
For I = 1 To BC1
BCS = (ASC(MID(BCT, I))) * I
BCH = BCH + BCS
BCR = BCR & BCS
'response.write(I & " + " & MID(BCT, I) & "<br>") '& " - " & BCR & "<br>")
response.write(Chr(203) & " " & BCR & " " & BCH & " " & Chr(206) & "<br>")
BCS = ""
Next
BCH = (BCH Mod 103)
response.write("<BR><BR><BR>" & BCR & "-" & BC1 & "-" & BCH)
graphics__1.FillRectangle(whiteBrush, 0, 0, bitMap.Width, bitMap.Height)
graphics__1.DrawString(Chr(203) & BCR & BCH & Chr(206), oFont, blackBrush, point)
' graphics__1.DrawString(Trim(barCode), oFont, blackBrush, point)
End Using
Using ms As New MemoryStream()
bitMap.Save(ms, ImageFormat.Png)
imgBarcode.ImageUrl = "data:image/png;base64," & Convert.ToBase64String(ms.ToArray())
imgBarcode.Visible = True
End Using
End Using
</end code>
Operating System:
Windows
Application:
visual studio
01-11-22  2.8 year(s) ago
 Report Abuse
|
Email this question link to friends 
My Profile 
