Enviar tipos INIT16 o INIT8 desde Harbour

[miarcod]

Como puedo hacer para enviar un tipo de dato a una funcion que espera recibir un valor de tipo unsigned short o del tipo byte

esta es la definicion de la funcion

Code: Select all

HRESULT resizeAndFlatten    (   [in] VARIANT    image,
        [in] UINT32     offsetX,
        [in] UINT32     offsetY,
        [in] UINT32     bitmapWidth,
        [in] UINT32     bitmapHeight,
        [in] UINT16     screenWidth,
        [in] UINT16     screenHeight,
        [in] UINT8      encodingMode,
        [in] Scale      scale,
        [in] VARIANT    backgroundColor,
        [in] UINT8      clip,
        [out, retval] SAFEARRAY(UINT8)*     pRetVal 
    )      

No se como enviar los valores UINT16 y UNIT8

Code: Select all

stuImage = protocolHelper:resizeAndFlatten(cImage, nx, nY, nBmpAncho, nBmpAlto, nScrAncho,  nScrAlto, lIsColor, nScale, nBack, aClip)

Deberia devolver un puntero a los datos que envia la siguiente funcion

Code: Select all

tablet:writeImage(encodingMode, stuImage)     // uses the colour mode flags in encodingMode
 

No lo hace correctamente y creo que es porque esta funcion no recibe los datos correctos

gracias por vuestro tiempo