source: trunk/TestCase/SimpleTestCase/SerializeTest.ab@ 474

Namespace SerializeTest

Class Foo
    a As Long
    b As Long
    c As Long
    d As Long
Public
    Sub Foo()
        a=100
        b=200
        c=300
        d=400
    End Sub
End Class

Sub TestMain()
    ' 一時ディレクトリを取得
    Dim tempDir = GetExclusiveTempDirPath( "SerializeTest" )

    ' fooインスタンスを生成
    Dim foo = New Foo


    '----------------------------------------------------------------
    ' シリアライズ
    '----------------------------------------------------------------

    ' 保存先のファイルを開いて、
    Dim fooXmlFilePath = tempDir + "\foo.xml"
    Dim fs = New System.IO.FileStream( fooXmlFilePath, System.IO.FileMode.Create )

    ' シリアライズして、
    Dim serializer = New System.Xml.Serialization.XmlSerializer( foo.GetType() )
    serializer.Serialize( fs, foo )

    ' 閉じる。
    fs.Close()


    '----------------------------------------------------------------
    ' デシリアライズ
    '----------------------------------------------------------------

    ' 読み込んでみる。
    Dim doc = New System.Xml.XmlDocument
    doc.Load( tempDir + "\foo.xml" )
    System.Diagnostics.Debug.WriteLine( doc.OuterXml )

    ' TODO: デシリアライズは未完成(￣□￣；)
End Sub


End Namespace

SerializeTest.TestMain()