Module cCrystalcdo32.pkg

     1// Visual DataFlex COM proxy classes generated from C:\Program Files\Common Files\Business Objects\3.0\bin\Cdo32.dll
     2Use FlexCom20.pkg
     3
     4
     5// CLSID: {7C5A4C13-A559-11D0-881A-00AA00BA30B7}
     6// ICrystalDataObject Interface
     7Class cCrystalICrystalDataObject is a Mixin
     8
     9    // property RowCount
    10    { MethodType=Property }
    11    Function ComRowCount Returns Integer
    12        Handle hDispatchDriver
    13        Integer retVal
    14        Get phDispatchDriver to hDispatchDriver
    15        Get InvokeComMethod of hDispatchDriver 1 OLE_VT_I4 to retVal
    16        Function_Return retVal
    17    End_Function
    18
    19    // method AddRows
    20    Procedure ComAddRows Variant llRowData
    21        Handle hDispatchDriver
    22        Get phDispatchDriver to hDispatchDriver
    23        Send PrepareParams to hDispatchDriver 1
    24        Send DefineParam to hDispatchDriver OLE_VT_VARIANT llRowData
    25        Send InvokeComMethod to hDispatchDriver 2 OLE_VT_VOID
    26    End_Procedure
    27
    28    // method Reset
    29    Procedure ComReset
    30        Handle hDispatchDriver
    31        Get phDispatchDriver to hDispatchDriver
    32        Send InvokeComMethod to hDispatchDriver 3 OLE_VT_VOID
    33    End_Procedure
    34
    35    // method DeleteField
    36    Function ComDeleteField String llFieldName Returns Boolean
    37        Handle hDispatchDriver
    38        Boolean retVal
    39        Get phDispatchDriver to hDispatchDriver
    40        Send PrepareParams to hDispatchDriver 1
    41        Send DefineParam to hDispatchDriver OLE_VT_BSTR llFieldName
    42        Get InvokeComMethod of hDispatchDriver 4 OLE_VT_BOOL to retVal
    43        Function_Return retVal
    44    End_Function
    45
    46    // method getEOF
    47    Function ComGetEOF Returns Boolean
    48        Handle hDispatchDriver
    49        Boolean retVal
    50        Get phDispatchDriver to hDispatchDriver
    51        Get InvokeComMethod of hDispatchDriver 5 OLE_VT_BOOL to retVal
    52        Function_Return retVal
    53    End_Function
    54
    55    // method MoveNext
    56    Function ComMoveNext Returns Boolean
    57        Handle hDispatchDriver
    58        Boolean retVal
    59        Get phDispatchDriver to hDispatchDriver
    60        Get InvokeComMethod of hDispatchDriver 6 OLE_VT_BOOL to retVal
    61        Function_Return retVal
    62    End_Function
    63
    64    // method MoveFirst
    65    Function ComMoveFirst Returns Boolean
    66        Handle hDispatchDriver
    67        Boolean retVal
    68        Get phDispatchDriver to hDispatchDriver
    69        Get InvokeComMethod of hDispatchDriver 7 OLE_VT_BOOL to retVal
    70        Function_Return retVal
    71    End_Function
    72
    73    // method GetColCount
    74    Function ComGetColCount Returns Short
    75        Handle hDispatchDriver
    76        Short retVal
    77        Get phDispatchDriver to hDispatchDriver
    78        Get InvokeComMethod of hDispatchDriver 8 OLE_VT_I2 to retVal
    79        Function_Return retVal
    80    End_Function
    81
    82    // method MoveTo
    83    Function ComMoveTo Integer llrecordNum Returns Boolean
    84        Handle hDispatchDriver
    85        Boolean retVal
    86        Get phDispatchDriver to hDispatchDriver
    87        Send PrepareParams to hDispatchDriver 1
    88        Send DefineParam to hDispatchDriver OLE_VT_I4 llrecordNum
    89        Get InvokeComMethod of hDispatchDriver 9 OLE_VT_BOOL to retVal
    90        Function_Return retVal
    91    End_Function
    92
    93    // method AddField
    94    Function ComAddField String llFieldName Variant llFieldType Returns Boolean
    95        Handle hDispatchDriver
    96        Boolean retVal
    97        Get phDispatchDriver to hDispatchDriver
    98        Send PrepareParams to hDispatchDriver 2
    99        Send DefineParam to hDispatchDriver OLE_VT_BSTR llFieldName
   100        Send DefineParam to hDispatchDriver OLE_VT_VARIANT llFieldType
   101        Get InvokeComMethod of hDispatchDriver 10 OLE_VT_BOOL to retVal
   102        Function_Return retVal
   103    End_Function
   104
   105    // method GetFieldData
   106    Function ComGetFieldData Short llcolumn Returns Variant
   107        Handle hDispatchDriver
   108        Variant retVal
   109        Get phDispatchDriver to hDispatchDriver
   110        Send PrepareParams to hDispatchDriver 1
   111        Send DefineParam to hDispatchDriver OLE_VT_I2 llcolumn
   112        Get InvokeComMethod of hDispatchDriver 11 OLE_VT_VARIANT to retVal
   113        Function_Return retVal
   114    End_Function
   115
   116    // method GetFieldName
   117    Function ComGetFieldName Short llcolumn Returns String
   118        Handle hDispatchDriver
   119        String retVal
   120        Get phDispatchDriver to hDispatchDriver
   121        Send PrepareParams to hDispatchDriver 1
   122        Send DefineParam to hDispatchDriver OLE_VT_I2 llcolumn
   123        Get InvokeComMethod of hDispatchDriver 12 OLE_VT_BSTR to retVal
   124        Function_Return retVal
   125    End_Function
   126
   127    // method GetFieldType
   128    Function ComGetFieldType Variant llField Returns Short
   129        Handle hDispatchDriver
   130        Short retVal
   131        Get phDispatchDriver to hDispatchDriver
   132        Send PrepareParams to hDispatchDriver 1
   133        Send DefineParam to hDispatchDriver OLE_VT_VARIANT llField
   134        Get InvokeComMethod of hDispatchDriver 13 OLE_VT_I2 to retVal
   135        Function_Return retVal
   136    End_Function
   137End_Class
   138
   139// CoClass
   140// ProgID: CrystalDataObject.CrystalComObject
   141// CLSID: {41B60FA4-AB20-4E3E-A515-E3A87D3EB0A9}
   142// Crystal Data Object 2.7
   143{ HelpTopic=cCrystalCrystalComObject }
   144Class cCrystalCrystalComObject is a cComAutomationObject
   145    Import_Class_Protocol cCrystalICrystalDataObject
   146
   147    Procedure Construct_Object
   148        Forward Send Construct_Object
   149        Set psProgID to "{41B60FA4-AB20-4E3E-A515-E3A87D3EB0A9}"
   150        Set peAutoCreate to acNoAutoCreate
   151    End_Procedure
   152End_Class
   153