Yes, but that's what I'm stuck with until the rewrite. ;)
Thanks Bob!
Thanks for your site--and all the GDI+ articles you have written.
Shane
"Bob Powell [MVP]" <bob@_spamkiller_bobpowell.net> wrote in message
news:eKV8bM0HFHA.236@TK2MSFTNGP14.phx.gbl...[color=blue]
> Ahh, them third party tools really throw a spanner in the works sometimes.
>
> --
> Bob Powell [MVP]
> Visual C#, System.Drawing
>
> Find great Windows Forms articles in Windows Forms Tips and Tricks
>
http://www.bobpowell.net/tipstricks.htm
>
> Answer those GDI+ questions with the GDI+ FAQ
>
http://www.bobpowell.net/faqmain.htm
>
> All new articles provide code in C# and VB.NET.
> Subscribe to the RSS feeds provided and never miss a new article.
>
>
>
>
>
> "Shane Story" <shanesREMOVETHIS@dv-corp.com> wrote in message
> news:%23g8BdH0HFHA.3244@TK2MSFTNGP09.phx.gbl...[color=green]
>> Ok, we got the right parameter. For anyone using LEAD12 in VB6 to read
>> single TIFF files, that were split form a multiframe TIFF using .NET, the
>> following code worked for us:
>>
>> We got much of it from Bob Powell's site, but had to add the CCITT4
>> encoder param for LEAD Tools 12 to read it.
>>
>> Private Sub SplitMultiTiffToSingleTiffs()
>> Try
>> Const strFilePath As String = "c:\Scratch\testfax.TIFF"
>> 'Select the image encoder
>> Dim enc As Encoder = Encoder.SaveFlag
>> Dim info As ImageCodecInfo = Nothing
>> Dim ice As ImageCodecInfo
>>
>> For Each ice In ImageCodecInfo.GetImageEncoders()
>> If ice.MimeType = "image/tiff" Then
>> info = ice
>> End If
>> Next ice
>>
>> Dim MyEncorderParam As EncoderParameter = New
>> EncoderParameter(Encoder.Compression, CLng _
>> (EncoderValue.CompressionCCITT4))
>> Dim encParams As EncoderParameters = New EncoderParameters(1)
>> encParams.Param(0) = MyEncorderParam
>>
>> 'load the file
>> Dim multi As Image = Image.FromFile(strFilePath)
>>
>> 'if we have more than one page
>> If multi.GetFrameCount(FrameDimension.Page) > 1 Then
>> Dim i As Integer
>> ' 'loop through each page
>> For i = 0 To (multi.GetFrameCount(FrameDimension.Page)) -
>> 1
>> 'get the current page in the TIFF
>> multi.SelectActiveFrame(FrameDimension.Page, i)
>> multi.Save(String.Format("c:\scratch\Page{0}.tiff" ,
>> i), info, encParams)
>> Next i
>> End If
>> multi.Dispose()
>> Catch ex As Exception
>> MsgBox("Exception->: " & ex.Message, MsgBoxStyle.Information)
>> End Try
>> End Sub
>>
>> "Bob Powell [MVP]" <bob@_spamkiller_bobpowell.net> wrote in message
>> news:%235aF2trHFHA.4048@TK2MSFTNGP15.phx.gbl...[color=darkred]
>>> Take a look at the application that accompanies my article on how to add
>>> pages to a multi-frame TIFF.
>>>
>>> It's in the GDI+ FAQ. See the DoOpen method.
>>>
>>> Code is in C# and VB.
>>>
>>> --
>>> Bob Powell [MVP]
>>> Visual C#, System.Drawing
>>>
>>> Find great Windows Forms articles in Windows Forms Tips and Tricks
>>>
http://www.bobpowell.net/tipstricks.htm
>>>
>>> Answer those GDI+ questions with the GDI+ FAQ
>>>
http://www.bobpowell.net/faqmain.htm
>>>
>>> All new articles provide code in C# and VB.NET.
>>> Subscribe to the RSS feeds provided and never miss a new article.
>>>
>>>
>>>
>>>
>>>
>>> "Shane Story" <shanesREMOVETHIS@dv-corp.com> wrote in message
>>> news:e9bztwpHFHA.1980@TK2MSFTNGP10.phx.gbl...
>>>>I can seem to get the dimensions of a frame in a multiframe tiff.
>>>>
>>>> After selecting activeframe, the Width/Height is still really much
>>>> larger than the page's actual dimensions.
>>>>
>>>> When I split a TIFF to several PNG files this causes a problem, becuase
>>>> the resulting image is (the page to the far left and a lot of black
>>>> space surrounding it and a filesize that is larger than needed.
>>>>
>>>> Any ideas?
>>>>
>>>> Any way to get the dimensions of this page/frame?
>>>>
>>>> Thanks,
>>>>
>>>> Shane
>>>>
>>>
>>>[/color]
>>
>>[/color]
>
>[/color]
