Handling Tiff Document With Vb6
Heyz,
this is still about my current project. have done most of the looping stuffs with alot of help already. now i've got another problem. something i've never faced and done before.
there's this .tiff document file which i have to retrieve the number of "appended" pages within this doc. all this have to be coded in vb6. how do i even start coding to retrieve the number of pages in 1 .tiff document?
will greatly appreciate any help here.. thz.. =)
btw.. wish to thank buzzsaw for the codes he gave me in my other "loop" thread..
thz..
View Complete Forum Thread with Replies
See Related Forum Messages: Follow the Links Below to View Complete Thread
Tiff Handling With GDI+
Hi, I downloaded the very nice gdi+ type library for vb6 and used it for
same simple problems but now I'm facing with something that probably is too big for me.
I need a function that, given two Black and white 200 dpi tiff-g4 images, put these images in a single multitiff-g4 and resample it at 100 dpi (possibly making a rotation of 90 degree). I get the two input images with a binary get
into a string variable in order to make some checks but I could also load them directly from a file (if this is more simple).
I have idea that these operations can be done with few calls to the
gdi+ lib but I don't know how.
I really hope that you can help me ! Thanks.
Multiple Document Handling...
Ok this is just a performance question... my application is multi-document-based
so i need to have a good new document handle and close document handle...
I have 2 questions:
1) Is this a good way to have the new document to work?
MDI Form Code:
Code:
Private Sub mnunew_Click()
freei = FreeIndex()
If freei = 0 Then
freei = 1
ReDim Doc(1 To 1)
ReDim frmState(1 To 1)
End If
Doc(freei).Changed = False
Doc(freei).Tag = freei
Doc(freei).Caption = "Untitled " & Doc(freei).Tag
Doc(freei).Show
End Sub
Module Code:
Code:
Public Doc() As New frmDocument
Public freei As Integer
Public formsno As Integer
Public Type FormState
Deleted As Boolean
End Type
Public frmState() As FormState
Function FreeIndex() As Integer
On Error GoTo errsub
Dim i As Integer
Dim ArrayCount As Integer
ArrayCount = UBound(Doc)
For i = 1 To ArrayCount
If frmState(i).Deleted Then
FreeIndex = i
frmState(i).Deleted = False
Exit Function
End If
Next
ReDim Preserve Doc(1 To ArrayCount + 1)
ReDim Preserve frmState(1 To ArrayCount + 1)
FreeIndex = UBound(Doc)
Exit Function
errsub:
FreeIndex = 0
End Function
And 2) how would i go about changing something for all the opened documents?
Just a for 1 to ubound(doc)?
Or is there a better way??
Thx in advance guys!!
Handling Word Document From VB
Handling of Word Document form Visual Basic.
Specially changing Print relate properties of document from vb application
thanx in advance.
FTC Developer
Compressed TIFF Vs Normal TIFF
I'm currently writing an app using the Wang/Eastman/Kodak OCX group. It needs to handle full scanning capabilities, including OCR, and archiving the scanned documents. The scanning and OCR componets weren't to difficult to incorporate, however when it came time to store the scanned documents I ran into a storage size problem. The problem being, I have to use TIFF format to store the documents in their original size, colour, and multiple pages. No matter what compression method I use, the size of the files are completely unacceptable!
What I found however is that the scanning software that came with the HP scanners offered a save type for Compressed TIFFs, which have a very reduced size compared to normal TIFF files. My question is, what compression methods do they use to make the files so small??
Anyone with info on this or any other ideas to keep my files sizes please respond.
Thanks.
How To Clear A Webbrowser Document Made With Document.write Commands
I'm using document.write to populate a Webbrowser object with HTML. How do I clear it so that the next Write command replaces what's already showing rather than adding to the end of what's already there? - Andy
___________________________________________________________________
If you think nobody cares you're alive, try missing a couple of mortgage payments
MS Word 2000: Closing Forms In A Document From Another Document With Code
I have a project, in which I use a global template to manipulate different other templates. In those templates there are Userforms built in to gather information to use in a MailMerge. The problem I'm having is that I want only to hide the forms in the templates themselves, and close them in the global template when the whole application is closed. The trouble is that I can't find a way to access the open forms from the global template. Can anybody help me?
Tiff
Is there a way to open a .TIFF image in VB? It seems that Image and Picturebox controls don't support this format.
Cm.
VB Tiff
I am using VB.net, and am writing a program that takes tiff files from a folder, combines them into a single tiff file, and then faxes them. In order for the faxcomex library to accept a tiff as a fax body, the tiff file must either be uncompressed or use compression 4, and must have a width of 1728 pixels. The tiff files I am working with do not have that width. Thus, I need to write a function which changes the width. I tried using this:
Dim TmpImage As New Bitmap("c:1.tif")
Dim NewImage As New Bitmap(TmpImage, New Size(1728, 2200))
NewImage.Save("c:2.tif", Imaging.ImageFormat.Tiff)
The problem here is that although the size is changed, it also changes the compression to lzw, which I cannot use. I did some searching on the net and came up with this:
Dim codec As Imaging.ImageCodecInfo = GetEncoderInfo("image/tiff")
Dim imgPrms As New Imaging.EncoderParameters(2)
imgPrms.Param(0) = New Imaging.EncoderParameter(Imaging.Encoder.ColorDepth, 1L)
imgPrms.Param(1) = New Imaging.EncoderParameter(Imaging.Encoder.Compression, Imaging.EncoderValue.CompressionCCITT4)
Dim TmpImage As New Bitmap("c:1.tif")
Dim NewImage As New Bitmap(TmpImage, New Size(1728, 2200))
NewImage.Save("c:2.tif", codec, imgPrms)
Private Function GetEncoderInfo(ByRef mimeType As String) As Imaging.ImageCodecInfo
For Each ice As Imaging.ImageCodecInfo In Imaging.ImageCodecInfo.GetImageEncoders()
If ice.MimeType.Equals(mimeType) Then
Return ice
End If
Next
Throw New Exception(mimeType + " mime type not found in ImageCodecInfo")
End Function
End Class
However, when this is run, it returns an error of "invalid parameter". I have tried this both with and without the color depth parameter. I tried using the image variable type instead of bitmap, and it saved properly. The problem here is that there does not seem to be a way to modify the size of the image when using the image type, which was the whole point in the first place. I then discovered that it was not the fact that I was using type bitmap that caused the problem. It's the resizing. If I don't resize the image, it goes through fine, but once again, the resizing is the whole point. So, I'm stuck -- I can either have the right compression and the wrong size, or the right size and the wrong compression. I could really use some help.
Thanks
Tiff To Jpg
Hi to everyone
I have to convert a *.tif file to a *.jpg one.
Using the SaveAs method of the ImgEdit control (from Kodak), i can save my *tif file to a *.bmp.
If i try to save it to jpg the control return this error:
Internal Control Error.
How can I solve this problem?
Exist another control that can make this file conversion?
I tried the ImageMagick library, but i was unable to find the ImagMagickObject.dll wich is the one that expose the method to VB.
Someone can Help me?
Thanks a lot.
Simone.
PDF To Tiff
Need a little help on a batch command. I am useing a 3rd party ocx that will allow me to open a pdf image and save it as a tiff. I load the pdf images in a listbox and have to save them one at a time which works good but I would like to be able to save them in a batch mode with the file name if that would be possible. Any help on this would be great. Here is my save code mabe someone in this form can help or guide me in the right direction. Thanks
vb Code:
Private Sub Command1_Click()On Error Resume NextMe.CommonDialog2.ShowSaveMe.CommonDialog2.Filter = "Tif (*.tif)|*.tif|"Me.CommonDialog2.FilterIndex = 2strFile = Me.CommonDialog2.FileNamestrType = Trim(cbooutputimage.List(cbooutputimage.ListIndex))ImageViewer1.View = 5ImageViewer1.ImageDPI = 200If cbooutputimage.List(cbooutputimage.ListIndex) = "ICO" Thena = Me.ImageViewer1.SaveBySize(strFile, "ico", 32, 32)Elsea = Me.ImageViewer1.Save(strFile, strType)End IfList2.RemoveItem (FileName)List2.RefreshList2.Selected(Value) = TrueImageViewer1.View = 9End Sub
Tiff
Is there anybody who can show me how to split multipage TIFF image files into single page TIFF images using VB ???
Do not want to use KODAK controls to achieve it, i know i can use them to do this thing. But they are extremely slow.
I tried a lot of other things, could not do it. And i am not ready to believe that it cannot be done.
Using Tiff In Vb
I wonder if it's possible somehow to read tiff format images into a picture box, image box or something???
TIFF Help
Dear friends,
I need some help in displaying TIFF in VB application and also how
to display the scanned document from the same. I will be highly
thankfull if anyone send me the code or tutorial for this.
skdeka
PDF To TIFF
Is it possible without the use of third part controls to convert a pdf document to a tiff? Any help is greatly appreciated.
Swi
PDF To Tiff
Hello all,
Are there any freeware OCXs or code, etc to convert PDF files to TIFF from
within VB6.
Thanks,
Kim
Tiff To PDF
I am trying to convert a tif file into pdf file can any one please help?
Making A Document As Active Document And Save It
A power point presentation is exported to word using vb powerpoint and word libraries.the problem is the ppt got exported to word and is opened as Document1.how to make this as active document so that i can save it and get the path for further use.this is a problem which needs to be solved very soon.
Opening Tiff And Pdf
Hi! I would like to ask for someone to help me on how to open a .tiff and .pdf file inside a visualbasic prog.
Thank you in advance. I will appreciate any help.
Converting From TIFF On VB5
Okay. Here is what might be a challenge.
I have to write a version of a program that can display TIFF images out of a database on a Windows NT 3.51 workstation.
Problem #1 - StdPicture object does not support TIFF
Problem #2 - GDIPlus.DLL does not run on NT 3.51, so using that to convert the TIFF to BMP or something is out of the question.
Anyone have any ideas on where I can look to convert those images?
Thanks
Art DeBuigny
TIFF Writer
Somebody tell me how to write TIFF File in Big-endian format. By problem is i am able to read the file, now i have add some tag values and re write the file at the same time if that file is a multi page then have to split into seperate files. If somebody have source code it will be great help for me.
Thanking you
Srinivas.
Need Help With 16 Bit TIFF Format
Hi,
I am wondering if anyone knows whether it's possible to deal with 16 bit/pixel tiff images in Visual Basic 6, running on Windows XP, without having to resort to storing the image in an array and then iterating through that array and painting each pixel one after the other?
I understand there is a Kodak Image Edit component on Windows 2K, but I'm not even sure it deals with 16 bit images.
Any ideas, anyone?
TIFF BItmap
I am trying to get to the bitmap of a TIFF file in VB6.
I can Display the image using the MiDocView Control but I would like to access the pixels in order to determine if a box is filled in or not(black or white).
Could someone point me at a control that gives me access to the bitmap of a TIFF image?
.tiff Files
Well, hello again... I'm posting this under extreme emergency... I need to know if there is a way to open up .tiff images in visual basic, and convert them to .bmp images... How would I save the image? Would I use an API? If so, which one?
Need Help With PDF->TIFF Conversion App
I have a LOT(1000+/batch) of multi-page color PDF's that I need to convert to multipage TIFF's (B&W is ok). It also needs to merge many pages of tiff to a single multi-page tiff file. Currently I am using Snowbound software and it is total crap, do you guys have any other tools out there that could help me?
An API would be the best benefit here, command line is not really the best.
BTW- cost does not matter much, something less than $5,000 would be nice tho.
Thanks
-Steve
Converting TIFF To PDF ?
I have a custom document imaging program that uses multi-page tiff files. In the past we have printed or faxed these files. Now, there is the need to email them as well. Does anyone know if it is possible to convert the tiff files to pdf and attach to an email? I'm sure there is a conversion component availabe, but I have not found it yet.
Thanks
PostScript To Tiff ?..?
Does anyone out there know of an inexpensive PostScript to Tiff converter? One that I can just either buy a developer license or license on a one time basis per machine. Software995 is yearly, and I'm not sure what GhostScript costs, maybe that is a solution. I have been searching and getting no where, any help is appreciated.
Help On TIFF Files
Hi! I would like to ask on how to view/print TIFF files and integrate it in a form.
What controls should I use? Could you me a links or a sample code... thanks!
I would appreciate any inputs.
Convert Pdf To Tiff
hi friends
i need to convert pdf files to tiff files through vb6
i tried the code blow:
Private Sub cmd1_Click()
Dim UDCPrinter As New UDCWRAPPERLib.Printer
Dim UDCProfile As UDCWRAPPERLib.Profile
UDCPrinter.PrinterName = "Universal Document Converter"
Set UDCProfile = UDCPrinter.Profile(UDCPrinter.DefaultProfile)
UDCProfile.PreDefinedImageFilePath = "d:Didar"
UDCProfile.PreDefinedImageFileName = "formulasfunctions.pdf"
UDCProfile.ShowProgressWnd = 1
UDCProfile.ImageFileFormat = FMT_TIFF
UDCProfile.MultiPageMode(FMT_TIFF) = MM_ONE_DOCUMENT
UDCProfile.ImageFileColorDepth(FMT_TIFF) = 1
UDCProfile.DitherImage(FMT_TIFF) = 0
UDCProfile.CompressionMethod(FMT_TIFF) = CMP_CCITT_FAX4
UDCProfile.ExportToFile ("d:didarabc.tiff")
End Sub
but it is creating a blank tiff file (with no content)
would you please help me
Polash
TIFF Operations
I would like to get any of the following done:
Break up multiple page tiff files into single tiffs
or
Read in a multiple page tiff, convert per page to BMP so i can resave to single tiffs
I would like to avoid using any controls, as i am developing under XP so kodak or windows imaging probably won't be an option.
my ultimate aim is get multiple page tiff file into single page tiff files. Since i know it's not feasible in vb I would like to try substeps for example
convert each page to bmp and then resave to tiff
or
loading up tiff on screen, taking it pixel by pixel and reconstructing each page in another control to save as tiff.
or
i don't know, whatever works even if it's a detour.
I am working with 1 multiple page diff file at a time, so speed isn't the biggest factor, it's functionality:P
Thanks in advance!
Tiff FIles
I found this:
PageNumber
Tag = 297 (129)
Type = SHORT
N = 2
This tag is used to specify page numbers of a multiple page (e.g.
facsimile) document. Two SHORT values are specified. The first
value is the page number; the second value is the total number of
pages in the document.
Now, is this the info i need to extract the number of pages a multipage tiff contains? if so, how do i put it into code? Ive been trying for ages
TIfF Files
Hi,
Has anyone worked on TIFF Files? Is there a method in Visual Basic to determine if the file is a tiff or not? I do not mean just reading the extension.
-Abhijit
Merge TIFF
Guys,
We have 10 separate TIF Images on my Hard Drive. Is there any way i could merge those Images as 1 Multipage TIFF Image File ???
XP Tiff Viewer
Anyone know of a TIFF viewer for WinXP (for VB6)? I wanted to use the Kodak/Wang/Eistream ImgEdit control, however it doesn't appear to be present.
I did a full install of WinXP Pro and full install of VS6 Pro. The ImgEdit control is not available in the controls list and I can't find the libraries anywhere on the hard drive. I would use something from Pegasus, but I really don't think it's worth $349 just to add a TIFF viewer to my application.
Any suggestions appreciated.
Gif To Tiff Conversion
I need to convert a gif file to a tiff format on click of command button?
Are there any ocx available?
Tiff File
Hi,
This might be a tough one for you all, but I require some software or vb code that can read in a TIFF file and measure the image at certain points for density. ie, what percentage is not white space on a specific line of the image.
anyone help?
TIFF Viewer
I have several TIFF documents that I would like to view in an Internet Explorer browser window. First question is:
Is there a picture box that can display .tif documents?
and my second question is:
How do you create an active X Internet Explorer plugin to allow
my users to be able to view .tif docs directly from the browser?
Thanks!
.tiff And .mil Images
Could someone help me out with how to view tiff and mil images with the picture control.
Thanks,
JO
Tiff Images
I have an image viewing software called FastLook. I need to make an app that will use FastLooks viewing window (and controls)to view tiff images or make an app that I can add to FastLook. Can anyone help me get pointed in the right direction.
Thanks,
JO
Multipage Tiff
hi everybady
i need to get a real answer about the limit of pages that can i append them to a multipage tiff file , & memory cost
thanks in advance
Tiff On Picture Box
is it possible to view a tiff file in a picture box?
coz im having problems veiwing it..
for im making a tiff viewer without using any third party control..
VB & Tiff Files
Hi fellows,
Is there anybody that can help me on that ?
I have a tiff 4 image that must be showed in a
VB form. I don't know how. Could somebody
help me.
Thanks
Roger
Dimensions Of A TIFF
Hi,
I'm using VB within ESRI ArcGIS which is a little limited in its functionality. I need a way of obtaining the dimensions of a TIFF without loading it into a picture box. Perhaps read as raw data or through a control I'm not sure. I've found ways to do BMPs, JPEGs and GIFs as follows...
Dim myPicture As IPictureDisp
Set myPicture = LoadPicture(TextBox1 & TextBox11)
i_width = MulDiv(myPicture.Width, 1440, 2540) / 15
i_height = MulDiv(myPicture.Height, 1440, 2540) / 15
Set myPicture = Nothing
but this method does not work for TIFFS as it says it's an invalid picture type. Can someone help me out?
Thanks,
Mike
|
TRACKER
