Changeset 463

Timestamp:

Mar 8, 2008, 4:49:58 PM (16 years ago)

Author:

dai

Message:

ファイルのClose処理が抜けていたので修正。

File:

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

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

@@ -101 +101 @@
         Dim xmlBuffer = calloc( length + 1 ) As *StrChar
         inStream.Read( xmlBuffer As *Byte, 0, length )
+        inStream.Close()
         Dim xmlString = New String( xmlBuffer )
         free( xmlBuffer )
@@ -124 +125 @@
         Dim xmlStr = InnerXmlSupportedIndent( True )
         outStream.Write( xmlStr.StrPtr As *Byte, 0, xmlStr.Length * SizeOf( StrChar ) )
+        outStream.Close()
     End Sub
 
@@ -134 +136 @@
         Save( fileStream )
     End Sub
-
-Private
-    Sub LoadXmlString( xmlString As String)
-    End Sub
 End Class