ReadComment(string,int,RasterCommentMetadataType) Method

Imports Leadtools 
Imports Leadtools.Codecs 
Imports Leadtools.ImageProcessing 
Imports Leadtools.ImageProcessing.Color 
Imports Leadtools.Drawing 
Imports Leadtools.Svg 
 
Public Sub CommentsExample() 
   Dim codecs As RasterCodecs = New RasterCodecs() 
 
   Dim srcFileName As String = Path.Combine(LEAD_VARS.ImagesDir, "Image1.cmp") 
   Dim destFileName As String = Path.Combine(LEAD_VARS.ImagesDir, "Image1_Comments.tif") 
 
   ' Convert the source file to TIF 
   Console.WriteLine("Converting the source file to TIF") 
   codecs.Convert(srcFileName, destFileName, RasterImageFormat.Tif, 0, 0, 24, Nothing) 
 
   ' Add the artist comment 
   Dim writeComment As RasterCommentMetadata = New RasterCommentMetadata() 
   writeComment.Type = RasterCommentMetadataType.Artist 
   writeComment.FromAscii("LEADTOOLS") 
 
   Console.WriteLine("Writing the following comment:") 
   Console.WriteLine(" Type:{0}, Data:{1}", writeComment.Type, writeComment.ToAscii()) 
 
   codecs.WriteComment(destFileName, 1, writeComment) 
 
   ' Read the comment back 
   Dim readComment As RasterCommentMetadata = codecs.ReadComment(destFileName, 1, RasterCommentMetadataType.Artist) 
   Console.WriteLine("The following comment has been read:") 
   Console.WriteLine(" Type:{0}, Data:{1}", readComment.Type, readComment.ToAscii()) 
 
   ' Write a few comments to the file in one pass 
   Dim comments As RasterCollection(Of RasterCommentMetadata) = New RasterCollection(Of RasterCommentMetadata)() 
   writeComment = New RasterCommentMetadata() 
   writeComment.Type = RasterCommentMetadataType.Artist 
   writeComment.FromAscii("LEADTOOLS Again") 
   comments.Add(writeComment) 
 
   writeComment = New RasterCommentMetadata() 
   writeComment.Type = RasterCommentMetadataType.Copyright 
   writeComment.FromAscii("(c) 2006") 
   comments.Add(writeComment) 
 
   Console.WriteLine("Writing the following comments to the file:") 
   For Each comment As RasterCommentMetadata In comments 
      Console.WriteLine(" Type:{0}, Data:{1}", comment.Type, comment.ToAscii()) 
   Next comment 
 
   codecs.WriteComments(destFileName, 1, comments) 
 
   ' Now get all the comments in the file and show them: 
   Console.WriteLine("Reading all comments from the file:") 
 
   Dim tifComments As RasterCommentMetadataType() = 
   { 
      RasterCommentMetadataType.Artist, 
      RasterCommentMetadataType.Copyright, 
      RasterCommentMetadataType.DateTime, 
      RasterCommentMetadataType.Description, 
      RasterCommentMetadataType.HostComputer, 
      RasterCommentMetadataType.Make, 
      RasterCommentMetadataType.Model, 
      RasterCommentMetadataType.NameOfDocument, 
      RasterCommentMetadataType.NameOfPage, 
      RasterCommentMetadataType.Software 
   } 
 
   For Each tifComment As RasterCommentMetadataType In tifComments 
      Dim comment As RasterCommentMetadata = codecs.ReadComment(destFileName, 1, tifComment) 
      If Not comment Is Nothing Then 
         Console.Write("Found comment, Type:{0}, Data:", comment.Type) 
 
         Dim dataType As RasterCommentMetadataDataType = RasterCommentMetadata.GetDataType(comment.Type) 
 
         Dim byteData As Byte() 
         Dim shortData As Short() 
         Dim rationalData As RasterMetadataRational() 
         Dim urationalData As RasterMetadataURational() 
 
         Select Case dataType 
            Case RasterCommentMetadataDataType.Ascii 
               Console.WriteLine(comment.ToAscii()) 
 
            Case RasterCommentMetadataDataType.Byte 
               byteData = comment.ToByte() 
               Dim i As Integer = 0 
               Do While i < byteData.Length 
                  Console.Write("{0:X} ", byteData(i)) 
                  i += 1 
               Loop 
               Console.WriteLine() 
 
            Case RasterCommentMetadataDataType.Int16 
               shortData = comment.ToInt16() 
               Dim i As Integer = 0 
               Do While i < shortData.Length 
                  Console.Write("{0:X} ", shortData(i)) 
                  i += 1 
               Loop 
               Console.WriteLine() 
 
            Case RasterCommentMetadataDataType.Rational 
               rationalData = comment.ToRational() 
               Dim i As Integer = 0 
               Do While i < rationalData.Length 
                  Console.Write("{0}/{1) ", rationalData(i).Numerator, rationalData(i).Denominator) 
                  i += 1 
               Loop 
               Console.WriteLine() 
 
            Case RasterCommentMetadataDataType.URational 
               urationalData = comment.ToURational() 
               Dim i As Integer = 0 
               Do While i < urationalData.Length 
                  Console.Write("{0}/{1) ", urationalData(i).Numerator, urationalData(i).Denominator) 
                  i += 1 
               Loop 
               Console.WriteLine() 
         End Select 
      End If 
   Next tifComment 
 
   ' Clean up 
   codecs.Dispose() 
End Sub 
 
Public NotInheritable Class LEAD_VARS 
   Public Const ImagesDir As String = "C:\Users\Public\Documents\LEADTOOLS Images" 
End Class