VB.NET: ISIS Scan for Document & Images
How to ISIS scan for document image using VB.NET
Yiigo provides ISIS scanning support included in Yiigo.Image for .NET, which can be easily added to your document imaging applications with fully-automated, dynamic, and feature-packed ISIS scanning and capturing functionalities. Find more ISIS scanning information on Yiigo.Imaging for .NET ISIS Scanning Plugin.
Yiigo.Imaging for .NET ISIS Scanning Plugin has those following functionalities:
- Scan documents & images directly to memory
- Automatic feeder, printer/endorsers, and transparency units
- Access to dozens of scanner property values
- Upload image to HTTP and FTP servers
- Save ISIS results to a file or stream
ISIS Scanning with VB.NET Sample Code Requirements
Before using ISIS scanning plugin in VB.NET, make sure that you have installed. Start to ISIS Scan
- Start your Microsoft Visual Studio;
- Choose "Project" in "File-New" from the menu;
- In "New Project" dialog box, choose "Visual Basic Projects";
- Choose "Windows Application" in the "Templates" List and name it "YiigoImagingISISScanVBNET";
- In the "Solution Explorer" window from the context menu, right-click on the "References" folder, and select "Add Reference...";
- In the "Add Reference" dialog box, select the ".NET" tab and browse to Yiigo.Imaging.Net.dll library and Yiigo.Imaging.Net.Isis.dll ;
- Add it to your VB.NET applications;
- Import Yiigo .NET Image Namespace & copy those following codes:
Imports System.IO
Imports System.Drawing.Printing
Imports Yiigo.Imaging
Imports Yiigo.Imaging.Processing
Imports Yiigo.Imaging.IsisScan
' Handle the Image Acquired Event
If True Then
If Me.RasterEdgeImaging.Image IsNot Nothing Then
Me.RasterEdgeImaging.Image.Dispose()
End If
If e.Image IsNot Nothing Then
Me.RasterEdgeImaging.Image = e.Image.ToBitmap()
e.Image.Dispose()
ElseIf e.Bitmap IsNot Nothing Then
Me.RasterEdgeImaging.Image = e.Bitmap
End If
If e.JobSeparator Then
System.Diagnostics.Debug.WriteLine("yiigo")
End If
End If
' Allowing Users to Select an ISIS Device
Dim dev As IsisDevice Is Nothing
If Me.acquisition.ShowSelectSource(Me) Then
dev = Me.acquisition.Devices.[Default]
End If
' Opening a Connection to a Device in Order to Set Properties
If device.Open() Then
device.Settings.Resolution = New Rational(200, 200)
device.PixelFormat = IsisPixelFormat.Binary
device.Acquire()
device.Close()
End If
' Opening a Connection to a Device in Order to Set Properties
If device.Open() Then
device.Settings.Resolution = New Rational(200, 200)
device.PixelFormat = IsisPixelFormat.Binary
device.Acquire()
device.Close()
End If
' Opening a Connection to a Device in Order to Set Properties
If device.Open() Then
device.PixelFormat = IsisPixelFormat.Binary
device.AcquireToFile(IsisFileType.Tiff, IsisCompression.Group4)
device.Close()
End If
Private Sub _acquisition_FileAcquisition(sender As Object, e As IsisFileAcquisitionEventArgs)
If Me.chkSaveMultipage.Checked AndAlso (e.FileType = IsisFileType.Tiff OrElse
e.FileType = IsisFileType.Pdf OrElse e.FileType = IsisFileType.Dcx) Then
e.Append = True
End If
e.FileName = myFileName
End Sub
' Upload Image to Sever
Private Sub UploadImage(image As System.Drawing.Bitmap)
Dim post As New Yiigo.ISIS.HttpPost()
post.FormData.Add("image1", image, "filename.png")
post.FormData.Add("username", user)
post.FormData.Add("password", password)
Dim ret As String = post.PostData("http://www.website.com/postImage.aspx")
End Sub |  
Products Overview Tech Specs Features Other Plugins Image Viewer CoreBarcode PluginPDF Read & WriteTesseract OCR PluginForm Processing PluginJBIG2 CodecJPEG2000 CodecISIS ScannerTwain ScannerDICOM ReaderCAD Scanner
|
