VB 里 扫描文件 很麻烦吗？

Question

   
   我们有一个软件项目， VB + access
        要求 扫描 纸质 文档到 数据库   我的思路是：  用VB 扫描到 程序文件夹下，然后在 数据库里 把 路径和文件名记录下来， 显示的时候 调用就行了。        公司的 程序员说 实现起来 非常麻烦，不愿意做。    想请教大家，  麻烦吗？

Answer 1

思路：
1、编程实现扫描，生成BMP文件保存在硬盘上
2、将保存好的文件通过Stream对象保存到数据库中这是一个使用ImgScan控件编写的控制扫描仪的程序，通过它你可以实现扫描并保存图片到硬盘。Option Explicit
Private Function ScanTheImage(ByRef imgScanner As ImgScan, ByVal TheImageFile As String) As Boolean    Dim ReturnValue As Long
    Dim TestString As String
    If imgScanner.ScannerAvailable Then
        ReturnValue = imgScanner.OpenScanner()
        imgScanner.PageOption = 2
        imgScanner.FileType = 1
        imgScanner.PageType = 1
        imgScanner.CompressionType = 4
        imgScanner.CompressionInfo = 1
        imgScanner.ScanTo = 2           '保存为文件
        imgScanner.Image = TheImageFile '图像将被保存
        imgScanner.ShowSetupBeforeScan = True
        imgScanner.MultiPage = True
        ReturnValue = imgScanner.StartScan()
        DoEvents
        imgScanner.CloseScanner
        TestString = Dir(TheImageFile)
        If TestString <> "" Then
            ScanTheImage = True
        End If
    Else
        MsgBox "扫描设备尚不可用"
        Exit Function
    
    End If
End FunctionPrivate Sub btnScanRun_Click()
    Dim bolP As Boolean
    bolP = ScanTheImage(imgScanner, App.Path & "\1.bmp")
    
End Sub
这是通过Stream对象保存图片到数据库的代码