Acerca de como usar el scanner en VB
Soy estudiante de programación y soy principiante en VB. Busco realizar un sencillo programa que haga uso del scanner para capturar una imagen y poder guardarla como bmp (o jpg o gif). Agradecería mucho que me diera una pista de como llevar a cabo ese programa o alguna información de alguna página que me ayude a resolver mi duda...
1 respuesta
Respuesta de aja72
1
La forma más sencilla de acceder al escáner es utilizar el componente "Kodak Image Scan Control". Añade a tu formulario un control de este tipo y el siguiente código para llevar una imagen hasta un archivo:
Private Sub Command1_Click()
If ImgScan1.ScannerAvailable Then
ImgScan1.OpenScanner
ImgScan1.ScanTo = FileOnly
ImgScan1.Image = "c:\scanimg.jpg"
ImgScan1.FileType = JPG_File
ImgScan1. SetPageTypeCompressionOpts GoodDisplay, TrueColor24bitRGB, JPEGCompression, JPEGHighHigh
ImgScan1.ShowSetupBeforeScan = True
'ImgScan1.ShowScanPage True
'ImgScan1. ShowScanPreferences
ImgScan1.StartScan
'ImgScan1.StopScan
ImgScan1.CloseScanner
Else
'No hay escaner TWAIN
End If
End Sub
Para poder usar el control de Kodak basta con que instales el programa Imaging, que se incluye como accesorio en W98 y W2000. Para XP, sigue las instrucciones del siguiente link para instalar los controles: http://techrepublic.com.com/5100-6270-5034679.html
No dudes en preguntar de nuevo si tienes alguna pega.
Private Sub Command1_Click()
If ImgScan1.ScannerAvailable Then
ImgScan1.OpenScanner
ImgScan1.ScanTo = FileOnly
ImgScan1.Image = "c:\scanimg.jpg"
ImgScan1.FileType = JPG_File
ImgScan1. SetPageTypeCompressionOpts GoodDisplay, TrueColor24bitRGB, JPEGCompression, JPEGHighHigh
ImgScan1.ShowSetupBeforeScan = True
'ImgScan1.ShowScanPage True
'ImgScan1. ShowScanPreferences
ImgScan1.StartScan
'ImgScan1.StopScan
ImgScan1.CloseScanner
Else
'No hay escaner TWAIN
End If
End Sub
Para poder usar el control de Kodak basta con que instales el programa Imaging, que se incluye como accesorio en W98 y W2000. Para XP, sigue las instrucciones del siguiente link para instalar los controles: http://techrepublic.com.com/5100-6270-5034679.html
No dudes en preguntar de nuevo si tienes alguna pega.
