Sunday, April 04, 2004

Converting InfoPath Images

Recently, I was working with an InfoPath solutions prototype. The idea behind the solution was that a user would be taking a digital photo (JPEG). As they downloaded the pictures to their local machines, they would be able to include these camera shots into an InfoPath form that contained additional descriptive fields. By default, InfoPath takes these types of binaries and converts them into a Base 64 format. Once converted this data is then saved to an XML file. One requirement of the solution was to convert this data back to its original JPEG format once it was saved to the server, so that it could be displayed or saved.

For an example application, I created a simple data source based on a picture box. The data source contained the following data source.

Using the following code that utilizes the System.Drawing.Bitmap namespace, I was able to take the Base 64 converted XML and turn it back into a JPEG.

Private Sub BtnConvert_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnConvert.Click

Dim retnbit As Bitmap

Dim rdr As New XmlTextReader("saved.xml")

rdr.WhitespaceHandling = WhitespaceHandling.None

' Read the file. Stop at the Base64 element.

While rdr.Read()

If "my:field1" = rdr.Name Then

Dim base64txt = rdr.ReadElementString()

retnbit = BitmapFromBase64(base64txt)

Exit While

End If

End While

PicImage.Image = retnbit

End Sub

Public Function BitmapFromBase64(ByVal base64 As String) As System.Drawing.Bitmap

Dim oBitmap As System.Drawing.Bitmap

Dim memory As New System.IO.MemoryStream(Convert.FromBase64String(base64))

oBitmap = New System.Drawing.Bitmap(memory)

memory.Close()

memory = Nothing

Return oBitmap

End Function

For those that may want to take a look at the solution, I have posted it for download.


8:11:08 PM    
comment [] trackback []