Hi,One small question. can I use MODI with asp.net...

2007-03-20T15:30:00.000+03:00

Hi,
One small question. can I use MODI with asp.net application? If yes then please help me to proceed.

swastik08@gmail.com

Thanks for code!

2006-11-09T21:12:00.000+03:00

Thanks for code!

Private Function DocScan() As Boolean On Error ...

2006-11-09T18:58:00.000+03:00

Private Function DocScan() As Boolean
On Error GoTo error_DocScan

Dim blnResult As Boolean
Dim WIADevice As WIA.Device
Dim WIAProcess As WIA.ImageProcess
Dim WIAItem As WIA.Item
Dim WIAProperty As WIA.Property
Dim WIAImage As WIA.ImageFile

blnResult = True
Set WIADevice = dmScan.DeviceInfos(1).Connect

If WIADevice.Type = WIA.ScannerDeviceType Then
Set WIAProcess = CreateObject("Wia.ImageProcess")
WIAProcess.Filters.Add WIAProcess.FilterInfos("Convert").FilterID
WIAProcess.Filters(WIAProcess.Filters.Count).Properties("FormatID").Value = _
WIA.wiaFormatTIFF

' This may cause PROBLEMS with ADF-type scanners! May save only the last doc
'WIAItem = WIADevice.Items(1) ' <-- This may be a good solution
For Each WIAItem In WIADevice.Items
DoEvents

' Configure scanner settings
For Each WIAProperty In WIAItem.Properties
Select Case WIAProperty.PropertyID
Case 6146 ' Current Intent
WIAProperty.Value = 4 ' Text or Line Art
Case 6147 ' Horizontal Resolution
WIAProperty.Value = 300 ' 300 DPI
Case 6148 ' Vertical Resolution
WIAProperty.Value = 300 ' 300 DPI
End Select
Next

Set WIAImage = cdScan.ShowTransfer(WIAItem)
Set WIAImage = WIAProcess.Apply(WIAImage)

If (SaveTempFile(WIAImage, m_tempfile)) Then
blnResult = blnResult And True
Else
blnResult = False
MsgBox "Scanning failed to save file"
End If
Next
Else
blnResult = False
MsgBox "Scanner not found"
End If

DocScan = blnResult
Exit Function
error_DocScan:
DocScan = False
MsgBox "Scanning failed - " & Err.Description
Err.Clear
End Function

Private Function SaveTempFile(image As WIA.ImageFile, FileName As String) As Boolean
On Error GoTo error_SaveTempFile

Dim fs As Object
Set fs = CreateObject("Scripting.FileSystemObject")

If fs.FileExists(FileName) Then
fs.DeleteFile FileName, True
End If

image.SaveFile FileName
SaveTempFile = True
Exit Function
error_SaveTempFile:
SaveTempFile = False
MsgBox "Tempfile not saved - " & Err.Description
Err.Clear
End Function

Comments on Alex & Access: Document scan in MODI

Hi,One small question. can I use MODI with asp.net...

Thanks for code!

Private Function DocScan() As Boolean On Error ...