I have downloaded the evaluation version of Active X & have trialled the Ms Access demo.
The image file (which is scanned in b&w) does not preview to Image1 and does not save to disk. Is there any reason for this?
This is the code:
Code: Select all
Private Sub VSTwain1_PostScan(ByVal flag As Long)
If flag <> 0 Then
If VSTwain1.ErrorCode <> 0 Then
MsgBox VSTwain1.ErrorString
End If
Else
Set Image1.Picture = VSTwain1.GetCurrentImage
VSTwain1.TiffCompression = 10
VSTwain1.SaveImage 0, "c:\test.tif"
End If
End Sub
Code: Select all
Private Sub BAcquire_Click(Cancel As Integer)
With VSTwain1
.StartDevice
If .SelectSource = 1 Then
.AutoCleanBuffer = 1
.MaxImages = 1
.ShowUI = 0
.Acquire
End If
End With
End Sub