Changeset 267 for Include/com/variant.ab

Timestamp:

Jun 2, 2007, 6:53:34 PM (17 years ago)

Author:

イグトランス (egtra)

Message:

COM関係を名前空間に入れた

File:

• Include/com/variant.ab (modified) (4 diffs)

Include/com/variant.ab

@@ -7 +7 @@
 #require <oleauto.ab>
 #require <com/index.ab>
+
+Namespace ActiveBasic
+Namespace COM
 
 Class Variant
@@ -376 +379 @@
 
     Override Function ToString() As String
-        Dim tmp = ChangeType(VT_BSTR)
+        Dim tmp = ChangeType(VT_BSTR, VARIANT_ALPHABOOL)
         Dim bs = ((tmp.v.val As ULONG_PTR) As BSTR)
         Return New String(bs As PCWSTR, SysStringLen(bs) As Long)
@@ -534 +537 @@
     Const Function ValStr() As BString
         Dim r As VARIANT
-        ChangeType(r, 0, VT_BSTR)
+        ChangeType(r, VARIANT_ALPHABOOL, VT_BSTR)
         Dim bs = New BString
         bs.Attach(GetPointer(VarPtr(r.val)) As BSTR)
@@ -634 +637 @@
 */
 
+End Namespace 'COM
+End Namespace 'ActiveBasic
+
 #endif '_COM_VARIANT_AB