Image <> String Problem

[BluDog]

Hi

I am trying to store an image in an xml file, i vcan store it fine but
the retreval is a bit of a problem:

To String:

Dim ms As New IO.MemoryStream
Dim arrImage() As Byte
Me.Image.Save(m s, System.Drawing. Imaging.ImageFo rmat.Jpeg)
arrImage = ms.GetBuffer
Dim UTF8 As New System.Text.UTF 8Encoding
Dim imageString as string = UTF8.GetString( arrImage)
Getting it back:

Dim UTF8 As New System.Text.UTF 8Encoding
Dim arrImage() As Byte = UTF8.GetBytes(i mageString)
Dim ms As New IO.MemoryStream (arrImage)
Me.Image = System.Drawing. Image.FromStrea m(ms)
Getting it back throws an error on the final line, "Invaid Parameter
Used". If i complete the above without saving it as the InnerText on
an XmlNode in betwen it works fine.

Any ideas would be great.

Thanks

blu

[Herfried K. Wagner [MVP]]

* BluDog <ne**@nospam.bl udog.net> scripsit:

Dim ms As New IO.MemoryStream
Dim arrImage() As Byte
Me.Image.Save(m s, System.Drawing. Imaging.ImageFo rmat.Jpeg)
arrImage = ms.GetBuffer
Dim UTF8 As New System.Text.UTF 8Encoding
Dim imageString as string = UTF8.GetString( arrImage)

It won't solve your problem, but I suggest to use
'System.Text.En coding.UTF8' instead instantiating the encoding.

--
M S Herfried K. Wagner
M V P <URL:http://dotnet.mvps.org/>
V B <URL:http://dotnet.mvps.org/dotnet/faqs/>

[Cor Ligthert]

BluDog,

I have made a complete sample that special in your case fits probably
completly

I hope it helps?

Cor

\\\needs a new project with on the form a picturebox and 4 buttons
Private abyt() As Byte
Private fo As New OpenFileDialog
Private sf As New SaveFileDialog
Private Sub Button1_Click(B yVal sender As System.Object, ByVal e As
System.EventArg s) Handles Button1.Click
'Reading a picture and put it in a bytearray
If fo.ShowDialog = DialogResult.OK Then
Dim fs As New IO.FileStream(f o.FileName, _
IO.FileMode.Ope n)
Dim br As New IO.BinaryReader (fs)
abyt = br.ReadBytes(CI nt(fs.Length))
br.Close()
'just to show the sample without a fileread error
Dim ms As New IO.MemoryStream (abyt)
Me.PictureBox1. Image = Image.FromStrea m(ms)
End If
End Sub
Private Sub Button2_Click(B yVal sender As System.Object, ByVal _
e As System.EventArg s) Handles Button2.Click
'writing a picture from a bytearray
If sf.ShowDialog = DialogResult.OK Then
Dim fs As New IO.FileStream(s f.FileName, _
IO.FileMode.Cre ateNew)
Dim bw As New IO.BinaryWriter (fs)
bw.Write(abyt)
bw.Close()
End If
End Sub
Private Sub Button3_Click(B yVal sender As System.Object, ByVal _
e As System.EventArg s) Handles Button3.Click
'writing a bytearray to a dataset
Dim ds As New DataSet
ds.Tables.Add(N ew DataTable("Phot o"))
ds.Tables(0).Co lumns.Add(New DataColumn("Sam ple"))
ds.Tables(0).Co lumns(0).DataTy pe =
System.Type.Get Type("System.By te[]")
ds.Tables(0).Ro ws.Add(ds.Table s(0).NewRow)
ds.Tables(0).Ro ws(0)(0) = abyt
Dim sf As New SaveFileDialog
If sf.ShowDialog = DialogResult.OK Then
ds.WriteXml(sf. FileName, XmlWriteMode.Wr iteSchema)
End If
End Sub
Private Sub Button4_Click(B yVal sender As System.Object, _
ByVal e As System.EventArg s) Handles Button4.Click
'reading a picture from a dataset
Dim ds As New DataSet
If fo.ShowDialog = DialogResult.OK Then
ds.ReadXml(fo.F ileName)
End If
abyt = CType(ds.Tables (0).Rows(0)(0), Byte())
Dim ms As New IO.MemoryStream (abyt)
Me.PictureBox1. Image = Image.FromStrea m(ms)
End Sub
///

[BluDog]

On 07 Sep 2004 13:02:48 +0200, hi************* **@gmx.at (Herfried K.
Wagner [MVP]) wrote:

* BluDog <ne**@nospam.bl udog.net> scripsit:

Dim ms As New IO.MemoryStream
Dim arrImage() As Byte
Me.Image.Save(m s, System.Drawing. Imaging.ImageFo rmat.Jpeg)
arrImage = ms.GetBuffer
Dim UTF8 As New System.Text.UTF 8Encoding
Dim imageString as string = UTF8.GetString( arrImage)

It won't solve your problem, but I suggest to use
'System.Text.E ncoding.UTF8' instead instantiating the encoding.

Herfried... yep, that makes sense. Cheers.

[jela]

Probably a byte is added while saving.
Try to convert the byte array ToBase64 before saving,
and back after retrieval

[BluDog]

Cor

Thanks, i can see this working, however in my application i want to
store the image as an XmlNode, the complete xml file looks like the
following:

- <Tags>
- <Tag id="e2c0fde4-f540-43e9-b0ac-0d7c94f2196f">
<Checked>Unchec ked</Checked>
<Text>Test Tag</Text>
<Expanded>Tru e</Expanded>
<Image type="base64Bin ary">JFIF
HHC    $.' ",#(7),01444 '9=82<.342C
 2!!2222222222 222222222222222 222222222222222 2222222222

"







 




}
!1AQa"q 2#BR$3br
%&'()*4567 89:CDEFGHIJSTUV WXYZcdefghijstu vwxyz





 



w
!1AQaq"2 B #3Rbr
$4%&'()*56 789:CDEFGHIJSTU VWXYZcdefghijst uvwxyz

??_^Nn+FQ.r8 gSdG#N
Qc-tEAA_} +BI ?U</Image>
</Tag>
</Tags>

The example you have given illustratess how to store the image as a
file in it's own right and as in xml format through a dataset, my
problem is that i want it to be a tag within an existing xml document.

The problem is that somewhere and i am not sure where there is data
being lost i believe when turning the image into a string:

Dim ms As New IO.MemoryStream
Me.Image.Save(m s, System.Drawing. Imaging.ImageFo rmat.Jpeg)
Dim imageBytes() As Byte = ms.GetBuffer
Dim imageString As String =
System.Text.Enc oding.UTF8.GetS tring(imageByte s)
Dim imageNode As XmlElement = CreateAppendEle ment(tagNode,
"Image")
imageNode.SetAt tribute("type", "base64Bina ry")
imageNode.Inner Text = imageString

I cannot find any references that create an xml representation of an
image as a part of a larger xml file.

Thanks

Blu.

[BluDog]

On 7 Sep 2004 07:32:04 -0700, je***********@h otmail.com (jela) wrote:

Probably a byte is added while saving.
Try to convert the byte array ToBase64 before saving,
and back after retrieval

Fantastic... thanks, for anyone else looking the solution based on the
OP:

To String:

Dim ms As New IO.MemoryStream
Me.Image.Save(m s, System.Drawing. Imaging.ImageFo rmat.Jpeg)
Dim imageString As String =
System.Convert. ToBase64String( ms.GetBuffer)
Dim imageNode As XmlElement = CreateAppendEle ment(tagNode,
"Image")
imageNode.SetAt tribute("type", "base64Bina ry")
imageNode.Inner Text = imageString
Getting it back:

Dim imageString As String = xmlNode("Image" ).InnerText
Dim imageBytes() As Byte =
System.Convert. FromBase64Strin g(imageString)
Dim ms As New IO.MemoryStream (imageBytes)
Me.Image = Me.Image.FromSt ream(ms)

Cheers

Blu

[Cor Ligthert]

BluDog,

I changed my sample a little bit for you, I thought that it now fits your
needs.

Test program is included

I hope this helps?

Cor
\\\to test it needs 1 picturebox and 1 button on a form.
Private Function SerializeByte(B yVal _
imagestring As Byte()) As String
Dim bf As New Runtime.Seriali zation.Formatte rs.Binary.Binar yFormatter
Dim mem As New IO.MemoryStream
bf.Serialize(me m, imagestring)
Return Convert.ToBase6 4String(mem.ToA rray())
End Function
Private Function DeserializeStri ng(ByVal _
imagestring As String) As Byte()
Dim bf As New Runtime.Seriali zation.Formatte rs.Binary.Binar yFormatter
Dim mem As New IO.MemoryStream (Convert.FromBa se64String(imag estring))
Return DirectCast(bf.D eserialize(mem) , Byte())
End Function
''''''''''''''' ''''''''''''''' ''''''''''''''' '''''
'Test program
Private fo As New OpenFileDialog
Private Sub Button1_Click(B yVal sender As System.Object, _
ByVal e As System.EventArg s) Handles Button1.Click
If fo.ShowDialog = DialogResult.OK Then
Dim fs As New IO.FileStream(f o.FileName, _
IO.FileMode.Ope n)
Dim br As New IO.BinaryReader (fs)
Dim abyt As Byte() = br.ReadBytes(CI nt(fs.Length))
br.Close()
Dim myresultstring As String = SerializeByte(a byt)
Dim abyt2 As Byte() = DeserializeStri ng(myresultstri ng)
Dim ms As New IO.MemoryStream (abyt2)
Me.PictureBox1. Image = Image.FromStrea m(ms)
End If
End Sub
///