ImageEn for Delphi and C++ Builder ImageEn for Delphi and C++ Builder

 

ImageEn Forum
Profile    Join    Active Topics    Forum FAQ    Search this forumSearch
 All Forums
 ImageEn Library for Delphi, C++ and .Net
 ImageEn and IEvolution Support Forum
 Color Images to BW and ioTIFF_G4FAX

Note: You must be registered in order to post a reply.
To register, click here. Registration is FREE!

View 
UserName:
Password:
Format  Bold Italicized Underline  Align Left Centered Align Right  Horizontal Rule  Insert Hyperlink   Browse for an image to attach to your post Browse for a zip to attach to your post Insert Code  Insert Quote Insert List
   
Message 

 

Emoji
Smile [:)] Big Smile [:D] Cool [8D] Blush [:I]
Tongue [:P] Evil [):] Wink [;)] Black Eye [B)]
Frown [:(] Shocked [:0] Angry [:(!] Sleepy [|)]
Kisses [:X] Approve [^] Disapprove [V] Question [?]

 
Check here to subscribe to this topic.
   

T O P I C    R E V I E W
lzehnder Posted - Dec 26 2013 : 03:40:19
Hello,

for a Multifiles Tiff in Color, i Try to save in BW with the compression ioTIFF_G4FAX.

The BW conversion is ok but in the file the compression is none.

ImageEnMView1.MIO.LoadFromFileAuto(FFileName);

for iCount := 0 to ImageEnMView1.ImageCount -1 do
begin
ImageEnMView1.SelectedImage := iCount;
ImageEnMView1.Proc.ConvertToBWThreshold(128);
ImageEnMView1.MIO.Params[iCount].TIFF_Compression := ioTIFF_G4FAX;
ImageEnMView1.MIO.Params[iCount].TIFF_PhotometInterpret := ioTIFF_BLACKISZERO;
ImageEnMView1.MIO.Params[iCount].BitsPerSample := 1;
ImageEnMView1.MIO.Params[iCount].SamplesPerPixel := 1;
end;
ImageEnMView1.MIO.SaveToFile(SaveImageEnDialog1.FileName);

Thank You.
1   L A T E S T    R E P L I E S    (Newest First)
stwizard Posted - Jan 13 2014 : 08:16:45
Since no one else has answered try this:

ImageEnMView1.MIO.LoadFromFileAuto(FFileName);

for iCount := 0 to ImageEnMView1.ImageCount -1 do
begin
ImageEnMView1.SelectedImage := iCount;
ImageEnMView1.Proc.ConvertToBWThreshold(128);
ImageEnMView1.MIO.Params[iCount].TIFF_PhotometInterpret := ioTIFF_BLACKISZERO;
end;

ImageEnMView1.MIO.Params[0].TIFF_Compression := ioTIFF_G4FAX;
ImageEnMView1.MIO.Params[0].BitsPerSample := 1;
ImageEnMView1.MIO.Params[0].SamplesPerPixel := 1;
ImageEnMView1.MIO.SaveToFile(SaveImageEnDialog1.FileName);