topic-14615

Board index FiveWin para Harbour/xHarbour Compilar código 'C'.

Posts: 1445

Joined: Mon Oct 10, 2005 02:38 PM

Compilar código 'C'.
Posted: Tue Feb 17, 2009 10:32 PM

A ver si alguién puede compilar este código.

Yo ya no se que mirar (el problema es que no se 'C').
El problema lo tengo con: 'BYTE InputType', al compilador no le gusta como le asigno el valor a 'InputType'.

Un Saludo y gracias.
Carlos G.

Este es el código:

Code (fw): Select all Collapse

#pragma BEGINDUMP

#include <hbapi.h>
#include <windows.h>

struct arg_list {
    long   InitLine;          // Line number to position at the beginning.
    BYTE   InputType;         /* This flag specifies the input type. If you wish to
                                 edit a file, set the input_type to 'F'. Conversely,
                                 if you wish to pass the text for editing in a buffer,
                                 set this field to 'B'. */
    BYTE   file[131];        /*  If the input type is set to 'F',  specify the file
                                 name for editing in this field. */
                             // ===== Buffer input fields only =======
    };

HWND CreateTerWindow( HWND );

HB_FUNC( PRGCreateTerWindow )
{

   HWND hWndTer;

   struct arg_list aParams;

   aParams.InitLine      = hb_parnl(1,19);
   aParams.InputType     = hb_parc(1,20);
   strcpy( aParams.file, hb_parc( 1, 21 ) );

   hWndTer = CreateTerWindow( &aParams );

   hb_reta( 2 ); // creamos y devolvemos un array de 2 elementos.

   // rellenamos los datos del array (situado en "return", que se indica con -1)
   hb_stornl( ( LONG ) hWndTer, -1, 1 );
   hb_stornl( ( LONG ) aParams.InitLine, -1, 2 );

}

#pragma ENDDUMP

Un Saludo

Carlos G.

FiveWin 25.12 + Harbour 3.2.0dev (r2502110321), BCC 7.7 Windows 11 Home

Antonio Linares

Posts: 44158

Joined: Thu Oct 06, 2005 05:47 PM

Re: Compilar código 'C'.
Posted: Tue Feb 17, 2009 11:01 PM

Carlos,

Asi compila bien. Compara los cambios que he hecho:

Code (fw): Select all Collapse

#pragma BEGINDUMP

#include <hbapi.h>
#include <windows.h>

struct arg_list {
    long   InitLine;          // Line number to position at the beginning.
    BYTE   InputType;         /* This flag specifies the input type. If you wish to
                                 edit a file, set the input_type to 'F'. Conversely,
                                 if you wish to pass the text for editing in a buffer,
                                 set this field to 'B'. */
    BYTE   file[131];        /*  If the input type is set to 'F',  specify the file
                                 name for editing in this field. */
                             // ===== Buffer input fields only =======
    };

HWND CreateTerWindow( struct arg_list * );

HB_FUNC( PRGCreateTerWindow )
{

   HWND hWndTer;

   struct arg_list aParams;

   aParams.InitLine      = hb_parnl(1,19);
   aParams.InputType     = hb_parc(1,20)[ 0 ];
   strcpy( aParams.file, hb_parc( 1, 21 ) );

   hWndTer = CreateTerWindow( &aParams );

   hb_reta( 2 ); // creamos y devolvemos un array de 2 elementos.

   // rellenamos los datos del array (situado en "return", que se indica con -1)
   hb_stornl( ( LONG ) hWndTer, -1, 1 );
   hb_stornl( ( LONG ) aParams.InitLine, -1, 2 );

}

#pragma ENDDUMP

regards, saludos

Antonio Linares
www.fivetechsoft.com

FiveWiDi

Posts: 1445

Joined: Mon Oct 10, 2005 02:38 PM

Re: Compilar código 'C'.
Posted: Wed Feb 18, 2009 12:14 PM

Muchísimas gracias Antonio,

Esta tarde lo pruebo.

Un saludo
Carlos G.

Antonio Linares wrote:Carlos,

Asi compila bien. Compara los cambios que he hecho:

Code (fw): Select all Collapse

#pragma BEGINDUMP

#include <hbapi.h>
#include <windows.h>

struct arg_list {
    long   InitLine;          // Line number to position at the beginning.
    BYTE   InputType;         /* This flag specifies the input type. If you wish to
                                 edit a file, set the input_type to 'F'. Conversely,
                                 if you wish to pass the text for editing in a buffer,
                                 set this field to 'B'. */
    BYTE   file[131];        /*  If the input type is set to 'F',  specify the file
                                 name for editing in this field. */
                             // ===== Buffer input fields only =======
    };

HWND CreateTerWindow( struct arg_list * );

HB_FUNC( PRGCreateTerWindow )
{

   HWND hWndTer;

   struct arg_list aParams;

   aParams.InitLine      = hb_parnl(1,19);
   aParams.InputType     = hb_parc(1,20)[ 0 ];
   strcpy( aParams.file, hb_parc( 1, 21 ) );

   hWndTer = CreateTerWindow( &aParams );

   hb_reta( 2 ); // creamos y devolvemos un array de 2 elementos.

   // rellenamos los datos del array (situado en "return", que se indica con -1)
   hb_stornl( ( LONG ) hWndTer, -1, 1 );
   hb_stornl( ( LONG ) aParams.InitLine, -1, 2 );

}

#pragma ENDDUMP

Un Saludo

Carlos G.

FiveWin 25.12 + Harbour 3.2.0dev (r2502110321), BCC 7.7 Windows 11 Home

FiveTech Support Forums

Continue the discussion