Public ReadOnly Property Markers As RasterCollection(Of RasterMarkerMetadata)

Dim instance As RasterImage
Dim value As RasterCollection(Of RasterMarkerMetadata)
 
value = instance.Markers

public RasterCollection<RasterMarkerMetadata> Markers {get;}

public:
property RasterCollection<RasterMarkerMetadata^>^ Markers {
   RasterCollection<RasterMarkerMetadata^>^ get();
}

Public Sub MarkersExample()
      Dim codecs As RasterCodecs = New RasterCodecs()
      Dim image As RasterImage = codecs.Load(Path.Combine(LEAD_VARS.ImagesDir, "IMAGE1.CMP"))

      Dim byteData As Byte() = New Byte(0) {}
      byteData(0) = 40
      ' write APP5 (since nobody writes that)
      Dim markerData As RasterMarkerMetadata = New RasterMarkerMetadata(RasterMarkerMetadata.App0 + 5, byteData)
      image.Markers.Add(markerData)

      codecs.Options.Save.Markers = True
      codecs.Save(image, Path.Combine(LEAD_VARS.ImagesDir, "IMAGE1_MARKERS.JPG"), RasterImageFormat.Jpeg, 0)

      ' load the marker together with the image
      Dim marker As RasterCollection(Of RasterMarkerMetadata) = codecs.ReadMarkers(Path.Combine(LEAD_VARS.ImagesDir, "IMAGE1_MARKERS.JPG"))
      ' look for the APP5 marker, because there might be other markers (like APP0, APP1)
      For Each markerItem As RasterMarkerMetadata In marker
         If markerItem.Id = RasterMarkerMetadata.App0 + 5 Then
            MessageBox.Show("marker Id :" & markerItem.Id.ToString() & " = " & markerItem.GetData().ToString())
         End If
      Next markerItem

      codecs.Dispose()
   End Sub

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

public void MarkersExample()
   {
      RasterCodecs codecs = new RasterCodecs();
      RasterImage image = codecs.Load(Path.Combine(LEAD_VARS.ImagesDir,"IMAGE1.CMP"));

      byte[] byteData = new byte[1];
      byteData[0] = 40;
      // write APP5 (since nobody writes that)
      RasterMarkerMetadata markerData = new RasterMarkerMetadata(RasterMarkerMetadata.App0 + 5, byteData);
      image.Markers.Add(markerData);

      codecs.Options.Save.Markers = true;
      codecs.Save(image, Path.Combine(LEAD_VARS.ImagesDir, "IMAGE1_MARKERS.JPG"), RasterImageFormat.Jpeg, 0);

      // load the marker together with the image
      RasterCollection<RasterMarkerMetadata> marker = codecs.ReadMarkers(Path.Combine(LEAD_VARS.ImagesDir,"IMAGE1_MARKERS.JPG"));
      // look for the APP5 marker, because there might be other markers (like APP0, APP1)
      foreach(RasterMarkerMetadata markerItem in marker)
         if(markerItem.Id == RasterMarkerMetadata.App0 + 5)
            MessageBox.Show("marker Id :" + markerItem.Id.ToString() + " = " + markerItem.GetData().ToString());

      codecs.Dispose();
   }

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

public void MarkersExample(RasterImage image, Stream destStream)
{
   byte[] byteData = new byte[1];
   byteData[0] = 40;
   // write APP5 (since nobody writes that)
   RasterMarkerMetadata markerData = new RasterMarkerMetadata(RasterMarkerMetadata.App0 + 5, byteData);
   image.Markers.Add(markerData);
   RasterCodecs codecs = new RasterCodecs();
   codecs.Options.Save.Markers = true;
   codecs.Save(image, destStream, RasterImageFormat.Jpeg, 0);

   // load the marker together with the image
   RasterCollection<RasterMarkerMetadata> marker = codecs.ReadMarkers(destStream);
   // look for the APP5 marker, because there might be other markers (like APP0, APP1)
   foreach (RasterMarkerMetadata markerItem in marker)
      if (markerItem.Id == RasterMarkerMetadata.App0 + 5)
         Debug.WriteLine("marker Id :" + markerItem.Id.ToString() + " = " + markerItem.GetData().ToString());
}

Public Sub MarkersExample(ByVal image As RasterImage, ByVal destStream As Stream)
   Dim byteData As Byte() = New Byte(0){}
   byteData(0) = 40
   ' write APP5 (since nobody writes that)
   Dim markerData As RasterMarkerMetadata = New RasterMarkerMetadata(RasterMarkerMetadata.App0 + 5, byteData)
   image.Markers.Add(markerData)
   Dim codecs As RasterCodecs = New RasterCodecs()
   codecs.Options.Save.Markers = True
   codecs.Save(image, destStream, RasterImageFormat.Jpeg, 0)

   ' load the marker together with the image
   Dim marker As RasterCollection(Of RasterMarkerMetadata) = codecs.ReadMarkers(destStream)
   ' look for the APP5 marker, because there might be other markers (like APP0, APP1)
   For Each markerItem As RasterMarkerMetadata In marker
      If markerItem.Id = RasterMarkerMetadata.App0 + 5 Then
         Debug.WriteLine("marker Id :" & markerItem.Id.ToString() & " = " & markerItem.GetData().ToString())
      End If
   Next markerItem
End Sub