扫描控件imgscan,imgeidt,imganntool等 如何使用

Question

一、各位大侠。有谁知道扫描控件imgscan,imgeidt,imganntool等 如何使用吗。我想知道其中的属性方法事件各有什么意思。急。
二、扫描多页并放入数据库中。

Answer 1

扫描           ImgScan1.DestImageControl = "ImgEdit1"
             On Error GoTo NoDevice
             ImgScan1.StartScan
NoDevice:
             If Err.Number = 1117 Then
                 MsgBox "扫描设备没有找到，请重新安装！", vbOKOnly + vbCritical, "没有寻找到扫描设备"
                 Exit Sub
                 Else
                 MsgBox "系统未知错误，不能继续！", vbOKOnly + vbCritical, "未知错误"
                 Exit Sub
              End If
'
Private Sub SavePicToHdd() ImgAdmin1.DialogTitle = "保存图像文件"
 ImgAdmin1.CancelError = True
 ImgAdmin1.InitDir = App.Path
' On Error GoTo CancelF
 ImgAdmin1.Image = ""
 ImgAdmin1.Filter = "图片(*.bmp)|*.bmp|"
' ImgAdmin1.ShowFileDialog SaveDlg
 If InStr(1, UCase(ImgAdmin1.Image), UCase(".bmp"), vbTextCompare) Then
        ImgEdit1.SaveAs ImgAdmin1.Image, 3, 7, 1, 0, False
        scanfilename = ImgAdmin1.Image
  Else
        If ImgEdit1.Image = "" Then Exit Sub
        ImgEdit1.SaveAs App.Path & "\" & strFileName & ".bmp", 3, 7, 1, 0, False
        scanfilename = App.Path & "\" & strFileName & ".bmp"
'        scanfilename = strFileName & ".bmp"
 End If
 '添加到listview控件
'
    Call AddNewPic
 
 Exit Sub
CancelF:
 If Err.Number <> 32755 Then
    MsgBox "非法操作，不能继续！    ", vbOKOnly + vbQuestion, "未知错误"
    Else
    ImgAdmin1.Image = ""
 End IfEnd Sub
 
Sub AddNewPic()
    Dim Stemp1 As String
'    On Error GoTo ErrorNum
    Dim itemX As ListItem
    Set itemX =form1.lvwPic.ListItems.Add(, scanfilename, strFileName & ".bmp", 1, 1)
'    Image1.Picture = LoadPicture(lvwPic.SelectedItem.key) 
     Stemp1 = Str(录入.lvwPic.ListItems.Count + 1)
    strPicDiscribe(录入.lvwPic.ListItems.Count + 1) = "第" & Stemp1 & "张图片"
    itemX.SubItems(1) = Stemp1
ErrorNum:
    Select Case Err.Number
        Case "35620"
            MsgBox "这个文件已经被添加了,不能重复添加."
            Exit Sub
    End Select
End Sub

Answer 2

'将图片保存到数据库
'******************将图片文件保存到数据库中*************************
Sub savePicToDB(CN As ADODB.Connection)
    Dim stm As ADODB.Stream
    Set stm = New ADODB.Stream
    Set rs1 = New ADODB.Recordset
    rs1.Open "select * from rs_http", cn1, adOpenKeyset, adLockOptimistic
    With stm
        .Type = adTypeBinary
        .Open
        .LoadFromFile dlg.FileName
    End With
With rs1
     .AddNew
     .Fields("tp") = stm.Read
     .Update
End With
rs1.Close
Set rs1 = Nothing
End Sub
'将图片或者文件从数据库中读出
Sub GetPicFromDB(CN As ADODB.Connection)
    On Error Resume Next
    Dim fld As Field
    Dim strTemp As String
    Dim stm As ADODB.Stream
    Set stm = New ADODB.Stream
                                      'strTemp = "c:\temp.bmp"
    Set rs1 = New ADODB.Recordset
    rs1.Open "select * from rs_http where id='" & strid  & "'", CN, , , adCmdText
        While Not rs1.EOF
             '*********将数据库中的文件读到硬盘上*************************
           ' strTemp = App.Path + "\temp\" + rs1!Name '`临时文件,用来保存读出的图片            With stm
                 .Type = adTypeBinary
                 .Open
                 .Write rs1("tp").value
                 strTemp = App.Path & "\temp1\" & rs1!Name
                 .SaveToFile strTemp, adSaveCreateOverWrite
                 .Close
            End With
            Set itemX = lvwPic.ListItems.Add(, App.Path & "\temp1\" & rs1!Name, rs1!Name, 1, 1)
            itemX.SubItems(1) = rs1!bz
            rs1.MoveNext
        Wend
    Set stm = Nothing
    rs1.Close
    Set rs1 = Nothing
    End Sub

Answer 3

执行下面语句怎么出现:"系统未知错误，不能继续!"?????ImgScan1.DestImageControl = "ImgEdit1"
             On Error GoTo NoDevice
             ImgScan1.StartScan
NoDevice:
             If Err.Number = 1117 Then
                 MsgBox "扫描设备没有找到，请重新安装！", vbOKOnly + vbCritical, "没有寻找到扫描设备"
                 Exit Sub
                 Else
                 MsgBox "系统未知错误，不能继续！", vbOKOnly + vbCritical, "未知错误"
                 Exit Sub
              End If