convert multipage tif image into seperate files

graphics

    Sponsored Links

    Next

  • 1. Save picture in picture box to bmp file
    Hi I want to know how to save picture on picture box to bitmap file.?? could kindly provide the sample codE???
  • 2. Convert StdPicture from Icon to Bitmap
    Hello, I'd like to be able to convert an stdPicture gotten from an icon in an MSComCtl ImageList, to an StdPicture in the Bitmap format. I need to store it into an Access 2000 db and to be able to see it in Access, it must be in the Bitmap format. Can it be done? Can it be done in memory without having to save/load to/from HD? Thanks a lot. -- Andy, XXXX@XXXXX.COM
  • 3. How to make cursor appear on a form
    Hello, I'm trying to make a Rich Text control of my own. I've seen that the form window is capable of showing text in multiple font styles so im using the main form window to display text (ofcourse the usercontrol can also be used). Now things are working well, i just want to know if there was some way i could make the blinking cursor appear right on the form so the user can directly type text onto it. I cant use the textbox because it doesnt show multiple font style; the textbox applies only one font and style to all the text within. So can the cursor be made visible on the form to add text? (i can handle the KeyDown/Up events to capture key strokes and format text, just want to make the cursor appear.)
  • 4. GDI+ Lines
    I have two controls, and a line (drawn with using gdi+) joining them. When i add a new set (two controls + line) and move them in a way that the lines are one over the other, the first line disappears. Any ideas of what to do? I want both lines to remain visible. Redrawing lines many times is out of the question due to large number of lines drawn. Thanx in advance
  • 5. Rotate the bitmap file
    Hi all I want to know that how to use VB to rotate a bitmap file to 45 degree or 180 degree? Million thanks

convert multipage tif image into seperate files

Postby VG9tIEY » Wed, 12 Jan 2005 09:33:02 GMT

I am looking to scan a large amout of documents. I believe I will end up with 
a bunch of documents that contain 30-50 pages. They will come from the 
scanner as  large tif files. I would like to break them up into a tif file 
for each page. I'm pretty good with VB and would like to use it to automate 
this task if possible. I looked on google and can't find anything. I'm sure 
it's out there but I think I'm not picking good key words. Can someone give 
me a hint on that?

Thank!!

RE: convert multipage tif image into seperate files

Postby VG9tIEY » Thu, 13 Jan 2005 06:37:01 GMT

I figured it out. It isn't very elegent though. I basically open the tif 
using the MODICtl that is available if you have office 2003 installed. Then I 
systemitacally delete every image on the page except for one and then save 
that as that page#.tif. In case you hadn't figured it out, all the pages I've 
scanned have the page # listed on the bottom. That makes them be the last 
word on the document. Below is a snippet of code that may be useful to 
others. 


Set miDoc = New MODICtl.Document
 Dim breakUp, m, n, pre, post
 numberofPagesButton = True
 For n = 0 To numberofPages - 1
     miDoc.Create "C:\01.tif"
          
          For pre = 0 To n - 1
          miDoc.Images.Remove miDoc.Images(0)
          Next pre
          numberofPages = miDoc.Images.Count
          For post = 1 To numberofPages - 1
          miDoc.Images.Remove miDoc.Images(1)
          Next post
          miDoc.Images(0).OCR
          ' miLayout.NumWords  miLayout.Words(0).Text
        Set miLayout = miDoc.Images(0).Layout
        miDoc.SaveAs "C:\" & miLayout.Words(miLayout.NumWords - 1).Text & 
".tif", miFILE_FORMAT_TIFF

    Next n
Set miDoc = Nothing





Similar Threads:

1.GDI+ Imaging: multipage TIF

Is there a way to page through a multipage TIF when using 
the bmp.fromfile() and gr.drawimage() techniques?

2.Setting the compression when creating the multipage Tif files in Vb.net

I was successful in creating the multipage Tif files in VB.net using
the following the following code:

   Public Sub SaveSeveralOnePageFilesInADir(ByVal DrNm As String, ByVal

resultFl As String)


        Dim pages As Bitmap = Nothing
        Dim PgCnt As Integer
        Dim ix As Integer


        Dim fl As String


        If Dir$(resultFl) <> "" Then
            Kill(resultFl)
        End If


        '---------------------------------


        Dim enc As System.Drawing.Imaging.Encoder =
System.Drawing.Imaging.Encoder.SaveFlag


                Dim info As System.Drawing.Imaging.ImageCodecInfo =
Nothing


        For Each ice As System.Drawing.Imaging.ImageCodecInfo In
System.Drawing.Imaging.ImageCodecInfo.GetImageEncoders


            If ice.MimeType = "image/tiff" Then


                info = ice


            End If


        Next


                Dim ep As System.Drawing.Imaging.EncoderParameters =
New System.Drawing.Imaging.EncoderParameters(1)


        fl = Dir$(DrNm + "\*.*", FileAttribute.Normal +
FileAttribute.Archive)
        ix = 0
        Do While fl <> ""
            fl = UCase$(fl)
            If InStr(fl, ".JPG") <> 0 Or InStr(fl, ".GIF") <> 0 Then
                ix = ix + 1
                fl = DrNm + "\" + fl
                If ix = 1 Then


                    ep.Param(0) = New
System.Drawing.Imaging.EncoderParameter(enc,
CType(System.Drawing.Imaging.EncoderValue.MultiFrame, Long))


                    pages = Image.FromFile(fl)
                    pages.Save(resultFl, info, ep)
                Else
                                        ep.Param(0) = New
System.Drawing.Imaging.EncoderParameter(enc,
CType(System.Drawing.Imaging.EncoderValue.FrameDimensionPage, Long))


                    Dim bm As Bitmap = Image.FromFile(fl)
                    pages.SaveAdd(bm, ep)
                End If
            End If
            fl = Dir$()
        Loop


               ep.Param(0) = New
System.Drawing.Imaging.EncoderParameter(enc,
CType(System.Drawing.Imaging.EncoderValue.Flush, Long))


                pages.SaveAdd(ep)


    End Sub


My big problem now is that I was not able to find information on how I
can
also set the compression that I need for the pages of those multipage
Tif
files. For example, for the black and white images in a multipage Tiff
file,
the compression should be CCITT4, and, for the color images in a
multipage
Tif file, the compression should be JPEG medium compression with the
medium
resolution. How can it be accomplished?


Thank you very much. 


Irene S.

3.Convert image tif to bmp

4.Using MODI to convert multi-page tif to single page tif

I have thousands of multipage tif images in many subdirectories that I need 
to convert into single page tifs.  I have vba code to do this (written in MS 
Access) that loops thru the directory tree and I can access info about the 
tifs using MODI.  What I'm looking to do now is convert/save the existing 
multiple page tif to a series of single page tifs so they can be imported 
into our image repository.  Anyone know how to do this?  For example, if the 
current multiple page tif is six pages is would create six single page tifs 
(e.g. sample1_page1.tif,sample1_page2.tif,...

Thanks.

5.Convert multiple .rtf files to .tif files

I have a whole bunch of .rtf files that I want to convert to .tif
files for archiving purposes.

Is it possible to "convert" each of the .rtf files to .tif files using
the Microsoft Office Document Image Writer without opening up an
instance of MS Word? I'd like to do a "background" conversion (because
there are so many files).

Eg.:
The user would launch the application and select the source directory
where all the .rtf files are stored. Then the user clicks a "Convert"
button and the files in the directory that the user specifies are
converted to .tiff in the background.

Can this be done, or do I have to use an instance of MS Word in the
background?

6. join two tif files to one tif file

7. using Xsane to convert multipage document to single pdf file

8. Problem with ImageMigick Convert and a multipage pdf file



Return to graphics

 

Who is online

Users browsing this forum: No registered users and 17 guest