Help: Annotation Won't Save.

Have tried everything to get code below to burn annotation onto single page tif file.  Annotation shows up on screen but doesn't save to tif file.   Any help would be appreciated.

Using VB.net
Using leadtools.net class library

        Dim TcDoc As mydoc.TcDocument
        Dim codecs As New RasterCodecs
        Dim Counter As Int64
        Dim Height As Integer
        Dim Width As Integer
        Dim text As AnnTextObject
        Dim anncodecs As AnnCodecs
        Dim tag As RasterTagMetadata
        Dim tagId As Integer
        Dim i As Int64 = 1
        Dim TifFileName As String

        AddHandler RasterImageViewer1.PostTransformPaint, New PaintEventHandler(AddressOf RasterImageViewer1_PostTransformPaint)
        AddHandler RasterImageViewer1.TransformChanged, New EventHandler(AddressOf RasterImageViewer1_TransformChanged)

        With codecs.Options.Pdf.Load 'Some default settings for appearence purposes
            .DisplayDepth = 16
            .TextAlpha = 4
            .XResolution = 300
            .YResolution = 300
        End With
        Try

            For Each TcDoc In Me.Documents
                For Counter = 1 To TcDoc.PageCount
                    With Me.RasterImageViewer1
                        .Image = codecs.Load(TcDoc.SourceFile, 12, CodecsLoadByteOrder.Gray, Counter, Counter)
                        Application.DoEvents()
                        .SizeMode = WinForms.RasterViewerSizeMode.Normal
                        .SizeMode = WinForms.RasterViewerSizeMode.Fit
                    End With
                    TifFileName = TcDoc.FileNames.Item(Counter - 1)
                    codecs.Save(Me.RasterImageViewer1.Image, TifFileName, RasterImageFormat.TifCcittGroup4, 1)
                    Height = Me.RasterImageViewer1.Image.Height
                    Width = Me.RasterImageViewer1.Image.Width
                    Height -= 75
                    Width -= 400
                    Me.theContainer = New AnnContainer
                    Me.theContainer.Bounds = New AnnRectangle(0, 0, RasterImageViewer1.ImageSize.Width, RasterImageViewer1.ImageSize.Height)
                    Me.theContainer.UnitConverter = New AnnUnitConverter(RasterImageViewer1.ImageDpiX, RasterImageViewer1.ImageDpiY)
                    text = New AnnTextObject
                    text.Text = "Confidential Doc"
                    text.Font = New AnnFont("Arial", New AnnLength(10, AnnUnit.Point), FontStyle.Bold)
                    text.Bounds = New AnnRectangle(Width, Height, 400, 50, AnnUnit.Pixel)
                    text.Bounds = New AnnRectangle(Width, Height, 400, 50, AnnUnit.Pixel)
                    theContainer.Objects.Add(text)
                    Me.RasterImageViewer1.Invalidate(theContainer.InvalidRectangle)
                    anncodecs = New AnnCodecs
                    tag = anncodecs.SaveToTag(Me.theContainer, AnnCodecsTagFormat.Wang) '** Save as Wang compatible
                    tagId = tag.Id
                    codecs.WriteTag(TifFileName, 0, tag)
                    anncodecs.Save(TifFileName, text.Container, AnnCodecsFormat.Serialize, 1, AnnCodecsSavePageMode.Overwrite)
                    codecs.Save(Me.RasterImageViewer1.Image, TifFileName, RasterImageFormat.TifCcittGroup4, 1)                   
                    Me.RasterImageViewer1.Invalidate(theContainer.InvalidRectangle)
                    theContainer.Objects.Clear()
                    tag = Nothing                   
                Next
                i += 1
            Next

        Catch ex As Exception
            MessageBox.Show("Problem adding tags: " & vbCrLf & ex.Message.ToString, "Error: SplitTheFiles", MessageBoxButtons.OK)
            Return False
        End Try
        Return True

 

 

I do not immediately see any errors in your code and will need to test it.  I am, however, having trouble figuring out what some of your objects are and exactly what you are trying to do here.  Could you reply and attach a more simplified working project that produces your problem?  Once I have this from you I will be able to test your code and try to find a solution.

Greg, 

Thanks in advance for your help.  The program is loading a pdf file. Trying to burn a annotation to it and save it as a tif file.  See code below. 

Dim pdffile As String = "C:\Documents and Settings\hannonp\Desktop\test.pdf"

Dim TifFileName As String = "C:\Documents and Settings\hannonp\Desktop\test.tif"

Dim codecs As New RasterCodecs

Dim Height As Integer

Dim Width As Integer

Dim text As AnnTextObject

Dim anncodecs As AnnCodecs

Dim tag As RasterTagMetadata

Dim tagId As Integer

 

With codecs.Options.Pdf.Load 'Some default settings for appearence purposes

.DisplayDepth = 16

.TextAlpha = 4

.XResolution = 300

.YResolution = 300

End With

With Me.RasterImageViewer1

.Image = codecs.Load(pdffile, 12, CodecsLoadByteOrder.Gray, 1, 1)

Application.DoEvents()

.SizeMode = WinForms.RasterViewerSizeMode.Normal

.SizeMode = WinForms.RasterViewerSizeMode.Fit

End With

Application.DoEvents()

codecs.Save(Me.RasterImageViewer1.Image, TifFileName, RasterImageFormat.TifCcittGroup4, 1)

Height = Me.RasterImageViewer1.Image.Height

Width = Me.RasterImageViewer1.Image.Width

Height -= 75

Width -= 400

Me.theContainer = New AnnContainer

Me.theContainer.Bounds = New AnnRectangle(0, 0, RasterImageViewer1.ImageSize.Width, RasterImageViewer1.ImageSize.Height)

Me.theContainer.UnitConverter = New AnnUnitConverter(RasterImageViewer1.ImageDpiX, RasterImageViewer1.ImageDpiY)

text = New AnnTextObject

text.Text = "LL00001"

text.Font = New AnnFont("Arial", New AnnLength(10, AnnUnit.Point), FontStyle.Bold)

text.Bounds = New AnnRectangle(Width, Height, 400, 50, AnnUnit.Pixel)

text.Bounds = New AnnRectangle(Width, Height, 400, 50, AnnUnit.Pixel)

theContainer.Objects.Add(text)

Me.RasterImageViewer1.Invalidate(theContainer.InvalidRectangle)

anncodecs = New AnnCodecs

tag = anncodecs.SaveToTag(Me.theContainer, AnnCodecsTagFormat.Wang) '** Save as Wang compatible

tagId = tag.Id

codecs.WriteTag(TifFileName, 0, tag)

anncodecs.Save(TifFileName, text.Container, AnnCodecsFormat.Serialize, 1, AnnCodecsSavePageMode.Overwrite)

codecs.Save(Me.RasterImageViewer1.Image, TifFileName, RasterImageFormat.TifCcittGroup4, 1)

Application.DoEvents()

Me.RasterImageViewer1.Invalidate(theContainer.InvalidRectangle)

Application.DoEvents()

theContainer.Objects.Clear()

tag = Nothing

Application.DoEvents()

'----------------

contact info:

 

 

 

I believe I understand your problem now.  In order to "burn" the annotations to the TIF file (or any other image) so that it is part of the image, you have to Realize the image.  With non-automated annotations there is not a Realize method, but there is one in the AnnAutomation class.  You can still add annotations programmatically with the AnnAutomation class because it has its own AnnContainer object.  You will need to:

1. Create a new AnnAutomation instance
Dim annAuto1 As AnnAutomation
annAuto1 = New AnnAutomation(New AnnAutomationManager, RasterImageViewer1)

2. Replace any reference to theContainer with annAuto1.Container

3. Call annAuto1.Realize() before codecs.Save

Thanks but this method blacks out the objects on the image. I mean, for example, if there is a rubber stamp object and if I want to save it along with image (as part of image), it doesn't retain the stamp picture. It replaces all the pixels with black color. How can we retain the original pixels and realize the object onto the image?

Thanks,
Suresh

(dotnet c# 15)

Most likely this means that your base image is 1bpp.  I would imagine that if you used something lighter like a yellow hilite annotation that the space it took up would become white.

The annotation container and the bitmap are completely separate.  This is why if you load a 1bpp image, your annotations will still be in color while they're in the container.  However if you want them to become part of the bitmap data and retain their color information, you will need to convert your bitmap to 24bpp by either loading it as 24bpp or by using the ColorResolutionCommand.

If you don't want the annotations as part of the image, then just use the AnnCodecs.Save method to create an annotations file.