Detecting & Reading barcodes from PDF

[Loïc]

Hi,

Here a sample to detect & read all barcode of a PDF using GdPicture Pro Imaging SDK.

Note: This sample work with PDF and all king of image supported by the toolkit.

Code: Select all

 Dim oImaging As Object, oGdViewer As Object
 Dim i As Integer
 Set oImaging = CreateObject("gdpicturepro5.Imaging")
 Set oGdViewer = CreateObject("gdpicturepro5.GdViewer")

 
 oGdViewer.SetLicenseNumber ("XXXX") 'Please, replace XXXX by a valid demo or commercial license key.
 oImaging.SetLicenseNumber ("XXXX") 'Please, replace XXXX by a valid demo or commercial license key.
 oImaging.SetLicenseNumber1DBarcodeRecognition ("XXXX") 'Please, replace XXXX by a valid demo or commercial license key.
 
 oGdViewer.DisplayFromPdfFile ("c:\test.pdf")
 oImaging.SetNativeImage (oGdViewer.GetNativeImage)
 oImaging.ConvertTo1Bpp 'Should provide best accuracy in 1bpp mode. 
 oImaging.Barcode1DReaderDoScan (BestQuality)
 For i = 1 To oImaging.Barcode1DReaderGetBarcodeCount
    MsgBox "Value: " + oImaging.Barcode1DReaderGetBarcodeValue(i)
    MsgBox "Type: " + Str(oImaging.Barcode1DReaderGetBarcodeType(i))
    MsgBox "Angle: " + Str(oImaging.Barcode1DReaderGetBarcodeSkewAngle(i))
 Next i
 oImaging.Barcode1DReaderClear
 oGdViewer.CloseImage

[ditte]

Hi Loïc,

I´ve tested this sample with a demo pdf file "test.pdf".
There are 9 Barcodes included.
I think that the solution is good. I will send it by mail.