扫描到多页tiff文件 [英] Scan to multipage tiff file

问题描述

我需要将1到100页或更多页的文档扫描到单个多页tif文件中，然后在图片框中打开它。我目前的代码扫描到多个单页的tif文件，并打开文件，无论默认的tif查看器
是当前计算机。我不认为在图片框中打开文件会有问题，但我已经搜索了一周以上如何扫描所有文件作为单个tiff或之后将它们组合起来。我发现Bob Powells的文章
生成多页tiff，但我找不到他所指的编码器或tiff编解码器。

这就是我的意思目前有。如果有人能指出我如何做到这一点或如何使我的代码工作，我将不胜感激。

 
 昏暗 计数  As  整数 
  Dim  cntmsg  As   String  
 计数 = 0 
 S = TwainHandler.ScanImages（）
 对于 每个 k  In  S 
  Count  =  Count  + 1 
  Next  
 如果 计数> 0 然后 
 cntmsg = "你已扫描过"& 计数 .ToString& "文档"  
 MessageBox.Show（cntmsg，" Success" ，MessageBoxButtons.OK，MessageBoxIcon.Information）
 < span style ="color：Blue;"> Else  
 MessageBox.Show（"没有扫描文件，请确认您的扫描仪已连接"，"失败"，MessageBoxButtons.OK，MessageBoxIcon.Information）
  End  如果 
 
 对于 每个 k  In  S 
 Process.Start（k）
 下一步 
 

解决方案

嗨Bcdudley，

<请与此问题联系Bob Powells。你应该得到更多回复。

祝你好运，

I need to scan a document with anywhere from 1 to 100 pages or more into a single multipage tif file, then open it in a picture box. The code I currently have scans to multiple single page tif files and opens the documents in whatever the default tif viewer is for the current computer. I do not think that openign the file in a picture box will be a problem, but I have been searchign for over a week on how to either scan all the documents as a single tiff or to combine them afterwards. I found Bob Powells article on generating a multi-page tiff, but I have not been able to locate the encoder or tiff codec he is referring to.

Here is what I currently have. I would appreciate it if someone could point me to a working example of how to do this or how to make my code work.

        Dim Count As Integer
        Dim cntmsg As String
        Count = 0
         S = TwainHandler.ScanImages()
            For Each k In S
             Count = Count + 1
            Next
           If Count > 0 Then
            cntmsg = "You have scanned " & Count.ToString & " Documents"
            MessageBox.Show(cntmsg, "Success", MessageBoxButtons.OK, MessageBoxIcon.Information)
            Else
            MessageBox.Show("No files were scanned, Please verify your scanner is connected", "Failed", MessageBoxButtons.OK, MessageBoxIcon.Information)
           End If

        For Each k In S
            Process.Start(k)
        Next

解决方案

Hi Bcdudley,

Please contact to Bob Powells with this issue. You should get more responses.

Best regards,

这篇关于扫描到多页tiff文件的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持IT屋！