Fix bugs created by shared_ptr

src/types/streamheapobject.cpp

@@ -200,8 +200,17 @@ namespace Tesses::CrossLang
         }
         
     }
+    void TObjectStream::Close()
+    {
+        TDictionary* dict;
+        if(GetObjectHeap(this->obj, dict))
+        {
+            dict->CallMethod(*ls,"Close",{});
+        }
+    }
     TObjectStream::~TObjectStream()
     {
+        Close();
         delete this->ls;
     }
 

src/types/vfsheapobject.cpp

@@ -501,15 +501,19 @@ namespace Tesses::CrossLang {
             
         }
     }
-    TObjectVFS::~TObjectVFS()
+    void TObjectVFS::Close()
     {
-
         TDictionary* dict;
         if(GetObjectHeap(this->obj, dict))
         {
             GCList ls(this->ls->GetGC());
-            dict->CallMethod(ls,"Dispose",{});
+            dict->CallMethod(ls,"Close",{});
         }
+    }
+    TObjectVFS::~TObjectVFS()
+    {
+
+        Close();
         delete this->ls;
     }