harbour actual

[wilsongamboa]

Buenas tardes
tengo un programa de consola funcionando bien con xharbour 1.5 o algo asi, deseo comilar con el harbour actual y me da este error o warning

\wilson\inves\w1seek.prg:4922:26: warning: initialization discards 'const' quali
fier from pointer target type
char * cStr = hb_parc( 1 );
^

la funcion ala que se refiere es

Code: Select all  Expand view

       HB_FUNC ( COPY2CLIPBOARD )
        {
           HGLOBAL hglbCopy;
           char * lptstrCopy;
           char * cStr = hb_parc( 1 );
           int nLen = strlen( cStr );


           if ( !OpenClipboard( GetActiveWindow() ) )
              return;

           EmptyClipboard();

           hglbCopy = GlobalAlloc( GMEM_DDESHARE, (nLen+1) * sizeof(TCHAR) );
           if (hglbCopy == NULL)
           {
               CloseClipboard();
               return;
           }
 

alguna alma caritativa me puede ayudar a resolver ese error
gracias

Wilson

[Antonio Linares]

Wilson,

char * cStr = ( char * ) hb_parc( 1 );

[Enrico Maria Giordano]

char * cStr = ( char * ) hb_parc( 1 );

Or better:

Code: Select all  Expand view

const char * cStr = hb_parc( 1 );

EMG

[wilsongamboa]

Wow excelente funciono de maravilla
Gracias Maestro Antonio y Enrico
saludos

Wilson