Read barcodes from a multi-page file or stream

In these examples 1D barcodes (Code39 and Code128) are read. To see how to read 2D and postal barcode click here.

Table of contents

Read barcodes from a multi-page file
Read barcodes from stream object
Read barcodes from multiple files using threads

Read barcodes from a multi-page file

The following examples demonstrate how to read all the barcodes of a selected type from each page of a multi-page TIF or PDF file. See examples above for details of reader configuration and result processing.
The .NET API includes functions that process all pages in the entire file with one invocation, while the COM API requires the application to iterate explicitly through each page of the file.

C#





		
		
			
			

			
			using Inlite.ClearImageNet;
// . . .
void  ReadBarcode1DfromFile (string fileName)
    {
    try {
		BarcodeReader reader = new BarcodeReader();
			// Select barcode type(s) to read
		reader.Code39 = true; reader.Code128 = true;
		Barcode[] barcodes = reader.Read(fileName);
			// Process results
		foreach (Barcode bc in barcodes)
			{Console.WriteLine(bc.Text  + 
				" in file:" + bc.File + " page: " + bc.Page.ToString());}}   
	catch (Exception ex)
		{ProcessException (ex);}
	}
			
				
					
				
					1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
				
						using Inlite.ClearImageNet;
// . . .
void  ReadBarcode1DfromFile (string fileName)
    {
    try {
		BarcodeReader reader = new BarcodeReader();
			// Select barcode type(s) to read
		reader.Code39 = true; reader.Code128 = true;
		Barcode[] barcodes = reader.Read(fileName);
			// Process results
		foreach (Barcode bc in barcodes)
			{Console.WriteLine(bc.Text  + 
				" in file:" + bc.File + " page: " + bc.Page.ToString());}}   
	catch (Exception ex)
		{ProcessException (ex);}
	}

VB





		
		
			
			

			
			Imports Inlite.ClearImageNet
' . . .
Sub ReadBarcode1DformFile(ByVal fileName As String) 
    Try
		Dim reader As New BarcodeReader()
			' Select barcode type(s) to read
		reader.Code128 = True
		reader.Code39 = True
		Dim barcodes As Barcode() = reader.Read(fileName)
			' Process results
		For Each bc As Barcode In barcodes
		    Console.Write(bc.Text + _
			  " in file:" + bc.File & " page: " & bc.Page.ToString())
		Next
    Catch ex As Exception
	    ProcessException(ex)
    End Try
End Sub
			
				
					
				
					1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
				
						Imports Inlite.ClearImageNet
' . . .
Sub ReadBarcode1DformFile(ByVal fileName As String) 
    Try
		Dim reader As New BarcodeReader()
			' Select barcode type(s) to read
		reader.Code128 = True
		reader.Code39 = True
		Dim barcodes As Barcode() = reader.Read(fileName)
			' Process results
		For Each bc As Barcode In barcodes
		    Console.Write(bc.Text + _
			  " in file:" + bc.File & " page: " & bc.Page.ToString())
		Next
    Catch ex As Exception
	    ProcessException(ex)
    End Try
End Sub

C++





		
		
			
			

			
			void ReadBarcode1DfromFile (const char *fileName)
	{
	try {
			// configure reader
		ICiBarcodeProPtr reader =  Ci->CreateBarcodePro ();
		reader->Type = (FBarcodeType) (cibfCode39 | cibfCode128);
		int page = 1;
		while (true) {
				// open file page
			reader->Image->Open (_bstr_t(fileName), page);
				// read barcodes
			reader->Find(0);
				// process results
			for (int i = 1 ; i <= reader->Barcodes->Count ; i++)
				ProcessBarcode (reader->Barcodes->Item[i]);
				// got to the next page
			page++;	if (page > reader->Image->PageCount) break;
			}
		}
	catch (_com_error &ex)
		{ProcessException(ex);}
	}
			
				
					
				
					1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
				
						void ReadBarcode1DfromFile (const char *fileName)
	{
	try {
			// configure reader
		ICiBarcodeProPtr reader =  Ci->CreateBarcodePro ();
		reader->Type = (FBarcodeType) (cibfCode39 | cibfCode128);
		int page = 1;
		while (true) {
				// open file page
			reader->Image->Open (_bstr_t(fileName), page);
				// read barcodes
			reader->Find(0);
				// process results
			for (int i = 1 ; i <= reader->Barcodes->Count ; i++)
				ProcessBarcode (reader->Barcodes->Item[i]);
				// got to the next page
			page++;	if (page > reader->Image->PageCount) break;
			}
		}
	catch (_com_error &ex)
		{ProcessException(ex);}
	}

Java





		
		
			
			

			
			void ReadBarcode1DfromFile(String fileName) {
	try {
		// Create and configure barcode reader
		ICiBarcodePro reader = Ci.CreateBarcodePro();
		reader.setType(new FBarcodeType(FBarcodeType.cibfCode39,
				FBarcodeType.cibfCode128)); // Multiple types
		int page = 1;
		while (true) {
			// Open Image file
			reader.getImage().Open(fileName, page);
			// Read barcodes
			reader.Find(0);
			// Process results
			for (int i = 1; i <= reader.getBarcodes().getCount(); i++) {
				ICiBarcode Bc = reader.getBarcodes().getItem(i);
				System.out.println(Bc.getText()); // Use text value OR
				ProcessBarcode(Bc); // do other processing
			}
			page++;
			if (page > reader.getImage().getPageCount())
				break;
		}
	} catch (Exception ex) {
		ProcessException(ex);
	} finally { // Collect garbage periodically to release JNI-managed objects
		System.gc();
	}
}
			
				
					
				
					1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
				
						void ReadBarcode1DfromFile(String fileName) {
	try {
		// Create and configure barcode reader
		ICiBarcodePro reader = Ci.CreateBarcodePro();
		reader.setType(new FBarcodeType(FBarcodeType.cibfCode39,
				FBarcodeType.cibfCode128)); // Multiple types
		int page = 1;
		while (true) {
			// Open Image file
			reader.getImage().Open(fileName, page);
			// Read barcodes
			reader.Find(0);
			// Process results
			for (int i = 1; i <= reader.getBarcodes().getCount(); i++) {
				ICiBarcode Bc = reader.getBarcodes().getItem(i);
				System.out.println(Bc.getText()); // Use text value OR
				ProcessBarcode(Bc); // do other processing
			}
			page++;
			if (page > reader.getImage().getPageCount())
				break;
		}
	} catch (Exception ex) {
		ProcessException(ex);
	} finally { // Collect garbage periodically to release JNI-managed objects
		System.gc();
	}
}

PHP





		
		
			
			

			
			function ReadBarcode1DfromFile ($fileName)
{
	// Create ClearImage COM Server
	$Ci = new COM("ClearImage.ClearImage");
	// Creare and configure barcode reader
	$reader = $Ci->CreateBarcodePro();
	$cibfCode39 = 2; $cibfCode128 = 4;
	$reader->Type = $cibfCode39 + $cibfCode128;
	$page=1;
	while(true)	{
	//  Open image file
	$reader->Image->Open($fileName, $page); 
	// Read barcodes
	$BCcount = $reader->Find(0);
	// Process Results
	for ($i=1;$i<=$BCcount;$i++) {
		$Bc = $reader->BarCodes($i);
		$Bc = $reader->BarCodes($i);
		echo "$Bc->Text<br>";
		}
	$page++; if ($page >  $reader->Image->PageCount)	break;
	}
}
			
				
					
				
					1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
				
						function ReadBarcode1DfromFile ($fileName)
{
	// Create ClearImage COM Server
	$Ci = new COM("ClearImage.ClearImage");
	// Creare and configure barcode reader
	$reader = $Ci->CreateBarcodePro();
	$cibfCode39 = 2; $cibfCode128 = 4;
	$reader->Type = $cibfCode39 + $cibfCode128;
	$page=1;
	while(true)	{
	//  Open image file
	$reader->Image->Open($fileName, $page); 
	// Read barcodes
	$BCcount = $reader->Find(0);
	// Process Results
	for ($i=1;$i<=$BCcount;$i++) {
		$Bc = $reader->BarCodes($i);
		$Bc = $reader->BarCodes($i);
		echo "$Bc->Text<br>";
		}
	$page++; if ($page >  $reader->Image->PageCount)	break;
	}
}

Delphi





		
		
			
			

			
			procedure  ReadBarcode1DfromFile(const fileName: string);
	var
	Ci: ICiServer;
	reader: ICiBarcodePro;
	i: integer;
	page: integer;
	begin
	try
	  try
		begin
			 //Create and configure reader
		  Ci:=CoCiServer.Create;
		  reader:=Ci.CreateBarcodePro;
		  reader.Type_:=cibCode39 or cibCode128;
		  page:=1;
		  while true  do;
		  begin
			reader.Image.Open(fileName, page);
			 // Read barcodes
			reader.Find(0);
			 // Process results
			for i := 1 to reader.Barcodes.Count do
			begin
			  ShowMessage(reader.Barcodes.Item[i].Text) ;
			end;
			page := page + 1;
			if (page > reader.Image.PageCount) then Break;
		  end;
		end
	  except
	   on E:Exception do    //Process errors
		   ShowMessage(Format('Error:%s.File:%s', [E.Message,FileName]));
	  end
	finally
	end
	end;
			
				
					
				
					1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
				
						procedure  ReadBarcode1DfromFile(const fileName: string);
	var
	Ci: ICiServer;
	reader: ICiBarcodePro;
	i: integer;
	page: integer;
	begin
	try
	  try
		begin
			 //Create and configure reader
		  Ci:=CoCiServer.Create;
		  reader:=Ci.CreateBarcodePro;
		  reader.Type_:=cibCode39 or cibCode128;
		  page:=1;
		  while true  do;
		  begin
			reader.Image.Open(fileName, page);
			 // Read barcodes
			reader.Find(0);
			 // Process results
			for i := 1 to reader.Barcodes.Count do
			begin
			  ShowMessage(reader.Barcodes.Item[i].Text) ;
			end;
			page := page + 1;
			if (page > reader.Image.PageCount) then Break;
		  end;
		end
	  except
	   on E:Exception do    //Process errors
		   ShowMessage(Format('Error:%s.File:%s', [E.Message,FileName]));
	  end
	finally
	end
	end;

VBScript/ASP





		
		
			
			

			
			Sub ReadBarcode1DfromFile(fileName) 
  On Error Resume Next
      'Create CiServer object: 
  Set Ci = CreateObject("ClearImage.ClearImage") 
  	  ' Create and configure reader
  Set reader = Ci.CreateBarcodePro 
 	 If Err.Number <> 0 Then WScript.Echo Err.Description : Exit Sub
  cibfCode39 = 2: cibfCode128 = 4: 
  reader.Type = cibfCode39 + cibfCode128
  page = 1
  do
		  ' Open Image
	  reader.Image.Open fileName, page 
		 If Err.Number <> 0 Then WScript.Echo Err.Description : Exit Sub
		  ' Read barcodes
	  reader.Find 0
		 If Err.Number <> 0 Then WScript.Echo Err.Description : Exit Sub
		  ' Process results
	  For Each Barcode In reader.Barcodes 
		 WScript.Echo Barcode.Text 
	  Next 
	  page = page + 1
	  if (page > reader.Image.PageCount) Then Exit Do
  Loop
End Sub 
			
				
					
				
					1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
				
						Sub ReadBarcode1DfromFile(fileName) 
  On Error Resume Next
      'Create CiServer object: 
  Set Ci = CreateObject("ClearImage.ClearImage") 
  	  ' Create and configure reader
  Set reader = Ci.CreateBarcodePro 
 	 If Err.Number <> 0 Then WScript.Echo Err.Description : Exit Sub
  cibfCode39 = 2: cibfCode128 = 4: 
  reader.Type = cibfCode39 + cibfCode128
  page = 1
  do
		  ' Open Image
	  reader.Image.Open fileName, page 
		 If Err.Number <> 0 Then WScript.Echo Err.Description : Exit Sub
		  ' Read barcodes
	  reader.Find 0
		 If Err.Number <> 0 Then WScript.Echo Err.Description : Exit Sub
		  ' Process results
	  For Each Barcode In reader.Barcodes 
		 WScript.Echo Barcode.Text 
	  Next 
	  page = page + 1
	  if (page > reader.Image.PageCount) Then Exit Do
  Loop
End Sub

to Top

Read barcodes from stream object

These .NET examples demonstrate how to read a barcode from an image in a stream. Using streams allow the application to directly process database-stored images without using the windows file system as an intermediate storage facility. The COM API does NOT support streams.

C#





		
		
			
			

			
			using Inlite.ClearImageNet;
// . . .
void  ReadBarcode1DfromStream (Stream stream)
    {
    try {
		BarcodeReader reader = new BarcodeReader();
			// Select barcode type(s) to read
		reader.Code39 = true; reader.Code128 = true;
		Barcode[] barcodes = reader.Read(stream);
			// Process results
		foreach (Barcode bc in barcodes)
			{Console.Write(bc.Text  + " page: " + bc.Page.ToString());}  
	   }
	catch (Exception ex)
		{ProcessException (ex);}
	}
			
				
					
				
					1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
				
						using Inlite.ClearImageNet;
// . . .
void  ReadBarcode1DfromStream (Stream stream)
    {
    try {
		BarcodeReader reader = new BarcodeReader();
			// Select barcode type(s) to read
		reader.Code39 = true; reader.Code128 = true;
		Barcode[] barcodes = reader.Read(stream);
			// Process results
		foreach (Barcode bc in barcodes)
			{Console.Write(bc.Text  + " page: " + bc.Page.ToString());}  
	   }
	catch (Exception ex)
		{ProcessException (ex);}
	}

VB





		
		
			
			

			
			Imports Inlite.ClearImageNet
' . . .
Private Sub ReadBarcode1DfromStream(stream As Stream)
	Try
		Dim reader As New BarcodeReader()
		' Select barcode type(s) to read
		reader.Code39 = True
		reader.Code128 = True
		Dim barcodes As Barcode() = reader.Read(stream)
		' Process results
		For Each bc As Barcode In barcodes
			Console.Write(bc.Text + " page: " & bc.Page.ToString())
		Next
	Catch ex As Exception
		ProcessException(ex)
	End Try
End Sub
			
				
					
				
					1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
				
						Imports Inlite.ClearImageNet
' . . .
Private Sub ReadBarcode1DfromStream(stream As Stream)
	Try
		Dim reader As New BarcodeReader()
		' Select barcode type(s) to read
		reader.Code39 = True
		reader.Code128 = True
		Dim barcodes As Barcode() = reader.Read(stream)
		' Process results
		For Each bc As Barcode In barcodes
			Console.Write(bc.Text + " page: " & bc.Page.ToString())
		Next
	Catch ex As Exception
		ProcessException(ex)
	End Try
End Sub

to Top

Read barcodes from multiple files using threads

Executing the barcode recognition activities on multiple threads allows the application to utilize greater computational power, on the basis of one thread per available core. This sophisticated and more difficult technique is particularly valuable in server-based systems, which process a large volume of image files. See the code examples in the “Working with Threads” page.

to Top