Enviar tipos INIT16 o INIT8 desde Harbour

Enviar tipos INIT16 o INIT8 desde Harbour

Postby miarcod » Fri Sep 22, 2017 6:02 pm

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  Expand view
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  Expand view

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  Expand view

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
miarcod
 
Posts: 197
Joined: Tue Oct 11, 2005 2:17 pm

Return to FiveWin para Harbour/xHarbour

Who is online

Users browsing this forum: Google [Bot] and 7 guests

cron