Changeset 452 for trunk/Include/Classes/System/Xml/XmlDocument.ab

Timestamp:

Mar 3, 2008, 10:15:06 PM (16 years ago)

Author:

dai

Message:

System/Xml/Serialization/XmlSerializer.abを追加。
まずはシリアライズ処理を動くようにした。
※逆シリアライズは未実装なので、ActiveBasic.Xml.Parserクラスを実装してから対応すること。

File:

• trunk/Include/Classes/System/Xml/XmlDocument.ab (modified) (2 diffs)

trunk/Include/Classes/System/Xml/XmlDocument.ab

@@ -94 +94 @@
 
     /*!
+    @brief  指定したストリームからXML文書を読み込む。
+    @param  stream 読み込み先のストリーム。
+    */
+    Virtual Sub Load( inStream As System.IO.Stream )
+        Dim length = inStream.Length As DWord
+        Dim xmlBuffer = calloc( length + 1 ) As *StrChar
+        inStream.Read( xmlBuffer As *Byte, 0, length )
+        Dim xmlString = New String( xmlBuffer )
+        free( xmlBuffer )
+
+        This.RemoveAll()
+        ActiveBasic.Xml.Parser.Parse( xmlString, This )
+    End Sub
+
+    /*!
+    @brief  指定したファイルからXML文書を読み込む。
+    @param  ファイルパス。
+    */
+    Virtual Sub Load( filename As String )
+        Dim fileStream As System.IO.FileStream( filename, System.IO.FileMode.Open, System.IO.FileAccess.Read )
+        Load( fileStream )
+    End Sub
+
+    /*!
     @brief  指定したストリームにXML文書を保存する。
     @param  stream 保存先のストリーム。
@@ -107 +131 @@
     */
     Virtual Sub Save( filename As String )
-        Dim fileStream As System.IO.FileStream( filename, System.IO.FileMode.Create )
+        Dim fileStream As System.IO.FileStream( filename, System.IO.FileMode.Create, System.IO.FileAccess.Write )
         Save( fileStream )
     End Sub
 
+Private
+    Sub LoadXmlString( xmlString As String)
+    End Sub
 End Class