Public ReadOnly Property Tags As RasterCollection(Of RasterTagMetadata)

Dim instance As RasterImage
Dim value As RasterCollection(Of RasterTagMetadata)
 
value = instance.Tags

public RasterCollection<RasterTagMetadata> Tags {get;}

public:
property RasterCollection<RasterTagMetadata^>^ Tags {
   RasterCollection<RasterTagMetadata^>^ get();
}

Private Sub DisplayTag(ByVal tag As RasterTagMetadata)
      Select Case tag.DataType
         Case RasterTagMetadataDataType.Ascii
            MessageBox.Show("Tag " & tag.Id.ToString() & " = " & tag.ToAscii())
         Case RasterTagMetadataDataType.Byte
            MessageBox.Show("Tag " & tag.Id.ToString() & " = " & tag.ToByte()(0).ToString())
      End Select
   End Sub
   Public Sub TagsExample()
      Dim codecs As RasterCodecs = New RasterCodecs()
      Dim image As RasterImage = codecs.Load(Path.Combine(LEAD_VARS.ImagesDir, "IMAGE1.CMP"))

      'Ascii
      Dim tagDataAscii As RasterTagMetadata = New RasterTagMetadata()
      ' set the Copyright tag
      tagDataAscii.Id = &H8000
      tagDataAscii.DataType = RasterTagMetadataDataType.Ascii
      tagDataAscii.FromAscii("Test String")
      image.Tags.Add(tagDataAscii)

      'Byte
      Dim tagDataByte As RasterTagMetadata = tagDataAscii.Clone()
      tagDataAscii.Id = &H8001
      tagDataByte.DataType = RasterTagMetadataDataType.Byte
      Dim byteArray As Byte() = New Byte(0) {}
      byteArray(0) = 10
      tagDataByte.FromByte(byteArray)
      image.Tags.Add(tagDataByte)

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

      Dim tag As RasterTagMetadata = codecs.ReadTag(Path.Combine(LEAD_VARS.ImagesDir, "IMAGE1_TAGS.TIF"), 1, &H8000)
      DisplayTag(tag)
      tag = codecs.ReadTag(Path.Combine(LEAD_VARS.ImagesDir, "IMAGE1_TAGS.TIF"), 1, &H8001)
      DisplayTag(tag)

      codecs.Dispose()
   End Sub

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

private void DisplayTag(RasterTagMetadata tag)
   {
      switch(tag.DataType)
      {
         case RasterTagMetadataDataType.Ascii:
            MessageBox.Show("Tag " + tag.Id.ToString() + " = " + tag.ToAscii());
            break;
         case RasterTagMetadataDataType.Byte:
            MessageBox.Show("Tag " + tag.Id.ToString() + " = " + tag.ToByte()[0].ToString());
            break;
      }
   }
   public void TagsExample()
   {
      RasterCodecs codecs = new RasterCodecs();
      RasterImage image = codecs.Load(Path.Combine(LEAD_VARS.ImagesDir, "IMAGE1.CMP"));

      //Ascii
      RasterTagMetadata tagDataAscii = new RasterTagMetadata();
      // set the Copyright tag
      tagDataAscii.Id = 0x8000;
      tagDataAscii.DataType = RasterTagMetadataDataType.Ascii;
      tagDataAscii.FromAscii("Test String");
      image.Tags.Add(tagDataAscii);

      //Byte
      RasterTagMetadata tagDataByte = tagDataAscii.Clone();
      tagDataAscii.Id = 0x8001;
      tagDataByte.DataType = RasterTagMetadataDataType.Byte;
      byte[] byteArray = new byte[1];
      byteArray[0] = 10;
      tagDataByte.FromByte(byteArray);
      image.Tags.Add(tagDataByte);

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

      RasterTagMetadata tag = codecs.ReadTag(Path.Combine(LEAD_VARS.ImagesDir, "IMAGE1_TAGS.TIF"), 1, 0x8000);
      DisplayTag(tag);
      tag = codecs.ReadTag(Path.Combine(LEAD_VARS.ImagesDir, "IMAGE1_TAGS.TIF"), 1, 0x8001);
      DisplayTag(tag);

      codecs.Dispose();
   }

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

private void DisplayTag(RasterTagMetadata tag)
{
   switch (tag.DataType)
   {
      case RasterTagMetadataDataType.Ascii:
         Debug.WriteLine("Tag " + tag.Id.ToString() + " = " + tag.ToAscii());
         break;
      case RasterTagMetadataDataType.Byte:
         Debug.WriteLine("Tag " + tag.Id.ToString() + " = " + tag.ToByte()[0].ToString());
         break;
   }
}
public void TagsExample(RasterImage image, Stream destStream)
{
   //Ascii
   RasterTagMetadata tagDataAscii = new RasterTagMetadata();
   // set the Copyright tag
   tagDataAscii.Id = 0x8000;
   tagDataAscii.DataType = RasterTagMetadataDataType.Ascii;
   tagDataAscii.FromAscii("Test String");
   image.Tags.Add(tagDataAscii);
   //Byte
   RasterTagMetadata tagDataByte = tagDataAscii.Clone();
   tagDataAscii.Id = 0x8001;
   tagDataByte.DataType = RasterTagMetadataDataType.Byte;
   byte[] byteArray = new byte[1];
   byteArray[0] = 10;
   tagDataByte.FromByte(byteArray);
   image.Tags.Add(tagDataByte);

   RasterCodecs codecs = new RasterCodecs();
   codecs.Options.Save.Tags = true;
   codecs.Save(image, destStream, RasterImageFormat.Tif, 0);
   // load the tags together with the image

   RasterTagMetadata tag = codecs.ReadTag(destStream, 1, 0x8000);
   DisplayTag(tag);
   tag = codecs.ReadTag(destStream, 1, 0x8001);
   DisplayTag(tag);
}

Private Sub DisplayTag(ByVal tag As RasterTagMetadata)
   Select Case tag.DataType
      Case RasterTagMetadataDataType.Ascii
         Debug.WriteLine("Tag " & tag.Id.ToString() & " = " & tag.ToAscii())
      Case RasterTagMetadataDataType.Byte
         Debug.WriteLine("Tag " & tag.Id.ToString() & " = " & tag.ToByte()(0).ToString())
   End Select
End Sub
Public Sub TagsExample(ByVal image As RasterImage, ByVal destStream As Stream)
   'Ascii
   Dim tagDataAscii As RasterTagMetadata = New RasterTagMetadata()
   ' set the Copyright tag
   tagDataAscii.Id = &H8000
   tagDataAscii.DataType = RasterTagMetadataDataType.Ascii
   tagDataAscii.FromAscii("Test String")
   image.Tags.Add(tagDataAscii)
   'Byte
   Dim tagDataByte As RasterTagMetadata = tagDataAscii.Clone()
   tagDataAscii.Id = &H8001
   tagDataByte.DataType = RasterTagMetadataDataType.Byte
   Dim byteArray As Byte() = New Byte(0){}
   byteArray(0) = 10
   tagDataByte.FromByte(byteArray)
   image.Tags.Add(tagDataByte)

   Dim codecs As RasterCodecs = New RasterCodecs()
   codecs.Options.Save.Tags = True
   codecs.Save(image, destStream, RasterImageFormat.Tif, 0)
   ' load the tags together with the image

   Dim tag As RasterTagMetadata = codecs.ReadTag(destStream, 1, &H8000)
   DisplayTag(tag)
   tag = codecs.ReadTag(destStream, 1, &H8001)
   DisplayTag(tag)
End Sub