GSerg » 20.10.2005 (Чт) 22:59
Так, что ли...
- Код: Выделить всё
Imports System.Runtime.Serialization.Formatters.Soap
Module Module1
Sub Main()
Dim s As New SoapFormatter, st As New IO.MemoryStream
Dim c As New test
s.Serialize(st, c)
st.Seek(0, IO.SeekOrigin.Begin)
Dim tr As New IO.StreamReader(st)
Console.WriteLine(tr.ReadToEnd())
st.Close()
Console.ReadLine()
End Sub
End Module
<Serializable()> Public Class test
Implements Runtime.Serialization.ISerializable
Public Delegate Sub sdf(ByVal t As Integer)
Public Event asdf As sdf
Public i, j, k As Integer
Public Sub GetObjectData(ByVal info As System.Runtime.Serialization.SerializationInfo, ByVal context As System.Runtime.Serialization.StreamingContext) Implements System.Runtime.Serialization.ISerializable.GetObjectData
info.AddValue("i", i)
info.AddValue("j", j)
info.AddValue("k", k)
End Sub
End Class
Как только вы переберёте все варианты решения и не найдёте нужного, тут же обнаружится решение, простое и очевидное для всех, кроме вас