• Status: Solved
  • Priority: Medium
  • Security: Public
  • Views: 1583
  • Last Modified:

show RTF string in silverlight 4

i have an RTF string coming from a web service into a silverlight 4 application, RTF example begins like:
{\rtf1\ansi\ansicpg1252\deff0\deflang1033{\fo......

I want to show this information in a richtextbox or some silverlight control , and i would like the information to look readable like the rendered RTF should be (not looking like above!)

keep in mind silverlight cannot access the system.windows.documents API

if it's not possible then i could consider solutions where the web service code which is ASP.NET fw4 converts the rtf string to xaml?  which i also dont know how to do.

thanks
josh

0
joshmiller
Asked:
joshmiller
  • 2
1 Solution
 
joshmillerAuthor Commented:
yes, that got me on the right track, thanks...

i ended up making a web service / service ref that uses the code below to return an xaml string.  The xaml string is used by the silverlight app to populate a richtextbox. its sort of a hack, but it works for me.
 note: i did have to change the replace("margin function to work with the default margins for the RTF docs.  In this way my solution is weak, it will break if you have different margins, still it works for my needs.


Private Function RTFtoXAML() As String

        Dim xaml As String = ""
        Dim doc As New FlowDocument()
        Dim range As New TextRange(doc.ContentStart, doc.ContentEnd)

        Using ms As New MemoryStream()
            Using sw As New StreamWriter(ms)
                sw.Write(sw)
                sw.Flush()
                ms.Seek(0, SeekOrigin.Begin)
                range.Load(ms, System.Windows.DataFormats.Rtf)
            End Using
        End Using


        Using ms As New MemoryStream()
            range = New TextRange(doc.ContentStart, doc.ContentEnd)

            range.Save(ms, System.Windows.DataFormats.Xaml)
            ms.Seek(0, SeekOrigin.Begin)
            Using sr As New StreamReader(ms)
                xaml = sr.ReadToEnd()
            End Using
        End Using

        ' remove all attribuites in section and remove attribute margin  

        Dim start As Integer = xaml.IndexOf("<Section")
        Dim [stop] As Integer = xaml.IndexOf(">") + 1

        Dim section As String = xaml.Substring(start, [stop])

        xaml = xaml.Replace(section, "<Section xml:space=""preserve"" HasTrailingParagraphBreakOnPaste=""False"" xmlns=""http://schemas.microsoft.com/winfx/2006/xaml/presentation"">")
        xaml = xaml.Replace("Margin=""0,0,0,0""", [String].Empty)

        Return xaml

    End Function

Open in new window

0
 
joshmillerAuthor Commented:
thanks
0

Featured Post

Free Tool: SSL Checker

Scans your site and returns information about your SSL implementation and certificate. Helpful for debugging and validating your SSL configuration.

One of a set of tools we are providing to everyone as a way of saying thank you for being a part of the community.

  • 2
Tackle projects and never again get stuck behind a technical roadblock.
Join Now