PBWin/PBCC Get VARIANT type (VARIANTVT) literal

[Michael Mattias]

Not insightful, not terribly difficult, but should save some tedium.

USAGE:

  LOCAL vW AS VARIANT 
  LOCAL iType AS LONG 

  OBJECT GET/CALL  property/method  TO vW
  'what kind of variant is this? 
  iType =   VARIANTVT(vW) 
  
  PRINT    VariantTypeLiteral(iType) 

  ...

FUNCTION:

#IF NOT %DEF(%VT_DECIMAL)   ' not in PB Help file but can be returned by SQL Server/OLE
  %VT_DECIMAL = 14
#ENDIF

FUNCTION VariantTypeLiteral ( BYVAL iType AS LONG) AS STRING

    LOCAL X  AS LONG, W AS STRING

    ' mask off the array, BYREF and vector bits , handle separately
     X = iType AND NOT(%VT_ARRAY OR %VT_BYREF OR %VT_VECTOR)

    SELECT CASE AS LONG X
          CASE   %VT_EMPTY      :  W = "VT_EMPTY"      '  0 no value of any kind
          CASE   %VT_NULL       :  W = "VT_NULL"       '  1 null (eg from database)
          CASE   %VT_I2         :  W = "VT_I2"         '  2 INTEGER
          CASE   %VT_I4         :  W = "VT_I4"         '  3 LONG
          CASE   %VT_R4         :  W = "VT_R4"         '  4 single
          CASE   %VT_R8         :  W =  "VT_R8"        '  5 double
          CASE   %VT_CY         :  W = "VT_CY"         '  6 Currency
          CASE   %VT_DATE       :  W = "VT_DATE"       '  7 date (a double =   ccyymmdd.hhmmsstt)
          CASE   %VT_BSTR       :  W = "VT_BSTR"       '  8 dynamic string
          CASE   %VT_DISPATCH   :  W = "VT_DISPATCH"   '  9 IDispatch
          CASE   %VT_ERROR      :  W =  "VT_ERROR"     ' 10 errror (eg DISP_E_PARAMNOTFOUND)
          CASE   %VT_BOOL       :  W = "VT_BOOL"       ' 11 Boolean
          CASE   %VT_VARIANT    :  W =  "VT_VARIANT"   ' 12 Variant
          CASE   %VT_UNKNOWN    :  W = "VT_UNKNOWN"    ' 13  IUnknown (interface)
          CASE   %VT_DECIMAL    :  W = "VT_DECIMAL"    ' 14   decimal 16-byte fixed point use VarBstrfromDec to convert.
          CASE   %VT_I1         :  W  = "VT_I1"        ' 16  byte (signed)
          CASE   %VT_UI1        :  W = "VT_UI1"        ' 17  byte (unsigned)
          CASE   %VT_UI2        :  W = "VT_UI2"        ' 18  WORD  (unsigned)
          CASE   %VT_UI4        :  W = "VT_UI4"        ' 19  DWORD (unsigned)
          CASE   %VT_I8         :  W = "VT_I8"         ' 20   QUAD (signed)
          CASE   %VT_UI8        :  W = "VT_UI8"        ' 21  QUAD (unsigned) (LARGE_UINT)
          CASE   %VT_INT        :  W = "VT_INT"        ' 22  integer (signed)
          CASE   %VT_UINT       :  W = "VT_UINT"       ' 23  WORDr (unsigned)
          CASE   %VT_VOID       :  W = "VT_VOID"       ' 24  C-style VOID (???)
          CASE   %VT_HRESULT    :  W = "VT_HRESULT"    ' 25  COM result code
          CASE   %VT_PTR        :  W = "VT_PTR"        ' 26  Pointer
          CASE   %VT_SAFEARRAY  :  W = "VT_SAFEARRAY"  ' 27  VB array
          CASE   %VT_CARRAY     :  W = "VT_VCARRAY"    ' 28  C-style array
          CASE   %VT_USERDEFINED:  W = "VT_USERDEFINED"' 29  user-defined type
          CASE   %VT_LPSTR     :  W = "VT_LPSTR"       ' 30  (ptr to)  ANSI STRING (ASCIIZ PTR)
          CASE   %VT_LPWSTR      :  W = "VT_LPWSTR"    ' 31  (ptr to)  Unicode string
          CASE   %VT_FILETIME     :  W = "VT_FILETIME  ' 64  FILETIME structure
          CASE   %VT_BLOB       :  W = "VT_BLOB"      '  64  arbitrary block of memory
          CASE   %VT_STREAM     :  W = "VT_STREAM"     ' 66  byte stream
          CASE   %VT_STORAGE   :  W = "VT_STORAGE"     ' 67  Name of the storage object
          CASE   %VT_STREAMED_OBJECT: :  W = "VT_STREAMED_OBJECT"  ' 68 A stream that contains an object
          CASE   %VT_STORED_OBJECT: :  W = "VT_STORED_OBJECT"  ' 69  A storage object
          CASE   %VT_BLOB_OBJECT: :  W = "VT_BLOB_OBJECT"  ' 70 A block of memory that represents an object
          CASE   %VT_CF           :  W = "VT_CF"        ' 71 A clipboard format
          CASE   %VT_CLSID        :  W = "VT_CLSID"        ' 72 Class ID
          CASE   ELSE             :  W = USING$ ("Unrecognized &", HEX$(X,2))
    END SELECT

    ' add literals for optional bits in an order which makes sense when reading them
    IF ISTRUE (iType AND %VT_BYREF) THEN
        W  =   W & " BYREF"
    END IF
    IF ISTRUE (iType AND %VT_VECTOR) THEN
          W = W & " VECTOR (leading count)"
    END IF
    IF ISTRUE (Itype AND %VT_ARRAY) THEN
          W =  W & " ARRAY
    END IF

    FUNCTION = W

END FUNCTION

MCM

[John Montenigro]

The Help for VARIANTVT lists an additional case that isn't in the general section under "Variant Data Types"

-John

36

%VT_RECORD _

UDT