Repair image – Inlite Knowledge Base

Table of contents

Overview
Repair image page
Repair images in multi-page file
Repair images in a stream

Overview

Numerous image processing functions offered by ClearImage help to:

Improve the quality and reduce the size of compressed image files
Prepare image for better visual representation on the Web or in an application.
Improve OCR/ICR reading rate
Enable the reading of severely flawed or poor quality barcodes by ClearImage barcode readers

The following examples demonstrate the use of the most popular image processing function. These are merely examples for demonstrating the use of the functions, and do not represent actual production examples. In a production application the specific sequence of functions should be selected based on specific application needs. The ClearImage Demo application offers scripting specifically to support the experimentation and selection process with real life images:

Use the Repair menu to try particular functions and parameters
Use the Script menu to build a sequence of functions for easy testing with multiple image files
Use the File menu -> "Open Sample Script and Image …" to see how some of the most popular functions work

Repair image page

C#





		
		
			
			

			
			using Inlite.ClearImageNet;
// . . .        
void RepairPage(ImageEditor editor)
{
	editor.AutoDeskew();
	editor.AutoRotate();
	editor.AutoCrop(10, 10, 10, 10);     // Crop to 10 pixels on each side to bitonal
	// editor.AdvancedBinarize();        // Convert to bitonal an image with complex background patterns
	editor.ToBitonal();
	editor.BorderExtract(BorderExtractMode.deskewCrop); // Deskew and crop based on black border
	editor.RemovePunchHoles();
	editor.SmoothCharacters();
	editor.CleanNoise(3);               // Clean balck noise of 3 pixels
	// editor.CleanNoise                // Clean black and white noise
	//    (CleanNoiseFlags.black | CleanNoiseFlags.white, 3, 3, 10); 
	editor.ReconstructLines(LineDirection.horzAndVert);
}

void Repair_image(string fileName, int page, string fileOut)
{
	try
	{
		ImageEditor editor = new ImageEditor();
		editor.Image.Open(fileName, page);
		// Do image reapir
		RepairPage(editor);
		// Save results
        editor.Image.SaveAs(fileOut, Inlite.ClearImage.EFileFormat.ciEXT);
		// To Save results in multi-page TIFF or PDF file use
        // editor.Image.Append(fileOut, Inlite.ClearImage.EFileFormat.ciEXT);
	}
	catch (Exception 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
23
24
25
26
27
28
29
30
31
32
33
34
				
						using Inlite.ClearImageNet;
// . . .        
void RepairPage(ImageEditor editor)
{
	editor.AutoDeskew();
	editor.AutoRotate();
	editor.AutoCrop(10, 10, 10, 10);     // Crop to 10 pixels on each side to bitonal
	// editor.AdvancedBinarize();        // Convert to bitonal an image with complex background patterns
	editor.ToBitonal();
	editor.BorderExtract(BorderExtractMode.deskewCrop); // Deskew and crop based on black border
	editor.RemovePunchHoles();
	editor.SmoothCharacters();
	editor.CleanNoise(3);               // Clean balck noise of 3 pixels
	// editor.CleanNoise                // Clean black and white noise
	//    (CleanNoiseFlags.black | CleanNoiseFlags.white, 3, 3, 10); 
	editor.ReconstructLines(LineDirection.horzAndVert);
}
 
void Repair_image(string fileName, int page, string fileOut)
{
	try
	{
		ImageEditor editor = new ImageEditor();
		editor.Image.Open(fileName, page);
		// Do image reapir
		RepairPage(editor);
		// Save results
        editor.Image.SaveAs(fileOut, Inlite.ClearImage.EFileFormat.ciEXT);
		// To Save results in multi-page TIFF or PDF file use
        // editor.Image.Append(fileOut, Inlite.ClearImage.EFileFormat.ciEXT);
	}
	catch (Exception ex)
	{ ProcessException(ex); }
}

VB





		
		
			
			

			
			Imports Inlite.ClearImageNet
' . . .    
Sub RepairPage(editor As ImageEditor)
	editor.AutoDeskew()
	editor.AutoRotate()
	editor.AutoCrop(10, 10, 10, 10)
	' Crop to 10 pixels on each side to bitonal
	' editor.AdvancedBinarize();        // Convert to bitonal an image with complex background patterns
	editor.ToBitonal()
	editor.BorderExtract(BorderExtractMode.deskewCrop)
	' Deskew and crop based on black border
	editor.RemovePunchHoles()
	editor.SmoothCharacters()
	editor.CleanNoise(3)
	' Clean balck noise of 3 pixels
	' editor.CleanNoise                // Clean black and white noise
	'    (CleanNoiseFlags.black | CleanNoiseFlags.white, 3, 3, 10); 
	editor.ReconstructLines(LineDirection.horzAndVert)
End Sub

Sub Repair_image(fileName As String, page As Integer, fileOut As String )
	Try
		Dim editor As New ImageEditor()
		editor.Image.Open(fileName, page)
		' Do image reapir
		RepairPage(editor)
		' Save results
        editor.Image.SaveAs(fileOut, Inlite.ClearImage.EFileFormat.ciEXT)
		' To Save results in multi-page TIFF or PDF file use
        ' editor.Image.Append(fileOut, Inlite.ClearImage.EFileFormat.ciEXT)
		
	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
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
				
						Imports Inlite.ClearImageNet
' . . .    
Sub RepairPage(editor As ImageEditor)
	editor.AutoDeskew()
	editor.AutoRotate()
	editor.AutoCrop(10, 10, 10, 10)
	' Crop to 10 pixels on each side to bitonal
	' editor.AdvancedBinarize();        // Convert to bitonal an image with complex background patterns
	editor.ToBitonal()
	editor.BorderExtract(BorderExtractMode.deskewCrop)
	' Deskew and crop based on black border
	editor.RemovePunchHoles()
	editor.SmoothCharacters()
	editor.CleanNoise(3)
	' Clean balck noise of 3 pixels
	' editor.CleanNoise                // Clean black and white noise
	'    (CleanNoiseFlags.black | CleanNoiseFlags.white, 3, 3, 10); 
	editor.ReconstructLines(LineDirection.horzAndVert)
End Sub
 
Sub Repair_image(fileName As String, page As Integer, fileOut As String )
	Try
		Dim editor As New ImageEditor()
		editor.Image.Open(fileName, page)
		' Do image reapir
		RepairPage(editor)
		' Save results
        editor.Image.SaveAs(fileOut, Inlite.ClearImage.EFileFormat.ciEXT)
		' To Save results in multi-page TIFF or PDF file use
        ' editor.Image.Append(fileOut, Inlite.ClearImage.EFileFormat.ciEXT)
		
	Catch ex As Exception
		ProcessException(ex)
	End Try
End Sub

C++





		
		
			
			

			
			void RepairPage (ICiRepairPtr repair)
	{
	repair->AutoDeskew();
	repair->AutoRotate();
	repair->AutoCrop(10, 10, 10, 10);   // Crop to 10 pixels on each side to bitonal
	repair->AdvancedBinarize(0, 0 , 0);        // Convert to bitonal an image with complex background patterns
	repair->BorderExtract(ciBexBorderDeskewCrop, ciBeaCleaner); // Deskew and crop based on black border
	repair->RemovePunchHoles();
	repair->SmoothCharacters();
	repair->CleanNoise(3);               // Clean balck noise of 3 pixels
	//		repair->CleanNoiseExt                // Clean black and white noise
	//		    ((ECleanNoiseFlags) (ciCnxBlackNoise | ciCnxWhiteNoise), 3, 3, 10); 
	repair->ReconstructLines(ciLineVertAndHorz);
	}

void repair_image (const char *fileName, const long page, const char *fileOut)
	{
	try {
		ICiRepairPtr repair = Ci->CreateRepair ();
		repair->Image->Open (_bstr_t(fileName), page);
		RepairPage(repair);
		repair->Image->SaveAs(_bstr_t(fileOut), ciEXT);
		}
	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
23
24
25
26
				
						void RepairPage (ICiRepairPtr repair)
	{
	repair->AutoDeskew();
	repair->AutoRotate();
	repair->AutoCrop(10, 10, 10, 10);   // Crop to 10 pixels on each side to bitonal
	repair->AdvancedBinarize(0, 0 , 0);        // Convert to bitonal an image with complex background patterns
	repair->BorderExtract(ciBexBorderDeskewCrop, ciBeaCleaner); // Deskew and crop based on black border
	repair->RemovePunchHoles();
	repair->SmoothCharacters();
	repair->CleanNoise(3);               // Clean balck noise of 3 pixels
	//		repair->CleanNoiseExt                // Clean black and white noise
	//		    ((ECleanNoiseFlags) (ciCnxBlackNoise | ciCnxWhiteNoise), 3, 3, 10); 
	repair->ReconstructLines(ciLineVertAndHorz);
	}
 
void repair_image (const char *fileName, const long page, const char *fileOut)
	{
	try {
		ICiRepairPtr repair = Ci->CreateRepair ();
		repair->Image->Open (_bstr_t(fileName), page);
		RepairPage(repair);
		repair->Image->SaveAs(_bstr_t(fileOut), ciEXT);
		}
	catch (_com_error &ex)
		{ProcessException(ex);}
	}

Java





		
		
			
			

			
			void RepairPage (ICiRepair repair)
	{
	repair.AutoDeskew();
	repair.AutoRotate();
	repair.AutoCrop(10, 10, 10, 10);   // Crop to 10 pixels on each side to bitonal
	repair.AdvancedBinarize(0, 0 , 0);        // Convert to bitonal an image with complex background patterns
	repair.BorderExtract(EBorderExtractFlags.ciBexBorderDeskewCrop, EBorderExtractAlgorithm.ciBeaCleaner); // Deskew and crop based on black border
	repair.RemovePunchHoles();
	repair.SmoothCharacters(ESmoothType.ciSmoothDarkenEdges);
	repair.CleanNoise(3);               // Clean black noise of 3 pixels
		//	repair.CleanNoiseExt                // Clean black and white noise
		//	  (new ECleanNoiseFlags(ECleanNoiseFlags.ciCnxBlackNoise, ECleanNoiseFlags.ciCnxWhiteNoise), 3, 3, 10, 0); 
	repair.ReconstructLines(ELineDirection.ciLineVertAndHorz);
	}

void repair_image (String fileName, int page, String fileOut)
	{
	try {
		ICiRepair repair = Ci.CreateRepair ();
		repair.getImage().Open (fileName, page);
		RepairPage(repair);
		repair.getImage().SaveAs(fileOut, EFileFormat.ciEXT);
	} 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
29
				
						void RepairPage (ICiRepair repair)
	{
	repair.AutoDeskew();
	repair.AutoRotate();
	repair.AutoCrop(10, 10, 10, 10);   // Crop to 10 pixels on each side to bitonal
	repair.AdvancedBinarize(0, 0 , 0);        // Convert to bitonal an image with complex background patterns
	repair.BorderExtract(EBorderExtractFlags.ciBexBorderDeskewCrop, EBorderExtractAlgorithm.ciBeaCleaner); // Deskew and crop based on black border
	repair.RemovePunchHoles();
	repair.SmoothCharacters(ESmoothType.ciSmoothDarkenEdges);
	repair.CleanNoise(3);               // Clean black noise of 3 pixels
		//	repair.CleanNoiseExt                // Clean black and white noise
		//	  (new ECleanNoiseFlags(ECleanNoiseFlags.ciCnxBlackNoise, ECleanNoiseFlags.ciCnxWhiteNoise), 3, 3, 10, 0); 
	repair.ReconstructLines(ELineDirection.ciLineVertAndHorz);
	}
 
void repair_image (String fileName, int page, String fileOut)
	{
	try {
		ICiRepair repair = Ci.CreateRepair ();
		repair.getImage().Open (fileName, page);
		RepairPage(repair);
		repair.getImage().SaveAs(fileOut, EFileFormat.ciEXT);
	} catch (Exception ex) {
		ProcessException(ex);
	} finally { // Collect garbage periodically to release JNI-managed
				// objects
		System.gc();
	}
	}

PHP





		
		
			
			

			
			function RepairPage ($repair)
{
	$repair->AutoDeskew();
	$repair->AutoRotate();
	$repair->AutoCrop(10, 10, 10, 10);   // Crop to 10 pixels on each side to bitonal
	$repair->AdvancedBinarize(0, 0 , 0);        // Convert to bitonal an image with complex background patterns
	$ciBexBorderDeskewCrop = 3;
	$ciBeaCleaner = 2;
	$repair->BorderExtract($ciBexBorderDeskewCrop, $ciBeaCleaner); // Deskew and crop based on black border
	$repair->RemovePunchHoles();
	$ciSmoothDarkenEdges = 1;
	$repair->SmoothCharacters($ciSmoothDarkenEdges);
	$repair->CleanNoise(3);               // Clean balck noise of 3 pixels
	// $ciCnxBlackNoise = 1; $ciCnxWhiteNoise = 2;
	// $repair->CleanNoiseExt($ciCnxBlackNoise + $ciCnxWhiteNoise, 3, 3, 10, 0); // Clean black and white noise
    $ciLineVertAndHorz = 3;
	$repair->ReconstructLines($ciLineVertAndHorz);
}

function repair_image ($fileName, $page, $fileOut)
{
	try {
		  // Create CiServer object: 
		$Ci = new COM("ClearImage.ClearImage");
  	      // Create and configure repair
		$repair = $Ci->CreateRepair();
		  // Open Image
		$repair->Image->Open($fileName, $page);
		  // Do repair
		RepairPage ($repair);
		  // Save results
		$repair->Image->SaveAs($fileOut, 0);  // ciEXT

	}	catch (Exception $e) { // generic exception handler
		print "<br>\n" . "Exceptiom in line " . $e->getLine();
		print "<br>\n" . $e->getMessage() . "\n<br>";
	}
}
			
				
					
				
					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
37
38
				
						function RepairPage ($repair)
{
	$repair->AutoDeskew();
	$repair->AutoRotate();
	$repair->AutoCrop(10, 10, 10, 10);   // Crop to 10 pixels on each side to bitonal
	$repair->AdvancedBinarize(0, 0 , 0);        // Convert to bitonal an image with complex background patterns
	$ciBexBorderDeskewCrop = 3;
	$ciBeaCleaner = 2;
	$repair->BorderExtract($ciBexBorderDeskewCrop, $ciBeaCleaner); // Deskew and crop based on black border
	$repair->RemovePunchHoles();
	$ciSmoothDarkenEdges = 1;
	$repair->SmoothCharacters($ciSmoothDarkenEdges);
	$repair->CleanNoise(3);               // Clean balck noise of 3 pixels
	// $ciCnxBlackNoise = 1; $ciCnxWhiteNoise = 2;
	// $repair->CleanNoiseExt($ciCnxBlackNoise + $ciCnxWhiteNoise, 3, 3, 10, 0); // Clean black and white noise
    $ciLineVertAndHorz = 3;
	$repair->ReconstructLines($ciLineVertAndHorz);
}
 
function repair_image ($fileName, $page, $fileOut)
{
	try {
		  // Create CiServer object: 
		$Ci = new COM("ClearImage.ClearImage");
  	      // Create and configure repair
		$repair = $Ci->CreateRepair();
		  // Open Image
		$repair->Image->Open($fileName, $page);
		  // Do repair
		RepairPage ($repair);
		  // Save results
		$repair->Image->SaveAs($fileOut, 0);  // ciEXT
 
	}	catch (Exception $e) { // generic exception handler
		print "<br>\n" . "Exceptiom in line " . $e->getLine();
		print "<br>\n" . $e->getMessage() . "\n<br>";
	}
}

Delphi





		
		
			
			

			
			uses                  
   ...,ClearImage_TLB, comobj;
 // . . . 
  procedure  RepairPage (repair: ICiRepair);
  begin
  	repair.AutoDeskew();
  	repair.AutoRotate();
  	repair.AutoCrop(10, 10, 10, 10);   // Crop to 10 pixels on each side to bitonal
  	repair.AdvancedBinarize(0, 0 , 0);        // Convert to bitonal an image with complex background patterns
  	repair.BorderExtract(ciBexBorderDeskewCrop, ciBeaCleaner); // Deskew and crop based on black border
  	repair.RemovePunchHoles();
  	repair.SmoothCharacters(ciSmoothDarkenEdges);
  	repair.CleanNoise(3);               // Clean black noise of 3 pixels
        //	repair.CleanNoiseExt                // Clean black and white noise
		//    (ciCnxBlackNoise + ciCnxWhiteNoise, 3, 3, 10, 0);
  	repair.ReconstructLines(ciLineVertAndHorz);
  end;


  procedure  repair_image (const fileName: string; const page: integer; const fileOut: string);
  var
  Ci: ICiServer;
  repair: ICiRepair;
  begin
    try
      try
        begin
             //Create repair
          Ci:=CoCiServer.Create;
          repair:=Ci.CreateRepair;
          repair.Image.Open(fileName, page);
            // Do repair
          RepairPage(repair);
            // Save results
          repair.Image.SaveAs(fileOut, ciExt);
        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
37
38
39
40
41
42
43
				
						uses                  
   ...,ClearImage_TLB, comobj;
 // . . . 
  procedure  RepairPage (repair: ICiRepair);
  begin
  	repair.AutoDeskew();
  	repair.AutoRotate();
  	repair.AutoCrop(10, 10, 10, 10);   // Crop to 10 pixels on each side to bitonal
  	repair.AdvancedBinarize(0, 0 , 0);        // Convert to bitonal an image with complex background patterns
  	repair.BorderExtract(ciBexBorderDeskewCrop, ciBeaCleaner); // Deskew and crop based on black border
  	repair.RemovePunchHoles();
  	repair.SmoothCharacters(ciSmoothDarkenEdges);
  	repair.CleanNoise(3);               // Clean black noise of 3 pixels
        //	repair.CleanNoiseExt                // Clean black and white noise
		//    (ciCnxBlackNoise + ciCnxWhiteNoise, 3, 3, 10, 0);
  	repair.ReconstructLines(ciLineVertAndHorz);
  end;
 
 
  procedure  repair_image (const fileName: string; const page: integer; const fileOut: string);
  var
  Ci: ICiServer;
  repair: ICiRepair;
  begin
    try
      try
        begin
             //Create repair
          Ci:=CoCiServer.Create;
          repair:=Ci.CreateRepair;
          repair.Image.Open(fileName, page);
            // Do repair
          RepairPage(repair);
            // Save results
          repair.Image.SaveAs(fileOut, ciExt);
        end
      except
       on E:Exception do    //Process errors
           ShowMessage(Format('Error:%s.File:%s', [E.Message,FileName]));
      end
    finally
    end
  end;

VBScript/ASP





		
		
			
			

			
			Sub RepairPage  (repair)
    On Error Resume Next
	repair.AutoDeskew
 	 If Err.Number <> 0 Then WScript.Echo Err.Description : Exit Sub
	repair.AutoRotate
 	 If Err.Number <> 0 Then WScript.Echo Err.Description : Exit Sub
	repair.AutoCrop 10, 10, 10, 10   ' Crop to 10 pixels on each side to bitonal
 	 If Err.Number <> 0 Then WScript.Echo Err.Description : Exit Sub
	repair.AdvancedBinarize 0, 0 , 0        ' Convert to bitonal an image with complex background patterns
 	 If Err.Number <> 0 Then WScript.Echo Err.Description : Exit Sub
	ciBexBorderDeskewCrop = 3
	ciBeaCleaner = 2
	repair.BorderExtract ciBexBorderDeskewCrop, ciBeaCleaner ' Deskew and crop based on black border
 	 If Err.Number <> 0 Then WScript.Echo Err.Description : Exit Sub
	repair.RemovePunchHoles
 	 If Err.Number <> 0 Then WScript.Echo Err.Description : Exit Sub
	ciSmoothDarkenEdges = 1
	repair.SmoothCharacters ciSmoothDarkenEdges
 	 If Err.Number <> 0 Then WScript.Echo Err.Description : Exit Sub
	repair.CleanNoise 3               ' Clean balck noise of 3 pixels
	'   ciCnxBlackNoise = 1: 	ciCnxWhiteNoise = 2
	'		repair.CleanNoiseExt (ciCnxBlackNoise + ciCnxWhiteNoise), 3, 3, 10               ' Clean black and white noise
	ciLineVertAndHorz = 3
	repair.ReconstructLines ciLineVertAndHorz
 	 If Err.Number <> 0 Then WScript.Echo Err.Description : Exit Sub
End Sub

Sub repair_image(fileName, page, fileOut) 
  On Error Resume Next
      'Create CiServer object: 
  Set Ci = CreateObject("ClearImage.ClearImage") 
  	  ' Create and configure repair
  Set repair = Ci.CreateRepair 
 	 If Err.Number <> 0 Then WScript.Echo Err.Description : Exit Sub
	  ' Open Image
  repair.Image.Open fileName, page 
 	 If Err.Number <> 0 Then WScript.Echo Err.Description : Exit Sub
	  ' Do repair
  RepairPage repair
	  ' Save results
  repair.Image.SaveAs fileOut, 0 ' ciEXT 
 	 If Err.Number <> 0 Then WScript.Echo Err.Description : Exit Sub
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
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
				
						Sub RepairPage  (repair)
    On Error Resume Next
	repair.AutoDeskew
 	 If Err.Number <> 0 Then WScript.Echo Err.Description : Exit Sub
	repair.AutoRotate
 	 If Err.Number <> 0 Then WScript.Echo Err.Description : Exit Sub
	repair.AutoCrop 10, 10, 10, 10   ' Crop to 10 pixels on each side to bitonal
 	 If Err.Number <> 0 Then WScript.Echo Err.Description : Exit Sub
	repair.AdvancedBinarize 0, 0 , 0        ' Convert to bitonal an image with complex background patterns
 	 If Err.Number <> 0 Then WScript.Echo Err.Description : Exit Sub
	ciBexBorderDeskewCrop = 3
	ciBeaCleaner = 2
	repair.BorderExtract ciBexBorderDeskewCrop, ciBeaCleaner ' Deskew and crop based on black border
 	 If Err.Number <> 0 Then WScript.Echo Err.Description : Exit Sub
	repair.RemovePunchHoles
 	 If Err.Number <> 0 Then WScript.Echo Err.Description : Exit Sub
	ciSmoothDarkenEdges = 1
	repair.SmoothCharacters ciSmoothDarkenEdges
 	 If Err.Number <> 0 Then WScript.Echo Err.Description : Exit Sub
	repair.CleanNoise 3               ' Clean balck noise of 3 pixels
	'   ciCnxBlackNoise = 1: 	ciCnxWhiteNoise = 2
	'		repair.CleanNoiseExt (ciCnxBlackNoise + ciCnxWhiteNoise), 3, 3, 10               ' Clean black and white noise
	ciLineVertAndHorz = 3
	repair.ReconstructLines ciLineVertAndHorz
 	 If Err.Number <> 0 Then WScript.Echo Err.Description : Exit Sub
End Sub
 
Sub repair_image(fileName, page, fileOut) 
  On Error Resume Next
      'Create CiServer object: 
  Set Ci = CreateObject("ClearImage.ClearImage") 
  	  ' Create and configure repair
  Set repair = Ci.CreateRepair 
 	 If Err.Number <> 0 Then WScript.Echo Err.Description : Exit Sub
	  ' Open Image
  repair.Image.Open fileName, page 
 	 If Err.Number <> 0 Then WScript.Echo Err.Description : Exit Sub
	  ' Do repair
  RepairPage repair
	  ' Save results
  repair.Image.SaveAs fileOut, 0 ' ciEXT 
 	 If Err.Number <> 0 Then WScript.Echo Err.Description : Exit Sub
End Sub

to Top

Repair images in multi-page file

C#





		
		
			
			

			
			using Inlite.ClearImageNet;
// . . .        
private static void _OnEditPage(object sender, EditPageEventArgs e)
{
	RepairPage(e.Editor);
}

internal static void Repair_file(string fileName, string fileOut)
{
	try
	{
		ImageEditor editor = new ImageEditor();
		bool ret = editor.Edit(fileName, _OnEditPage, fileOut, ImageFileFormat.outputFileExtension, true);
	}
	catch (Exception ex)
	{ ProcessException(ex); }
}
			
				
					
				
					1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
				
						using Inlite.ClearImageNet;
// . . .        
private static void _OnEditPage(object sender, EditPageEventArgs e)
{
	RepairPage(e.Editor);
}
 
internal static void Repair_file(string fileName, string fileOut)
{
	try
	{
		ImageEditor editor = new ImageEditor();
		bool ret = editor.Edit(fileName, _OnEditPage, fileOut, ImageFileFormat.outputFileExtension, true);
	}
	catch (Exception ex)
	{ ProcessException(ex); }
}

VB





		
		
			
			

			
			Imports Inlite.ClearImageNet
' . . .    
Sub _OnEditPage(sender As Object, e As EditPageEventArgs)
	RepairPage(e.Editor)
End Sub

Sub Repair_file(fileName As String, fileOut As String)
	Try
		Dim editor As New ImageEditor()
		Dim ret As Boolean = editor.Edit(fileName, AddressOf _OnEditPage, fileOut, ImageFileFormat.outputFileExtension, True)
	Catch ex As Exception
		ProcessException(ex)
	End Try
End Sub
			
				
					
				
					1
2
3
4
5
6
7
8
9
10
11
12
13
14
				
						Imports Inlite.ClearImageNet
' . . .    
Sub _OnEditPage(sender As Object, e As EditPageEventArgs)
	RepairPage(e.Editor)
End Sub
 
Sub Repair_file(fileName As String, fileOut As String)
	Try
		Dim editor As New ImageEditor()
		Dim ret As Boolean = editor.Edit(fileName, AddressOf _OnEditPage, fileOut, ImageFileFormat.outputFileExtension, True)
	Catch ex As Exception
		ProcessException(ex)
	End Try
End Sub

C++





		
		
			
			

			
			void repair_file (const char *fileName, const char *fileOut)
	{
	try {
		// configure reader
		ICiRepairPtr repair = Ci->CreateRepair ();
		int page = 1;
		while (true) {
			// open file page
			repair->Image->Open (_bstr_t(fileName), page);
			// process page
			RepairPage(repair);
			// Save page
			repair->Image->Append(_bstr_t(fileOut), ciEXT);
			// go to the next page
			page++;	if (page > repair->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
				
						void repair_file (const char *fileName, const char *fileOut)
	{
	try {
		// configure reader
		ICiRepairPtr repair = Ci->CreateRepair ();
		int page = 1;
		while (true) {
			// open file page
			repair->Image->Open (_bstr_t(fileName), page);
			// process page
			RepairPage(repair);
			// Save page
			repair->Image->Append(_bstr_t(fileOut), ciEXT);
			// go to the next page
			page++;	if (page > repair->Image->PageCount) break;
			}
		}
	catch (_com_error &ex)
		{ProcessException(ex);}
	}

Java





		
		
			
			

			
			void repair_file (String fileName, String fileOut)
	{
	try {
		// configure reader
		ICiRepair repair = Ci.CreateRepair ();
		int page = 1;
		while (true) {
			// open file page
			repair.getImage().Open (fileName, page);
			// process page
			RepairPage(repair);
			// Save page
			repair.getImage().Append(fileOut, EFileFormat.ciEXT);
			// go to the next page
			page++;	if (page > repair.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
				
						void repair_file (String fileName, String fileOut)
	{
	try {
		// configure reader
		ICiRepair repair = Ci.CreateRepair ();
		int page = 1;
		while (true) {
			// open file page
			repair.getImage().Open (fileName, page);
			// process page
			RepairPage(repair);
			// Save page
			repair.getImage().Append(fileOut, EFileFormat.ciEXT);
			// go to the next page
			page++;	if (page > repair.getImage().getPageCount()) break;
			}
	} catch (Exception ex) {
		ProcessException(ex);
	} finally { // Collect garbage periodically to release JNI-managed
				// objects
		System.gc();
	}
	}

PHP





		
		
			
			

			
			function repair_file ($fileName, $fileOut)
{
		  // Create CiServer object: 
	$Ci = new COM("ClearImage.ClearImage");
  	  // Create and configure repair
	$repair = $Ci->CreateRepair();
	$page=1;
	while(true)
	{
			//  Open image file
		$repair->Image->Open($fileName, $page); 
			// Do repair
		RepairPage ($repair);
			//  Save results
		$repair->Image->Append($fileOut, 0);  // ciEXT
		$page++;
		if ($page >  $repair->Image->PageCount)
			break;
	}
}
			
				
					
				
					1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
				
						function repair_file ($fileName, $fileOut)
{
		  // Create CiServer object: 
	$Ci = new COM("ClearImage.ClearImage");
  	  // Create and configure repair
	$repair = $Ci->CreateRepair();
	$page=1;
	while(true)
	{
			//  Open image file
		$repair->Image->Open($fileName, $page); 
			// Do repair
		RepairPage ($repair);
			//  Save results
		$repair->Image->Append($fileOut, 0);  // ciEXT
		$page++;
		if ($page >  $repair->Image->PageCount)
			break;
	}
}

Delphi





		
		
			
			

			
			uses                  
   ...,ClearImage_TLB, comobj;
 // . . . 
  procedure  repair_file (const fileName: string; const fileOut: string);
  var
  Ci: ICiServer;
  repair: ICiRepair;
  page: integer;
  begin
    try
      try
        begin
             //Create repair
          Ci:=CoCiServer.Create;
          repair:=Ci.CreateRepair;
          page:=1;
          while true  do
          begin
            repair.Image.Open(fileName, page);
              // Do repair
            RepairPage(repair);
              // Save results
            repair.Image.Append(fileOut, ciExt);
            page := page + 1;
            if (page > repair.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
				
						uses                  
   ...,ClearImage_TLB, comobj;
 // . . . 
  procedure  repair_file (const fileName: string; const fileOut: string);
  var
  Ci: ICiServer;
  repair: ICiRepair;
  page: integer;
  begin
    try
      try
        begin
             //Create repair
          Ci:=CoCiServer.Create;
          repair:=Ci.CreateRepair;
          page:=1;
          while true  do
          begin
            repair.Image.Open(fileName, page);
              // Do repair
            RepairPage(repair);
              // Save results
            repair.Image.Append(fileOut, ciExt);
            page := page + 1;
            if (page > repair.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 repair_file(fileName, fileOut) 
  On Error Resume Next
      'Create CiServer object: 
  Set Ci = CreateObject("ClearImage.ClearImage") 
  	  ' Create and configure repair
  Set repair = Ci.CreateRepair 
 	  If Err.Number <> 0 Then WScript.Echo Err.Description : Exit Sub
  page = 1
  do
		  ' Open Image
	  repair.Image.Open fileName, page 
		 If Err.Number <> 0 Then WScript.Echo Err.Description : Exit Sub
		  ' Do repair
	  RepairPage repair
		  ' Save results
	  repair.Image.Append fileOut, 0 ' ciEXT 
 	     If Err.Number <> 0 Then WScript.Echo Err.Description : Exit Sub
	  page = page + 1
	  if (page > repair.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
				
						Sub repair_file(fileName, fileOut) 
  On Error Resume Next
      'Create CiServer object: 
  Set Ci = CreateObject("ClearImage.ClearImage") 
  	  ' Create and configure repair
  Set repair = Ci.CreateRepair 
 	  If Err.Number <> 0 Then WScript.Echo Err.Description : Exit Sub
  page = 1
  do
		  ' Open Image
	  repair.Image.Open fileName, page 
		 If Err.Number <> 0 Then WScript.Echo Err.Description : Exit Sub
		  ' Do repair
	  RepairPage repair
		  ' Save results
	  repair.Image.Append fileOut, 0 ' ciEXT 
 	     If Err.Number <> 0 Then WScript.Echo Err.Description : Exit Sub
	  page = page + 1
	  if (page > repair.Image.PageCount) Then Exit Do
  Loop
End Sub

to Top

Repair images in a stream

C#





		
		
			
			

			
			using Inlite.ClearImageNet;
// . . .       
void _OnEditPage(object sender, EditPageEventArgs e)
{
	RepairPage(e.Editor);
}

Stream Repair_stream(Stream stream, ImageFileFormat output_format)
{
	try
	{
		ImageEditor repair = new ImageEditor();
		MemoryStream msOut = repair.Edit(stream, _OnEditPage, output_format);
		return msOut;
	}
	catch (Exception ex)
	{ ProcessException(ex); return null;}
}
			
				
					
				
					1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
				
						using Inlite.ClearImageNet;
// . . .       
void _OnEditPage(object sender, EditPageEventArgs e)
{
	RepairPage(e.Editor);
}
 
Stream Repair_stream(Stream stream, ImageFileFormat output_format)
{
	try
	{
		ImageEditor repair = new ImageEditor();
		MemoryStream msOut = repair.Edit(stream, _OnEditPage, output_format);
		return msOut;
	}
	catch (Exception ex)
	{ ProcessException(ex); return null;}
}

VB





		
		
			
			

			
			Imports Inlite.ClearImageNet
' . . . 
Sub _OnEditPage(sender As Object, e As EditPageEventArgs)
	RepairPage(e.Editor)
End Sub

Function Repair_stream(stream As Stream, output_format As ImageFileFormat) As Stream
	Try
		Dim repair As New ImageEditor()
		Dim msOut As MemoryStream = repair.Edit(stream, AddressOf _OnEditPage, output_format)
		Return msOut
	Catch ex As Exception
		ProcessException(ex)
		Return Nothing
	End Try
End Function
			
				
					
				
					1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
				
						Imports Inlite.ClearImageNet
' . . . 
Sub _OnEditPage(sender As Object, e As EditPageEventArgs)
	RepairPage(e.Editor)
End Sub
 
Function Repair_stream(stream As Stream, output_format As ImageFileFormat) As Stream
	Try
		Dim repair As New ImageEditor()
		Dim msOut As MemoryStream = repair.Edit(stream, AddressOf _OnEditPage, output_format)
		Return msOut
	Catch ex As Exception
		ProcessException(ex)
		Return Nothing
	End Try
End Function

to Top