Migrating to Harbour

[Antonio Linares]

Enrico,

xHarbour defines such function as:

FUNCTION OleDefaultArg()

RETURN VTWrapper( VT_ERROR, DISP_E_PARAMNOTFOUND )

So I guess that for those missing params, a Variant of type VT_ERROR is required.

[Enrico Maria Giordano]

Antonio,

Enrico,

Do you just need function OleDefaultArg() ?

Yes!

EMG

[Enrico Maria Giordano]

Antonio,

Enrico,

xHarbour defines such function as:

FUNCTION OleDefaultArg()

RETURN VTWrapper( VT_ERROR, DISP_E_PARAMNOTFOUND )

So I guess that for those missing params, a Variant of type VT_ERROR is required.

And?

EMG

[Antonio Linares]

Enrico,

We already commented this (as far as I remember)

Harbour function void hb_oleItemToVariantRef() actually uses these types:
case HB_IT_STRING:
case HB_IT_MEMO:
case HB_IT_LOGICAL:
case HB_IT_INTEGER:
case HB_IT_LONG:
case HB_IT_DOUBLE:
case HB_IT_DATE:
case HB_IT_TIMESTAMP:
case HB_IT_POINTER:
case HB_IT_ARRAY: /* or OBJECT */
if( HB_IS_OBJECT( pItem ) )

and also there is a default branch:
default:
if( pVarRef )
{
V_VT( pVarRef ) = VT_VARIANT | VT_BYREF;
V_VARIANTREF( pVarRef ) = pVariant;
}

Where to insert it ? I guess we may need to use HB_IT_ARRAY and HB_IS_OBJECT(), as if we do it for all NILs then we will be changing many users code default behavior.

[nageswaragunupudi]

We should not change NILs.

When the parameter is an Object then we need to deal with Obj[1] and obj[2]

[Antonio Linares]

We should do it the same way the xHarbour does it:

case HB_IT_ARRAY: /* or OBJECT */
if( HB_IS_OBJECT( pItem ) )

[Enrico Maria Giordano]

Sorry, I can't be of any help...

EMG

[Enrico Maria Giordano]

Any news about OleDefaultArg() in Harbour?

EMG