ABCpdf .NET PDF Component Documentation - ArrayAtom FromContentStream Function. Create an array of Atoms from a byte array containing a sequence of PDF objects.

This example shows how to use the FromContentStream function to parse and display a PDF content stream.

StringBuilder sb = new StringBuilder();
using (Doc doc = new Doc()) {
  doc.Read(Server.MapPath("spaceshuttle.pdf"));
  Page page = doc.ObjectSoup[doc.Page] as Page;
  ArrayAtom array = ArrayAtom.FromContentStream(page.GetContentData());
  int indent = 0;
  HashSet<string> indentPlus = new HashSet<string>(new string[] { "q", "BT" });
  HashSet<string> indentMinus = new HashSet<string>(new string[] { "Q", "ET" });
  IList<Tuple<string, int>> items = OpAtom.Find(array);
  int index = 0;
  foreach (var pair in items) {
    string op = ((OpAtom)array[pair.Item2]).Text;
    // add indent to code
    if (indentMinus.Contains(op))
      indent--;
    for (int i = 0; i < indent; i++)
      sb.Append(" ");
    // write out the operators
    for (int i = index; i <= pair.Item2; i++) {
      if (i != index)
        sb.Append(" ");
      Atom item = array[i];
      // we write arrays out individually so that
      // we can override default cr lf behavior
      ArrayAtom itemArray = item as ArrayAtom;
      if (itemArray != null) {
        int n = itemArray.Count;
        sb.Append("[");
        for (int j = 0; j < n; j++) {
          sb.Append(itemArray[j].ToString());
          if (j != n - 1)
            sb.Append(" ");
        }
        sb.Append("]");
      }
      else {
        sb.Append(item.ToString());
      }
    }
    sb.AppendLine();
    if (indentPlus.Contains(op))
      indent++;
    index = pair.Item2 + 1;
  }
  // write out any atoms that are left over
  for (int i = index; i < array.Count; i++) {
    sb.Append(" ");
    sb.Append(array[i].ToString());
  }
}
using (Doc doc = new Doc()) {
  doc.Font = doc.AddFont("Courier");
  doc.Rect.Inset(20, 20);
  doc.AddText(sb.ToString());
  doc.Save(Server.MapPath("PageContents.pdf"));
}

Dim sb As New StringBuilder()
Using doc As New Doc()
  doc.Read(Server.MapPath("spaceshuttle.pdf"))
  Dim page As Page = TryCast(doc.ObjectSoup(doc.Page), Page)
  Dim array As ArrayAtom = ArrayAtom.FromContentStream(page.GetContentData())
  Dim indent As Integer = 0
  Dim indentPlus As New HashSet(Of String)(New String() {"q", "BT"})
  Dim indentMinus As New HashSet(Of String)(New String() {"Q", "ET"})
  Dim items As IList(Of Tuple(Of String, Integer)) = OpAtom.Find(array)
  Dim index As Integer = 0
  For Each pair As var In items
    Dim op As String = DirectCast(array(pair.Item2), OpAtom).Text
    ' add indent to code
    If indentMinus.Contains(op) Then
      System.Math.Max(System.Threading.Interlocked.Decrement(indent),indent + 1)
    End If
    Dim i As Integer = 0
    While i < indent
      sb.Append(" ")
      System.Math.Max(System.Threading.Interlocked.Increment(i),i - 1)
    End While
    ' write out the operators
    Dim i As Integer = index
    While i <= pair.Item2
      If i <> index Then
        sb.Append(" ")
      End If
      Dim item As Atom = array(i)
      ' we write arrays out individually so that
      ' we can override default cr lf behavior
      Dim itemArray As ArrayAtom = TryCast(item, ArrayAtom)
      If itemArray <> Nothing Then
        Dim n As Integer = itemArray.Count
        sb.Append("[")
        Dim j As Integer = 0
        While j < n
          sb.Append(itemArray(j).ToString())
          If j <> n - 1 Then
            sb.Append(" ")
          End If
          System.Math.Max(System.Threading.Interlocked.Increment(j),j - 1)
        End While
        sb.Append("]")
      Else
        sb.Append(item.ToString())
      End If
      System.Math.Max(System.Threading.Interlocked.Increment(i),i - 1)
    End While
    sb.AppendLine()
    If indentPlus.Contains(op) Then
      System.Math.Max(System.Threading.Interlocked.Increment(indent),indent - 1)
    End If
    index = pair.Item2 + 1
  Next
  ' write out any atoms that are left over
  Dim i As Integer = index
  While i < array.Count
    sb.Append(" ")
    sb.Append(array(i).ToString())
    System.Math.Max(System.Threading.Interlocked.Increment(i),i - 1)
  End While
End Using
Using doc As New Doc()
  doc.Font = doc.AddFont("Courier")
  doc.Rect.Inset(20, 20)
  doc.AddText(sb.ToString())
  doc.Save(Server.MapPath("PageContents.pdf"))
End Using