Re: VB.NET READ BAR CODE Error

#1 Posted : Tuesday, January 30, 2007 1:01:08 AM(UTC)

pramarn

Groups: Registered
Posts: 4

Please help

I use VB.net and Leadtools V14.5 use .net class

I develop Read barcode module when i run debug program it show this error

please see

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

Dim nRet As Int32

Dim strBarMsg As String

Dim i As Int16

LEADBarCode = New AxLTBARLib.AxLEADBarCode

With LEADBarCode

.UnlockSupport(LEADLib.SupportLockConstants.L_SUPPORT_BARCODES_1D, "") <--- This Error Line

Dim ocxBitmap As IntPtr

ocxBitmap = RasterImageConverter.ToLeadBitmap(_viewer.Image, "LTR14N.DLL")

.Bitmap = ocxBitmap.ToInt32()

.EnableMethodErrors = False

.EnableUseRegion = True

' The Read method will search for all linear barcodes in the bitmap

nRet = .Read(LTBARLib.tagBARCODE_PDF_TYPES.BARCODE_PDF417, 0, 0, 0, 0, 0)

If nRet = 0 Then

strBarMsg = "Total Bar Code Symbols Found =: " + CStr(.TotalCount)

MsgBox(strBarMsg, vbInformation, "Bar Code Count")

For i = 0 To .TotalCount - 1

DisplayBarCodeInfo(i)

strBarMsg = "Error occurred in the Read method. Error No. = " + CStr(nRet)

MsgBox(strBarMsg, vbCritical, "Error!")

End If

.Bitmap = 0 ' release the reference to the bitmap

End With

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

How to fix this error

Thank you

pramarn attached the following image(s):

#2 Posted : Tuesday, January 30, 2007 11:45:05 PM(UTC)

Bashar

Groups: Guests
Posts: 3,022

Was thanked: 2 time(s) in 2 post(s)

The barcode OCX was probably not created successfully. Attached is a VB.NET sample that works on my end.

File Attachment(s):

VBNetBarcode.zip (389kb) downloaded 31 time(s).


	Try the latest version of LEADTOOLS for free for 60 days by downloading the evaluation: https://www.leadtools.com/downloads Wanna join the discussion? Login to your LEADTOOLS Support account or Register a new forum account.