usmanazizgroupdocs
3/15/2016 - 5:44 PM

RemoveAllAnnotationsFromDocument.vb

' For complete examples and data files, please go to https://github.com/groupdocsannotation/GroupDocs_Annotation_NET
Try
    ' Initialize annotator
    Dim annotator As IAnnotator = New Annotator()

    ' Get input file stream
    Dim inputFile As Stream = New FileStream(CommonUtilities.MapSourceFilePath(filePath), FileMode.Open, FileAccess.ReadWrite)

    ' Get output file stream
    Dim result As Stream = annotator.RemoveAnnotationStream(inputFile, DocumentType.Pdf)

    ' Save result stream to file.
    Using fileStream As New FileStream(CommonUtilities.MapDestinationFilePath("Annotated.pdf"), FileMode.Create)
        Dim buffer As Byte() = New Byte(result.Length - 1) {}
        result.Seek(0, SeekOrigin.Begin)
        result.Read(buffer, 0, buffer.Length)
        fileStream.Write(buffer, 0, buffer.Length)
        fileStream.Close()
    End Using
Catch exp As Exception
    Console.WriteLine(exp.Message)
End Try