Conversion a C

[Carles]

Hola,

Haber quien me hecha un cable con esta conversion a C

Me gustaria hacer esto:

Code: Select all  Expand view  RUN

FUNCTION Test( cData )

  Local nError := 0

   MiFuncionC( cData, @nError )

RETURN nError

Yo creo q seria algo asi, pero me falta definir nError y como paso el paramtro por referencia:

Code: Select all  Expand view  RUN

#pragma BEGINDUMP

#include "windows.h"
#include "hbapi.h"

LPWSTR AnsiToWide( LPSTR );

HB_FUNC  ( TEST )
{
    LPWSTR cData = AnsiToWide( hb_parc( 1 ) );

    MiFuncionC( cData, nError ???)      <- Como defino nError ( p.e. nError := 0, y lo paso por referencia )

   retnl( nError )

}
#pragma ENDDUMP


Gracias atodos.

[jlcapel]

Carles,

Quizás esto te pueda ayudar, aunque no estoy muy seguro.

http://www.capelblog.com/?p=75

Saludos,
José Luis Capel

[Antonio Linares]

Carles,

Es bastante más simple si lo cambias así:

Code: Select all  Expand view  RUN

FUNCTION Test( cData, nError )

   MiFuncionC( cData, @nError )

RETURN nError


te sirve ?

[Carles]

Antonio,

Si me serviria, pero como declaro la variable nError dentro de la funcion y como la paso por referencia ?

Code: Select all  Expand view  RUN

#pragma BEGINDUMP

#include "windows.h"
#include "hbapi.h"

LPWSTR AnsiToWide( LPSTR );

HB_FUNC  ( TEST )
{
    LPWSTR cData = AnsiToWide( hb_parc( 1 ) );
    nError = hb_parnl(2) ;               <- Como declaro nError (2º parametro) ?

    MiFuncionC( cData, &nError)      <- Como defino nError por referencia con el & ?

}
#pragma ENDDUMP

Gracias

[Antonio Linares]

Carles,

Code: Select all  Expand view  RUN

#pragma BEGINDUMP

#include "windows.h"
#include "hbapi.h"

LPWSTR AnsiToWide( LPSTR );

HB_FUNC  ( TEST )
{
    LPWSTR cData = AnsiToWide( hb_parc( 1 ) );
    LONG nError = hb_parnl(2) ;

    MiFuncionC( cData, &nError );

    hb_stornl( nError, 2 );
}
#pragma ENDDUMP


[Carles]

Antonio,

Gracias. Casi lo consigo . Voy a probarlo

[Carles]

Antonio,

El ejemplo propuesto funciona de maravillas -> gracias.

Ahora necesito crear otro ejemplo, y necesito saber como se declaran las variables. No me gusta tocar las narices y si me dices donde puedo encontrar definiciones, me lo mirare. He intentado mirarme ficheros include, pero la verdad, no se si realmente miro lo correcto. Tambien, donde puedo mirar funciones que devuelven los valors, tipo hb_stornl(), hb_retnl(), ...

Ahora estoy enganchado en definir lo q en un prg seria:

cBuffer := Space(200)
lAccept := .f.


Gracias.

[Antonio Linares]

Carles,

> cBuffer := Space(200)

char buffer[ 200 ];

> lAccept := .f.

BOOL bAccept = FALSE;

Revisa el código fuente de Harbour. En el directorio RTL tienes muchos ejemplos.