Serialize/Deserialize Font to/from string

[Frank Rizzo]

How do I serialize Font object into a string that I can store in either
INI file or the registry (I know it’s a bad thing, but need to do it
nevertheless). Then, also, how do I deserialize it from that string
back into a font object?

Thanks.

[Sven Groot]

Frank Rizzo wrote:

How do I serialize Font object into a string that I can store in
either INI file or the registry (I know it's a bad thing, but need to
do it nevertheless). Then, also, how do I deserialize it from that
string back into a font object?

Look into xml serialisation and the XmlSerializer class.

--
Sven Groot

http://unforgiven.bloghorn.com

[Frank Rizzo]

Sven Groot wrote:

Frank Rizzo wrote:

How do I serialize Font object into a string that I can store in
either INI file or the registry (I know it's a bad thing, but need to
do it nevertheless). Then, also, how do I deserialize it from that
string back into a font object?

Look into xml serialisation and the XmlSerializer class.

Doesn't see to work. Following line returns an error saying that since
Font object does not have a default constructor, it can't do anything
with it.

Dim oXml As New Xml.Serializati on.XmlSerialize r(GetType(Font) )

[Tom Shelton]

On Tue, 18 May 2004 14:34:44 -0700, Frank Rizzo wrote:

How do I serialize Font object into a string that I can store in either
INI file or the registry (I know it¢s a bad thing, but need to do it
nevertheless). Then, also, how do I deserialize it from that string
back into a font object?

Thanks.

Frank...

Here is a little bit of code using a binary formatter to convert a font
object into a base-64 string:

Option Strict On
Option Explict On

Imports System.IO
Imports System.Runtime. Serialization
Imports System.Runtime. Serialization.F ormatters.Binar y

.....
' Basic error handling - you'll want to improve :)
Private Function SerializeFontOb ject(ByVal fnt As Font) As String
Dim bf As New BinaryFormatter
Dim mem As New MemoryStream

Try
bf.Serialize(me m, fnt)
Return Convert.ToBase6 4String(mem.ToA rray())
Catch
Return String.Empty
Finally
mem.Close()
End Try
End Function

' again, very basic handling..
Private Function DeserializeFont Object(ByVal fnt As String) As Font
Dim bf As New BinaryFormatter
Dim mem As New MemoryStream(Co nvert.FromBase6 4String(fnt))

Try
Return DirectCast(bf.D eserialize(mem) , Font)
Finally
If Not mem Is Nothing Then
mem.Close()
End If
End Try
End Function

HTH

[Cor Ligthert]

Hi Frank,

You cannot serialize all objects, as far as I know is this feature only for
collection objects which depends on certain rules.

I never saw it done for control objects.

In my opinion can this the simplest be done for the font with setting the
properties from that object to string.

Cor

[Frank Rizzo]

Thanks, Tom.

This did the trick. The Convert.* was the missing link in my head.

Tom Shelton wrote:

On Tue, 18 May 2004 14:34:44 -0700, Frank Rizzo wrote:

How do I serialize Font object into a string that I can store in either
INI file or the registry (I know it¢s a bad thing, but need to do it
nevertheless) . Then, also, how do I deserialize it from that string
back into a font object?

Thanks.

Frank...

Here is a little bit of code using a binary formatter to convert a font
object into a base-64 string:

Option Strict On
Option Explict On

Imports System.IO
Imports System.Runtime. Serialization
Imports System.Runtime. Serialization.F ormatters.Binar y

....
' Basic error handling - you'll want to improve :)
Private Function SerializeFontOb ject(ByVal fnt As Font) As String
Dim bf As New BinaryFormatter
Dim mem As New MemoryStream

Try
bf.Serialize(me m, fnt)
Return Convert.ToBase6 4String(mem.ToA rray())
Catch
Return String.Empty
Finally
mem.Close()
End Try
End Function

' again, very basic handling..
Private Function DeserializeFont Object(ByVal fnt As String) As Font
Dim bf As New BinaryFormatter
Dim mem As New MemoryStream(Co nvert.FromBase6 4String(fnt))

Try
Return DirectCast(bf.D eserialize(mem) , Font)
Finally
If Not mem Is Nothing Then
mem.Close()
End If
End Try
End Function

HTH

[Cor Ligthert]

Hi Tom,

I was mixed up with XML serializing, however thanks for the sample, I did
not know this one.

Cor

[Frank Rizzo]

Btw, this sample will be awesome in VS2005 with generics

class SerializeAnyFre akingObject (Of T)
'as long it supports serialization, of course

Private Function SerializeFontOb ject(ByVal oObject As T) As String
Dim bf As New BinaryFormatter
Dim mem As New MemoryStream

Try
bf.Serialize(me m, oObject)
Return Convert.ToBase6 4String(mem.ToA rray())
Catch
Return String.Empty
Finally
mem.Close()
End Try
End Function

Private Function DeserializeFont Object(ByVal sString As String) As T
Dim bf As New BinaryFormatter
Dim mem As New MemoryStream(Co nvert.FromBase6 4String(sString ))

Try
Return DirectCast(bf.D eserialize(mem) , T)
Finally
If Not mem Is Nothing Then
mem.Close()
End If
End Try

End Function
End class

Tom Shelton wrote:

On Tue, 18 May 2004 14:34:44 -0700, Frank Rizzo wrote:

How do I serialize Font object into a string that I can store in either
INI file or the registry (I know it¢s a bad thing, but need to do it
nevertheless) . Then, also, how do I deserialize it from that string
back into a font object?

Thanks.

Frank...

Here is a little bit of code using a binary formatter to convert a font
object into a base-64 string:

Option Strict On
Option Explict On

Imports System.IO
Imports System.Runtime. Serialization
Imports System.Runtime. Serialization.F ormatters.Binar y

....
' Basic error handling - you'll want to improve :)
Private Function SerializeFontOb ject(ByVal fnt As Font) As String
Dim bf As New BinaryFormatter
Dim mem As New MemoryStream

Try
bf.Serialize(me m, fnt)
Return Convert.ToBase6 4String(mem.ToA rray())
Catch
Return String.Empty
Finally
mem.Close()
End Try
End Function

' again, very basic handling..
Private Function DeserializeFont Object(ByVal fnt As String) As Font
Dim bf As New BinaryFormatter
Dim mem As New MemoryStream(Co nvert.FromBase6 4String(fnt))

Try
Return DirectCast(bf.D eserialize(mem) , Font)
Finally
If Not mem Is Nothing Then
mem.Close()
End If
End Try
End Function

HTH

[Tom Shelton]

In article <OS************ **@tk2msftngp13 .phx.gbl>, Frank Rizzo wrote:

Btw, this sample will be awesome in VS2005 with generics

class SerializeAnyFre akingObject (Of T)
'as long it supports serialization, of course

Private Function SerializeFontOb ject(ByVal oObject As T) As String
Dim bf As New BinaryFormatter
Dim mem As New MemoryStream

Try
bf.Serialize(me m, oObject)
Return Convert.ToBase6 4String(mem.ToA rray())
Catch
Return String.Empty
Finally
mem.Close()
End Try
End Function

Private Function DeserializeFont Object(ByVal sString As String) As T
Dim bf As New BinaryFormatter
Dim mem As New MemoryStream(Co nvert.FromBase6 4String(sString ))

Try
Return DirectCast(bf.D eserialize(mem) , T)
Finally
If Not mem Is Nothing Then
mem.Close()
End If
End Try

End Function
End class

Tom Shelton wrote:

On Tue, 18 May 2004 14:34:44 -0700, Frank Rizzo wrote:

How do I serialize Font object into a string that I can store in either
INI file or the registry (I know it¢s a bad thing, but need to do it
nevertheless ). Then, also, how do I deserialize it from that string
back into a font object?

Thanks.

Frank...

Here is a little bit of code using a binary formatter to convert a font
object into a base-64 string:

Option Strict On
Option Explict On

Imports System.IO
Imports System.Runtime. Serialization
Imports System.Runtime. Serialization.F ormatters.Binar y

....
' Basic error handling - you'll want to improve :)
Private Function SerializeFontOb ject(ByVal fnt As Font) As String
Dim bf As New BinaryFormatter
Dim mem As New MemoryStream

Try
bf.Serialize(me m, fnt)
Return Convert.ToBase6 4String(mem.ToA rray())
Catch
Return String.Empty
Finally
mem.Close()
End Try
End Function

' again, very basic handling..
Private Function DeserializeFont Object(ByVal fnt As String) As Font
Dim bf As New BinaryFormatter
Dim mem As New MemoryStream(Co nvert.FromBase6 4String(fnt))

Try
Return DirectCast(bf.D eserialize(mem) , Font)
Finally
If Not mem Is Nothing Then
mem.Close()
End If
End Try
End Function

HTH

Generics will be nice... But, I think it should work now if you change
the type to object (and again, as long as the object supports
serilization :)

--
Tom Shelton [MVP]