http://www.vbex.ru/index.php?action=history&feed=atom&title=VB.Net_by_API%2FSystem.Runtime.Serialization%2FIDeserializationCallbackVB.Net by API/System.Runtime.Serialization/IDeserializationCallback - История изменений2026-04-05T05:16:20ZИстория изменений этой страницы в викиMediaWiki 1.30.0http://www.vbex.ru/index.php?title=VB.Net_by_API/System.Runtime.Serialization/IDeserializationCallback&diff=2623&oldid=prev в 16:40, 26 мая 20102010-05-26T16:40:16Z<p></p>
<table class="diff diff-contentalign-left" data-mw="interface">
<tr style="vertical-align: top;" lang="ru">
<td colspan="1" style="background-color: white; color:black; text-align: center;">← Предыдущая</td>
<td colspan="1" style="background-color: white; color:black; text-align: center;">Версия 16:40, 26 мая 2010</td>
</tr><tr><td colspan="2" style="text-align: center;" lang="ru"><div class="mw-diff-empty">(нет различий)</div>
</td></tr></table>http://www.vbex.ru/index.php?title=VB.Net_by_API/System.Runtime.Serialization/IDeserializationCallback&diff=2624&oldid=prevAdmin: 1 версия2010-05-26T12:51:22Z<p>1 версия</p>
<p><b>Новая страница</b></p><div>==Implements IDeserializationCallback==<br />
<br />
<br />
<br />
<source lang="vbnet"> <br />
Imports System<br />
Imports System.IO<br />
Imports System.Runtime.Serialization<br />
Imports System.Runtime.Serialization.Formatters.Binary<br />
Imports System.Runtime.Serialization.Formatters.Soap<br />
Public Class Tester<br />
Public Shared Sub Main<br />
<br />
Dim myClsSerializable As New SerializeObject()<br />
SerializeBinary(myClsSerializable)<br />
Console.WriteLine(FileContent(False))<br />
<br />
Dim myFileStream As FileStream<br />
myFileStream = New FileStream("test.dat", FileMode.Open, FileAccess.Read)<br />
Dim myFormatter As New BinaryFormatter()<br />
myClsSerializable = CType(myFormatter.Deserialize(myFileStream), SerializeObject)<br />
End Sub<br />
Private Shared Function FileContent(ByVal blnBinary As Boolean) As String<br />
Dim strContent As String<br />
Dim myStreamReader As StreamReader<br />
Dim myFileStream As FileStream<br />
Dim i As Integer<br />
Try<br />
myFileStream = New FileStream("test.dat", FileMode.Open, FileAccess.Read)<br />
If blnBinary = True Then<br />
For i = 1 To myFileStream.Length<br />
strContent += myFileStream.ReadByte.ToString + " "<br />
Next<br />
Else<br />
myStreamReader = New StreamReader(myFileStream)<br />
strContent = myStreamReader.ReadToEnd<br />
End If<br />
myFileStream.Flush()<br />
myFileStream.Close()<br />
Return strContent<br />
Catch ex As IOException<br />
Console.WriteLine(ex.Message)<br />
End Try<br />
End Function<br />
Private Shared Sub SerializeBinary(ByVal myClsSerializable As SerializeObject)<br />
Dim myFileStream As FileStream = New FileStream("test.dat", FileMode.Create, FileAccess.Write)<br />
Dim myBFormatter As BinaryFormatter = New BinaryFormatter()<br />
myBFormatter.Serialize(myFileStream, myClsSerializable)<br />
myFileStream.Flush()<br />
myFileStream.Close()<br />
End Sub<br />
End Class<br />
<br />
<Serializable()> _<br />
Public Class SerializeObject<br />
Implements IDeserializationCallback<br />
Public firstNumber As Integer<br />
Public secondNumber As Integer<br />
<NonSerialized()> Public thirdNumber As Integer<br />
<NonSerialized()> Public forthNumber As Integer<br />
Public Sub New()<br />
firstNumber = 1000<br />
secondNumber = 2000<br />
thirdNumber = 100<br />
forthNumber = 200<br />
End Sub<br />
Public Sub OnDeserialization(ByVal sender As Object) _<br />
Implements IDeserializationCallback.OnDeserialization<br />
Console.WriteLine("OnDeserialization")<br />
thirdNumber = 100<br />
End Sub<br />
End Class<br />
<br />
<br />
</source></div>Admin