Wedding Reception Program Outline

VB.NET VB for Dummies: The Serialization - Part 2

This post is a continuation of previous post serialization.

In particular we will see that the SOAP and JSON serialization.

Serialization SOAP SOAP serialization is committed to the SoapFormatter System.Runtime.Serialization.Formatters.Soap contained in the namespace in the library of the same name. The SOAP formatter

goes back to the earliest versions of the framework and, unfortunately, from a certain point, even though it was declared obsolete, it was not brought forward in the development and does not support certain types of data very much used in the world. NET such as generics and nullable.

For this reason, we can not serialize in SOAP format (using the SoapFormatter) our bill (see previous post) as this has a property of type List (Of DettagliFattura) (generic).

JSON serialization format JSON serialization (more info here ) is a textual format very popular in AJAX applications. Entry is a way to serialize complex objects even with a very compact size and easy to interoperate with JavaScript, therefore, well suited for scenarios partoicolarmente AJAX-style web.

JSON serialization can be done using the class DataContractJsonSerializer that framework 4.0 is contained in the namespace System.Runtime.Serialization.Json all’interno dell’omonimo assembly.

Fate attenzione perchè, se state sviluppando per il framework 3.5 (prima di questo la classe DataContractJsonSerialization non era presente), trovate la classe nello stesso namespace ma l’assembly è System.ServiceModel.Web.

La classe DataContractJsonSerializer prevede, tra i vari metodi, WriteObject e ReadObject che permettono , rispettivamente, di serializzare e deserializzare un’oggetto in formato JSON.

Entrambi i metodi sfruttano uno stream per serializzare l’oggetto. In base alle nostre esigenze tale stream potrebbe essere in memoria (come nell’esempio riportato in seguito), su file o su un canale web (ad esempio come response to a request from a remote client).

methods for serialization and deserialization of the object are Invoice:

1. Public Shared Function SerializzaJSON (ByVal bill As Invoice ) As String
2. If bill Is Nothing Then Throw New ArgumentNullException ( "Bill" )
3.      Dim strJSON As String = Nothing
4.      Dim serializer = New DataContractJsonSerializer ( GetType ( Fattura ))
5.      Using memStream = New MemoryStream ()
6.          serializer .WriteObject(memStream, fattura)
7.         strJSON = Encoding.Default.GetString( memStream .ToArray())
8.      End Using
9.      Return strJSON
10. End Function
11.  
12. Public Shared Function DeserializzaJSON( ByVal As strFattura String) As Invoice
13. Dim retObj As Invoice = Nothing
14. & # 160; Dim serializer = New DataContractJsonSerializer ( GetType ( Invoice )) &
15. # 160; Using memStream = New MemoryStream (Encoding.Default.GetBytes (strFattura))
16. retObj = CType (serializer . ReadObject (memStream) Invoice )
17. End Using Return
18. retObj
19. End Function

The result is as follows:

We observe that, in the examples, we used the default encoding for strings. Evidently, if necessary, the encoding may be the one we want.

If our class (as in Bill) is composed of objects. NET serializable, we can immediately use the JSON serialization.

Alternatively, we can decorate our class (and all those that may be used as a property) with the Serializable attribute or the attribute DataContract.

In the first case it is enough to decorate the sun and JSON serialization classes will have the properties expressed by the name of the attribute that is encapsulated by private property. In the case of property definite in modo compatto (come accade nella Fattura) il compilatore crea, dietro le quinte un attributo per ogni proprietà con lo stesso nome della proprietà a cui viene anteposto il carattere “_”. In questo caso il JSON risultante vedrà le proprietà espresse con il nome della proprietà preceduta da “_”.

Nel caso dell’attributo DataContract, invece, è necessario decorare anche ogni proprietà con l’attributo DataMember (se una proprietà non viene decorata con DataMember, questa non finisce nella serializzazione).

L’attributo DataMember permette di rinominare la proprietà all’interno del JSON risultante:

1. \u0026lt; DataMember (Name: = "numeroDocumento" )>
2. Public Property NumeroDocumento As String

In this case, the properties, the ' inside of the JSON, will be called "numeroDocumento" and not "NumeroDocumento.

using DataContract and DataMember we can intervene in the resulting JSON in order to customize the results to our liking (especially useful when we are given the path and we must re-create the class).

Serializzazion custom

Just a hint at the possibility of creating a custom serialization of objects.

To do this, the framework provides us with the interface that has two IFormatter Serialize and Deserialize methods that we have to redefine our logic by implementing the serialization / deserialization:

An example might be:

1. Imports System.Runtime.Serialization
3. Public Class MioSerializzatore
4. Implements IFormatter
5.  
6.      Public Property Binder As System.Runtime.Serialization. SerializationBinder Implements System.Runtime.Serialization. IFormatter .Binder
7.          Get
8.  
9.          End Get
10.          Set ( ByVal value As System.Runtime.Serialization. SerializationBinder )
11.  
12.          End Set
13.      End Property
14.  
15.      Public Property Context As System.Runtime.Serialization. StreamingContext Implements System.Runtime.Serialization. IFormatter .Context
16.          Get
17.  
18.          End Get
19.          Set ( ByVal value As System.Runtime.Serialization. StreamingContext )
20.  
21.          End Set
22.      End Property
23.  
24.      Public Function Deserialize( ByVal serializationStream As System.IO. Stream ) As Object Implements System.Runtime.Serialization. IFormatter . Deserialize
25. 'Here comes the logic of deserialization
26. End Function
28. Public Sub Serialize (ByVal serializationStream As System.IO. Stream , ByVal graph As Object ) Implements System.Runtime.Serialization. IFormatter .Serialize
29.          ' qui ci va la logica di serializzazione
30.      End Sub
31.  
32.      Public Property SurrogateSelector As System.Runtime.Serialization. ISurrogateSelector Implements System.Runtime.Serialization. IFormatter .SurrogateSelector
33.          Get
34.  
35.          End Get
36.          Set ( ByVal value As System.Runtime.Serialization. ISurrogateSelector )
38. End September
39. End Property End
40. Class

Technorati tags: serialization, serialization , XmlSerializer , xml, soap , json , DataContractJsonSerializer

Wrestling Singlets For Baby

WP7 Tip: Changing the background of a control based on the theme

Following a thread appeared on forum for the development in Microsoft Windows phone I will return an implementation of a converter that allows you to change the background of a control in XAML based on the active theme.

Getting Started "steal" the tip of the evil genius on the way to determine the active theme (link ) and convert it to VB.NET. In particular, we create a shared method (but should be a property shared well) in our application class App:

1. Public Shared Function GetCurrentTheme() As Theme
2.      Dim bgc = App.Current.Resources( "PhoneBackgroundColor" ).ToString()
3.      If bgc = "#FF000000" Then
4.          Return Theme .Dark
5. Else
6. Return Theme .
Light
7. End If End
8. Function

Theme enumeration is defined as follows:

1. Public Enum Theme
2. Dark
3. Light
4. End Enum

At this point we can create our conveter:

1. Imports System.Windows.Data
2. Imports System.Windows.Media
4. Public Class ThemeColorConverter
5. Implements IValueConverter
7. Private Function GetColorFromName( ByVal strColor As String ) As Color ?
8.          Dim retColor As Color ? = Nothing
9.          Try
10.              Dim propColor = GetType ( Colors ).GetProperty(strColor)
11.              If propColor IsNot Nothing Then
12.                  Dim value = propColor .GetValue( Nothing , Nothing )
13.                  If value IsNot Nothing Then
14.                     retColor = CType (value, Color )
15.                  End If
16.              End If
17.          Catch ex As Exception
18.             retColor = Nothing
19.          End Try
20.          Return retColor
21.      End Function
22.  
23.      Private Function GetColorFromRGB( ByVal strColor As String ) As Color ?
24.          Dim retColor As Color ? = Nothing
25.         strColor = strColor .Replace( "#" , "" )
26.          Dim a As Byte = 255
27.          Dim r As Byte = 255
28.          Dim g As Byte = 255
29.          Dim b As Byte = 255
30.          Dim start = 0
31.          If strColor .Length = 6 Or strColor .Length = 8 Then
32.              If strColor .Length = 8 Then
33.                 a = Byte .Parse( strColor .Substring(0, 2), System.Globalization. NumberStyles .HexNumber)
34.                 start = 2
35.              End If
36.             r = Byte .Parse( strColor .Substring(start, 2), System.Globalization. NumberStyles .HexNumber)
37.             g Bytes = . Parse ( strColor . Substring (start + 2, 2), System.Globalization. NumberStyles . HexNumber)
38. & # 160; b = Byte . Parse ( strColor . Substring (start + 4, 2) , System.Globalization. NumberStyles . HexNumber)
39. & # 160; retColor = Color .FromArgb(a, r, g, b)
40.          End If
41.          Return retColor
42.      End Function
43.  
44.      Private Function GetColor( ByVal strColor As String ) As Color
45.          Dim retColor As Color
46.  
47.          Dim tmpColor = GetColorFromName(strColor)
48.          If Not tmpColor .HasValue Then
49.             tmpColor = GetColorFromRGB(strColor)
50.              If tmpColor .HasValue Then
51.                 retColor = tmpColor .Value
52.              End If
53.          Else
54.             retColor = tmpColor .Value
55.          End If
56.  
57.          Return retColor
58.      End Function
59.  
60.      Public Function Convert( ByVal value As Object ,
61.                              ByVal targetType As System. Type ,
62.                              ByVal parameter As Object ,
63.                              ByVal culture As System.Globalization. CultureInfo ) As Object Implements System.Windows.Data. IValueConverter .Convert
64.          If value IsNot Nothing Then
65.              Dim brush As SolidColorBrush = Nothing
66. ,.. Dim values \u200b\u200b= value ToString () Split ( " If
67. App .GetCurrentTheme() = Theme .Light Then
68.                     brush = New SolidColorBrush (GetColor(values(0)))                  Else
69.                     brush = New SolidColorBrush
(GetColor(values(1)))
70.                  End
71. If              End
72. If              Return
brush
73.          Else
            
74. Return Nothing
75.          End
76. If      End
77. Function  
    
78. Public Function ConvertBack( ByVal
value
79. As
80. Object ,                                  ByVal targetType As System. Type ,
                                
81. ByVal parameter As Object ,
                                
82. ByVal culture As System.Globalization. CultureInfo ) As
83. Object Implements System.Windows.Data. IValueConverter .ConvertBack          Throw New NotImplementedException ()
    
84. End Function End
85. Class
86. La funzione GetColor ci consente di obtain a Color object from a string in the following formats AARRGGBB #, # RRGGBB or "color name" (as that may be one of the possible colors of the class Colors ).
The Convert method of our converter retrieves the argument value, which by convention should be a string with the following format:

light color theme can be used directly in binding within the XAML.

To do this you simply reference the appropriate namespace:

xmlns:

my = "clr-namespace: WP7ThemeBackground"

Insert the converter into the resources of 'application or page
1. \u0026lt; phone

:

PhoneApplicationPage.Resources

>

1. \u0026lt; my : ThemeColorConverter x :
2. Key = "TCC"> \u0026lt;/ my : ThemeColorConverter > \u0026lt;/ phone : PhoneApplicationPage.Resources >
3. And finally, put the drive in with the background binding of control desired: \u0026lt; Grid

x

:

Name = "LayoutRoot"

1. Background = "{Binding Converter = { StaticResource TCC} , Source = Red \u0026lt; phone : phone application page x

:

Class

= "WP7ThemeBackground.MainPage"

xmlns = "http://schemas.microsoft.com/winfx/2006/xaml/presentation"

1. ; xmlns: x = "http://schemas.microsoft.com/winfx/2006/xaml"
2. xmlns: phone = "clr-namespace: Microsoft.Phone.Controls; Microsoft.Phone assembly ="
3. ; xmlns:
4. shell = "clr-namespace: Microsoft.Phone.Shell; Microsoft.Phone assembly =" & # 160; xmlns:
5. d = "http://schemas.microsoft.com/expression/blend/2008"     xmlns :
6. mc ="http://schemas.openxmlformats.org/markup-compatibility/2006"     xmlns :
7. my ="clr-namespace:WP7ThemeBackground"     mc :
8. Ignorable ="d" d : DesignWidth
9. ="480" d : design height = "768"
10. FontFamily = "{ StaticResource phone FontFamily normal} " font size = "{ StaticResource phone font size normal} "
11. Foreground = "{ StaticResource PhoneForegroundBrush} "
   
12. SupportedOrientations ="Portrait" Orientation ="Portrait"     shell
13. : SystemTray.IsVisible ="True" >      <
14. phone : PhoneApplicationPage.Resources >
        
15. < my : ThemeColorConverter
16. x : Key ="TCC"></ my : ThemeColorConverter
17. >      </ phone : PhoneApplicationPage.Resources >      <!--LayoutRoot is the root grid where all page content is placed-->      <
18. Grid x : Name ="LayoutRoot" Background ="{
19. Binding Converter ={
20. StaticResource TCC} , Source =Red AA00FF00} "> \u0026lt; Grid. RowDefinitions > & # 160; \u0026lt; RowDefinition Height = "Auto" />
<
21. RowDefinition Height ="*"/>         
22. </ Grid.RowDefinitions >           
23. <!--TitlePanel contains the name of the application and page title--> \u0026lt; StackPanel
x
24. : Name = "title panel" Grid.Row
= "0"
Margin
26. = "12,17,0,28> & # 160;
27. \u0026lt; TextBlock x : Name = "application title" text = "My Application" Style = "{ StaticResource
phone text normal style}
28. "/> & # 160; \u0026lt; TextBlock x : name = "page title" text = "pagename" Margin = "9, -7,0,0"
Style = "{
29. StaticResource PhoneTextTitle1Style } "/> \u0026lt;/ StackPanel > \u0026lt;- content panel - place additional content here -> \u0026lt; Grid
x
30. : Name = "content panel" Grid.Row
= "1"
Margin
32. = "12,0,12,0"> \u0026lt;/
Grid>
33. \u0026lt;/ Grid> \u0026lt;/ phone: PhoneApplicationPage >
34. Tag on Technorati: IValueConverter ,
WP7
35. , binding , phone windows 7 , background , solidbrush , color, colors

Nausea Dizziness Sore Throat

VB for Dummies: The Serialization - Part 1

Gracenotes Cd Database

I am MVP!!

Non sono improvvisamente diventato un pattern architetturale ma sono stato insignito dell’MVP Award per Visual Basic per l’anno 2011!!!

Ho letto e riletto la mail di comunicazione inviatami da Microsoft almeno 10 volte e altrettante volte la rileggerò nel pomeriggio perchè ancora non ci posso credere!!!!

Non so se me lo merito veramente e se ne sono all’altezza, ma la cosa mi gasa all’inverosimile e cercherò di moltiplicare l’impegno per esserne degno!!!!

mia moglie, santa donna, sometimes I neglected to write articles or pills or organize community events. You know that this is my passion and I could not do it;

Matthew that supported me (it would be better to say "born") in these three months of agonizing waiting, the mythical evil genius that thank in person as soon as I can (and, perhaps, without breaking the Zebedee in a day of celebration as January 1); to my fellow adventure DomusDotNet

that allowed me to do community and the way I and I have given me the opportunity to note, the deceased

DotNetRomaCestà

and his staff that, despite the attempt went wrong, gave me the opportunity to meet people and, in some way, show me.

Technorati tags:

MVP, Visual Basic

MVP, MVP 2011