Public ReadOnly Property Comments As RasterCollection(Of RasterCommentMetadata)

Dim instance As RasterImage
Dim value As RasterCollection(Of RasterCommentMetadata)
 
value = instance.Comments

public RasterCollection<RasterCommentMetadata> Comments {get;}

public:
property RasterCollection<RasterCommentMetadata^>^ Comments {
   RasterCollection<RasterCommentMetadata^>^ get();
}

Private Sub DisplayComment(ByVal comment As RasterCommentMetadata)
      Select Case comment.DataType
         Case RasterCommentMetadataDataType.Ascii
            MessageBox.Show("Comment of type " & comment.Type.ToString() & " = " & comment.ToAscii())
      End Select
   End Sub
   Public Sub CommentsExample()
      Dim codecs As RasterCodecs = New RasterCodecs()
      Dim image As RasterImage = codecs.Load(Path.Combine(LEAD_VARS.ImagesDir, "IMAGE1.CMP"))

      'Ascii
      Dim commentDataAscii As RasterCommentMetadata = New RasterCommentMetadata()
      ' set the artist comment
      commentDataAscii.Type = RasterCommentMetadataType.Artist
      commentDataAscii.FromAscii("Test String")
      image.Comments.Add(commentDataAscii)

      codecs.Options.Save.Comments = True
      codecs.Save(image, Path.Combine(LEAD_VARS.ImagesDir, "IMAGE1_COMMENTS.TIF"), RasterImageFormat.Tif, 0)
      ' load the comment together with the image

      Dim comment As RasterCommentMetadata = codecs.ReadComment(Path.Combine(LEAD_VARS.ImagesDir, "IMAGE1_COMMENTS.TIF"), 1, RasterCommentMetadataType.Artist)
      DisplayComment(comment)

      codecs.Dispose()
   End Sub

Public NotInheritable Class LEAD_VARS
   Public Const ImagesDir As String = "C:\Users\Public\Documents\LEADTOOLS Images"
End Class

private void DisplayComment(RasterCommentMetadata comment)
   {
      switch(comment.DataType)
      {
         case RasterCommentMetadataDataType.Ascii:
            MessageBox.Show("Comment of type " + comment.Type.ToString() + " = " + comment.ToAscii());
            break;
      }
   }
   public void CommentsExample()
   {
      RasterCodecs codecs = new RasterCodecs();
      RasterImage image = codecs.Load(Path.Combine(LEAD_VARS.ImagesDir, "IMAGE1.CMP"));

      //Ascii
      RasterCommentMetadata commentDataAscii = new RasterCommentMetadata();
      // set the artist comment
      commentDataAscii.Type = RasterCommentMetadataType.Artist;
      commentDataAscii.FromAscii("Test String");
      image.Comments.Add(commentDataAscii);

      codecs.Options.Save.Comments = true;
      codecs.Save(image,Path.Combine(LEAD_VARS.ImagesDir, "IMAGE1_COMMENTS.TIF"), RasterImageFormat.Tif, 0);
      // load the comment together with the image

      RasterCommentMetadata comment = codecs.ReadComment(Path.Combine(LEAD_VARS.ImagesDir, "IMAGE1_COMMENTS.TIF"), 1, RasterCommentMetadataType.Artist);
      DisplayComment(comment);

      codecs.Dispose();
   }

static class LEAD_VARS
{
   public const string ImagesDir = @"C:\Users\Public\Documents\LEADTOOLS Images";
}

private void DisplayComment(RasterCommentMetadata comment)
{
   switch (comment.DataType)
   {
      case RasterCommentMetadataDataType.Ascii:
         Debug.WriteLine("Comment of type " + comment.Type.ToString() + " = " + comment.ToAscii());
         break;
   }
}
public void CommentsExample(RasterImage image, Stream destStream)
{
   //Ascii
   RasterCommentMetadata commentDataAscii = new RasterCommentMetadata();
   // set the artist comment
   commentDataAscii.Type = RasterCommentMetadataType.Artist;
   commentDataAscii.FromAscii("Test String");
   image.Comments.Add(commentDataAscii);
   RasterCodecs codecs = new RasterCodecs();
   codecs.Options.Save.Comments = true;
   codecs.Save(image, destStream, RasterImageFormat.Tif, 0);
   // load the comment together with the image

   RasterCommentMetadata comment = codecs.ReadComment(destStream, 1, RasterCommentMetadataType.Artist);
   DisplayComment(comment);
}

Private Sub DisplayComment(ByVal comment As RasterCommentMetadata)
   Select Case comment.DataType
      Case RasterCommentMetadataDataType.Ascii
         Debug.WriteLine("Comment of type " & comment.Type.ToString() & " = " & comment.ToAscii())
   End Select
End Sub
Public Sub CommentsExample(ByVal image As RasterImage, ByVal destStream As Stream)
   'Ascii
   Dim commentDataAscii As RasterCommentMetadata = New RasterCommentMetadata()
   ' set the artist comment
   commentDataAscii.Type = RasterCommentMetadataType.Artist
   commentDataAscii.FromAscii("Test String")
   image.Comments.Add(commentDataAscii)
   Dim codecs As RasterCodecs = New RasterCodecs()
   codecs.Options.Save.Comments = True
   codecs.Save(image, destStream, RasterImageFormat.Tif, 0)
   ' load the comment together with the image

   Dim comment As RasterCommentMetadata = codecs.ReadComment(destStream, 1, RasterCommentMetadataType.Artist)
   DisplayComment(comment)
End Sub