Create, Save Tiff Image & Extract Images From TIFF Image

Friend Sub ImagesToTiff(fileName As String, images As Image(), isMultiIFrame As Boolean)

       ' Define an EncoderParameters array
       Dim encoderParams As New EncoderParameters(1)

       ' Define ImageCodecInfo to retrieve information about image encoders and decoder
       Dim encoderInfo As ImageCodecInfo = ImageCodecInfo.GetImageEncoders().First(Function(ie) ie.MimeType = "image/tiff")

       '  define tiff image
       Dim tiff As Image = CType(Nothing, Image)

       ' define the top bitmap
       Dim masterBitmap As Bitmap = CType(Nothing, Image)
       If isMultiIFrame Then
           Dim i As Integer = 0
           While i < images.Length
               If i = 0 Then
                   ' save the top bitmap/frame
                   Dim firstStream As New IO.MemoryStream
                   masterBitmap = images(i)
                   masterBitmap.Save(firstStream, ImageFormat.Tiff)
                   tiff = Image.FromStream(firstStream)
                   encoderParams.Param(0) = New EncoderParameter(Encoder.SaveFlag, CType(EncoderValue.MultiFrame, EncoderParameterValueType))
                   tiff.Save(fileName, encoderInfo, encoderParams)
               Else
                   encoderParams.Param(0) = New EncoderParameter(Encoder.SaveFlag, CType(EncoderValue.FrameDimensionPage, EncoderParameterValueType))
                   Dim secondStream As New IO.MemoryStream
                   Dim img As Image = CType(images(i), Image)
                   img.Save(secondStream, ImageFormat.Tiff)

                   ' add and save more frames to the file or stream specified in a previous call to the Save method.
                   Using frame As Image = Image.FromStream(secondStream)
                       tiff.SaveAdd(frame, encoderParams)
                   End Using

               End If
               If i = images.Length - 1 Then
                   encoderParams.Param(0) = New EncoderParameter(Encoder.SaveFlag, CType(EncoderValue.Flush, EncoderParameterValueType))
                   tiff.SaveAdd(encoderParams)
               End If
               i += 1
           End While
       Else

           Dim j As Integer = 0
           While j < images.Length
               Dim thirdStream As New IO.MemoryStream
               Dim img As Image = CType(images(j), Image)
               img.Save(thirdStream, ImageFormat.Tiff)
               Using frame As Image = Image.FromStream(thirdStream)
                   frame.Save(fileName, ImageFormat.Tiff)
               End Using
               j += 1
           End While
       End If
   End Sub



Friend Sub TiffToImages(fileName As String)
       If IsMultFrameImage(Image.FromFile(fileName)) Then
           Using ImageFile As Image = Image.FromFile(fileName).Clone
               Dim frameDimensions As New FrameDimension(ImageFile.FrameDimensionsList(0))
               Dim count As Integer = ImageFile.GetFrameCount(frameDimensions)
               Dim names As String() = New String(count) {}
               Dim frame As Integer = 0
               While frame < count
                   ImageFile.SelectActiveFrame(frameDimensions, frame)
                   Using bmp As New Bitmap(ImageFile)
                       names(frame) = String.Format("{0}\{1}{2}.jpeg", IO.Path.GetDirectoryName(fileName), IO.Path.GetFileNameWithoutExtension(fileName), frame)
                       bmp.Save(names(frame), ImageFormat.Jpeg)
                   End Using
                   frame += 1
               End While
           End Using
       End If
   End Sub




   Friend Function IsMultFrameImage(img As Image) As Boolean
       Return img IsNot Nothing AndAlso img.RawFormat.Guid = ImageFormat.Tiff.Guid AndAlso ((img.GetFrameCount(New FrameDimension(img.FrameDimensionsList(0)))) > 1)
   End Function



Usage of the Code:
Dim images As Image() = New Image() {My.Resources.tmp_0.Clone(), My.Resources.tmp_1.Clone(), My.Resources.tmp_2, My.Resources.tmp_3.Clone()}

      Dim fileName As String = ".\egyptFlag.tiff"
      ImagesToTiff(fileName, images, True)

      TiffToImages(fileName)

Comments

Post a Comment

Popular posts from this blog

مقدمة الي تشفير الحروف الأبجدية العربية

مقدمة الحروف العربية مظلومة قليلا و غاليا اي مبرمج يعاني أحيانا في التعامل مع الحروف العربية تحديدا او قد يعاني أيضا حين  يريد التعامل مع اي حروف مكتوبة بلغة أخري غير اللغة الإنجليزية و في هذا الموضوح سأحاول أن أوضح كيفية تشفير الحروف العربية فقط الفكرة الحروف بشكل عام لها جداول وداخل هذه الجداول ستجد أن الحروف مرتبة برقم مسلسل و ايضا لها رقم  سداسي عشري  أو بمعني أدق كل حرف في جداول الحروف له مميزات يتم استخدامها للتفريق بينه و بين باق الحروف الأمثلة التالية توضح كيفية الحصول علي الرقم المسلسل الخاص بأي حرف مثال 1: الكود التالي يوضح مثال بسيط لكيفية الحصول علي الرقم المسلسل الخاص بحرف الياء التي تحتها نقطتان Dim c  As  Char  =  "ي" c Me . Text  =  Convert . ToInt32 ( c ) مثال 2: أيضا الكود التالي يوضح كيفية الحصول علي الرقم المسلسل الخاص بحرف الهمزة Dim c  As  Char  =  "ء" c Me . Text  =  Convert . ToInt32 ( c ) من الأمثلة أعلاه ستكتشف ان الرقم المسلسل بالحروف العربية يبدأ من الرقم 1569 , وينتهي بالرقم 1610 الملحوظة الهامة هنا هي أن الرقم
Read more

VB.NET Translucent Control using GDI+

Image
Introduction The main purpose of this article is to show how to build your own Transparent Control in VB.NET by extending the control through inheritance . Also, the class might be used as a base class to build your own custom transparent controls such as PictureBox , Button , Panel , .....etc. Background Since the Windows Form Control is the only control that supports transparency through its Opacity property, I decided to utilize the same strategy to build a control that supports transparency. I saw so many articles talks about the transparency of the control, and I had studied most of the techniques which discuss the same issue and some of these techniques are listed below: To call InvokePaintBackground of the control’s parent and override the OnPaintBackground event. To draw image which supports transparency to avoid the issues due to double buffering and flickering? To override CreateParams property, set ExStyle value to support transparency and on OnPa
Read more

Add Custom Event to a Class in VB.NET

Introduction This article demonstrates how to add a Custom Event to a Class in VB.NET and use it by any means in your code. On January 2010, I wrote an article in Arabic language about how to handle Custom Event in VB.NET either within a Class or within a Component/Control and I would like to share the same thoughts with my CodeProject colleagues. It might be helpful for somebody. Background According to MSDN to handle an Event or more than an Event, the following procedures shall be followed: Define a delegate collection within the class that raises the events. Define a key for each event. Define the event properties in the class that raises the events. Use the delegate collection to implement add and remove accessor methods for the event properties. Use the public event properties to add and remove event handler delegates in the classes that handle the events. Actually adding or handling a Public Event within a Class is a very simple issue, but handling a Custom Eve
Read more