我已经做好imgscan.ocx的单图片扫描,可多图片扫描我查了网上的方法有些疑问
Dim imagename As String
imagename = Format(Now, "yyyyMMddHHmm") & ".tif"
Dim ll_rtn As Integer
ll_rtn = ImgScan1.OpenScanner
If ll_rtn = 0 Then
If ImgScan1.ScannerAvailable Then
ImgScan1.FileType = 1
ImgScan1.ShowSetupBeforeScan = True
ImgScan1.ScanTo = 2 '保存为文件
'ImgScan1.Image = "c:\" & imagename
ImgScan1.Image = "c:\test*"
ImgScan1.OpenScanner
ImgScan1.StartScan '开始扫描图象 ImgScan1.CloseScanner '关闭扫描仪
'Inet1.Execute ("put " & imagename)
Else
MsgBox ("没有选择扫描仪")
End If
Else
MsgBox ("扫描仪无效!")
End If
其中ImgScan1.Image = "c:\test*" 只要加上*号“ImgScan1.StartScan '开始扫描图象
”就会出错 还有就是如果多张图片扫描我如何获得扫描后的文件名?我希望把扫描后的多张图片FTP到服务器上。然后将扫描后的文件名返回,希望大家指点我一下,谢谢。
Dim imagename As String
imagename = Format(Now, "yyyyMMddHHmm") & ".tif"
Dim ll_rtn As Integer
ll_rtn = ImgScan1.OpenScanner
If ll_rtn = 0 Then
If ImgScan1.ScannerAvailable Then
ImgScan1.FileType = 1
ImgScan1.ShowSetupBeforeScan = True
ImgScan1.ScanTo = 2 '保存为文件
'ImgScan1.Image = "c:\" & imagename
ImgScan1.Image = "c:\test*"
ImgScan1.OpenScanner
ImgScan1.StartScan '开始扫描图象 ImgScan1.CloseScanner '关闭扫描仪
'Inet1.Execute ("put " & imagename)
Else
MsgBox ("没有选择扫描仪")
End If
Else
MsgBox ("扫描仪无效!")
End If
其中ImgScan1.Image = "c:\test*" 只要加上*号“ImgScan1.StartScan '开始扫描图象
”就会出错 还有就是如果多张图片扫描我如何获得扫描后的文件名?我希望把扫描后的多张图片FTP到服务器上。然后将扫描后的文件名返回,希望大家指点我一下,谢谢。
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货