Find Jobs
Hire Freelancers

Extracting Frames From a TIF Compression Issue - 01/05/2018 13:05 EDT

$10-30 USD

Cancelled
Posted almost 6 years ago

$10-30 USD

Paid on delivery
I have the following function that is creating multipage tif files from a larger image. I need the Images to be Compression-CCITT4 images rather than the LZW this is creating. Public Sub ExtractTiffFrames(ByVal start As Integer, ByVal endX As Integer, ByVal inputFileName As String, ByVal outputFileName As String) Try Dim MasterBitmap As Bitmap = New Bitmap(inputFileName) 'Start page of document(master) Dim imageAdd As Image = [login to view URL](inputFileName) 'Frame Image that will be added to the master Dim guid As Guid = [login to view URL](0) 'GUID Dim dimension As FrameDimension = New FrameDimension(guid) ' start index cannot be less than 0 and cannot be greater than frame count If ((start < 1) _ OrElse (endX > [login to view URL](dimension))) Then Return End If Dim ep As EncoderParameters = New EncoderParameters(1) 'Get Image Codec Information Dim codecs() As ImageCodecInfo = [login to view URL] Dim codecInfo As ImageCodecInfo = codecs(3) 'image/tiff 'MultiFrame Encoding format Dim epMultiFrame As EncoderParameter = New EncoderParameter([login to view URL], CType([login to view URL], Long)) [login to view URL](0) = epMultiFrame [login to view URL](dimension, (start - 1)) [login to view URL](outputFileName, codecInfo, ep) 'create master document 'FrameDimensionPage Encoding format Dim epFrameDimensionPage As EncoderParameter = New EncoderParameter([login to view URL], CType([login to view URL], Long)) [login to view URL](0) = epFrameDimensionPage Dim i As Integer = start Do While (i < endX) [login to view URL](dimension, i) 'select next frame [login to view URL](New Bitmap(imageAdd), ep) 'add it to the master i = (i + 1) Loop 'Flush Encoding format Dim epFlush As EncoderParameter = New EncoderParameter([login to view URL], CType([login to view URL], Long)) [login to view URL](0) = epFlush [login to view URL](ep) 'flush the file Catch ex As Exception Throw ex End Try End Sub
Project ID: 16851496

About the project

1 proposal
Remote project
Active 6 yrs ago

Looking to make some money?

Benefits of bidding on Freelancer

Set your budget and timeframe
Get paid for your work
Outline your proposal
It's free to sign up and bid on jobs
1 freelancer is bidding on average $22 USD for this job
User Avatar
Hello I think I solved similar problem recently. That project involved writing TIFF with CCITT4 encoding...
$22 USD in 1 day
4.9 (589 reviews)
7.0
7.0

About the client

Flag of UNITED STATES
Conshohocken, United States
5.0
22
Payment method verified
Member since Aug 27, 2002

Client Verification

Thanks! We’ve emailed you a link to claim your free credit.
Something went wrong while sending your email. Please try again.
Registered Users Total Jobs Posted
Freelancer ® is a registered Trademark of Freelancer Technology Pty Limited (ACN 142 189 759)
Copyright © 2024 Freelancer Technology Pty Limited (ACN 142 189 759)
Loading preview
Permission granted for Geolocation.
Your login session has expired and you have been logged out. Please log in again.