xHarbour 64 bits y xbScritp - (Solucionado)

[Enrico Maria Giordano]

This is a console sample I'm using (from xHarbour docs). It crashes at DLLEXECUTECALL():

Code: Select all  Expand view

#define DC_CALL_STD 0x20


FUNCTION MAIN()

    LOCAL cString := "Hello World"
    LOCAL nWideLen := 2 * LEN( cString )
    LOCAL cWideChar := REPLICATE( CHR( 0 ), nWideLen )

    LOCAL pCallTemplate := DLLPREPARECALL( "kernel32.dll", DC_CALL_STD, "MultiByteToWideChar" )
    LOCAL nRet := DLLEXECUTECALL( pCallTemplate, 0, 0, cString, -1, @cWideChar, nWideLen )

    ? nRet

    INKEY( 0 )

    RETURN NIL