Page 1 of 1

harbour actual

Posted: Thu May 19, 2016 11:23 pm
by 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

        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

Re: harbour actual

Posted: Fri May 20, 2016 7:51 am
by Antonio Linares
Wilson,

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

Re: harbour actual

Posted: Fri May 20, 2016 8:44 am
by Enrico Maria Giordano
Antonio Linares wrote:char * cStr = ( char * ) hb_parc( 1 );
Or better:

Code: Select all

const char * cStr = hb_parc( 1 );
EMG

Re: harbour actual

Posted: Fri May 20, 2016 2:00 pm
by wilsongamboa
Wow excelente funciono de maravilla
Gracias Maestro Antonio y Enrico
saludos

Wilson