topic-14596

Board index FiveWin para Harbour/xHarbour Compilando funciones en C.

Posts: 1445

Joined: Mon Oct 10, 2005 02:38 PM

Compilando funciones en C.
Posted: Sun Feb 15, 2009 08:33 PM

Hola a todos,

A ver si alguien me puede hechar una mano en el código que dejo al final.

Estoy intentando definir una llamada a una función que está en una DLL externa (ter16.dll [no es de 16b a pesar de su nombre]).

Es una función que recibe un puntero a una estructura, esta estructura la rellenaré con los valores de una array. La función de la DLL devuelve un handle de una ventana.
Yo además intento que la función que estoy definiendo para lanzar la de C devuelva en un array de 2 elementos, el handle que ha devuelto la función en C y otro handle.

No se si me he explicado bien.
Independientemente de si lo he programado bien, el caso está en primero conseguir que se compile la definición (lo estoy intentando con la versión de Harbour de la de FiveWin 9.01).

Puede alguién intentar compilar este código y a ver si me orienta en lo que debo modificar para que compile correctamente?

Por cierto no sería mala idea recopilar los mensajes en donde se trata el tema de definiciones de funciones en C, he leído un montón de mensajes en estos foros pero me ha costado 'aislarlos' dle resto.

Un saludo y gracias.
Carlos G.

Code (fw): Select all Collapse

/* ************************************** */
#pragma BEGINDUMP

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

struct arg_list {
    int    x;         /* Initial x position of the editing window,
                         you may specify CW_USEDEFAULT to use default values.*/
    int    y;         // Initial y position of the editing window.
    int    width;     /* Initial width of the window in device units,
                         you may specify CW_USEDEFAULT to use default values.*/
    int    height;    /* Initial height of the editing window.  When you
                         use CW_USEDEFAULT for 'width', the 'height' is
                         ingnored.*/
    long   LineLimit; /* Number of lines allowed in the editor window.
                         Set to 0 to have unlimited number of lines*/

    BOOL   WordWrap;  /* Set this flag to true (1),  if you wish to enable the
                         word wrapping feature. */
    BOOL   PrintView; /* Set this flag to true if you wish the lines on
                         the screen to be wrapped current page margins.
                         Otherwise, the lines are wrapped at the end of
                         the window. This variable is ignored if 'WordWrap'
                         is set to FALSE */
    BOOL   PageMode;  /* Set this flag to true if you wish to edit one page
                         at a time */
    BOOL   FittedView;// Set this flag to enable special PageMode where the
                      // text wraps within the window width
    BOOL   ShowStatus;// show status line ?
    BOOL   ShowMenu;  // show the menu bar ?
    BOOL   ShowHorBar;// show the horizonatal scroll bar
    BOOL   ShowVerBar;// show the vertical scroll bar
    BOOL   ruler;     // True to show the ruler
    BOOL   ToolBar;   // True to show the tool bar
    BOOL   UserCanClose;// TRUE allows the user to close the window
    BOOL   BorderMargins;// display margins around the window borders
    BOOL   ReadOnly;    // TRUE to create a read only session

    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 =======
    HGLOBAL hBuffer; /*  Specify the global memory handle containing the
                         input text data.  This handle becomes the property
                         of the editor.  Your program must never try to lock
                         or free this handle */
    long BufferLen;  //  Buffer length in number of characters.
    BYTE delim;      /*  Line delimiter character.  This character must be
                         used to delimit individual lines within the
                         text buffer.  This character is normally typically set
                         to 13 (carriage return) */

    BYTE   padding1[3]; // This field is not used

    int    SaveFormat;// The format of the output file: SAVE_TER, SAVE_TEXT,
                      // SAVE_RTF and SAVE_AS_INPUT

    HINSTANCE hInst;  //  Handle of the current instanaces.
    HWND   hParentWnd;// Handle to the parent window
    HWND   hTextWnd; //  Ter main window handle, will be filled by TER later
    DWORD  style;    //  Editor window style
    BYTE   FontTypeFace[28]; // Default type face, example: TmwRmn Courier, etc
    int    PointSize;// point size of the default font face

    BOOL       open;     // TRUE indicates an open window
    int        modified; // For internal use
    BOOL       vruler;   // sbow vertical ruler
    };


HB_FUNC( PRGCreateTerWindow )
{
   struct arg_list aParams;

   aParams.x             = hb_parnl(1,1);
   aParams.y             = hb_parnl(1,2);
   aParams.width         = hb_parnl(1,3);
   aParams.height        = hb_parnl(1,4);
   aParams.LineLimit     = hb_parnl(1,5);
   aParams.WordWrap      = hb_parnl(1,6);
   aParams.PrintView     = hb_parnl(1,7);
   aParams.PageMode      = hb_parnl(1,8);
   aParams.FittedView    = hb_parnl(1,9);
   aParams.ShowStatus    = hb_parnl(1,10);
   aParams.ShowMenu      = hb_parnl(1,11);
   aParams.ShowHorBar    = hb_parnl(1,12);
   aParams.ShowVerBar    = hb_parnl(1,13);
   aParams.ruler         = hb_parnl(1,14);
   aParams.ToolBar       = hb_parnl(1,15);
   aParams.UserCanClose  = hb_parnl(1,16);
   aParams.BorderMargins = hb_parnl(1,17);
   aParams.ReadOnly      = hb_parnl(1,18);
   aParams.InitLine      = hb_parnl(1,19);
   aParams.InputType     = hb_parnl(1,20);
   aParams.file          = hb_parnl(1,21);
   aParams.hBuffer       = hb_parnl(1,22);
   aParams.BufferLen     = hb_parnl(1,23);
   aParams.Delim         = hb_parnl(1,24);
   aParams.SaveFormat    = hb_parnl(1,25);
   aParams.hInst         = hb_parnl(1,26);
   aParams.hParentWnd    = hb_parnl(1,27);
   aParams.hTextWnd      = hb_parnl(1,28);
   aParams.style         = hb_parnl(1,29);
   aParams.FontTypeFace  = hb_parnl(1,30);
   aParams.PointSize     = hb_parnl(1,31);
   aParams.Open          = hb_parnl(1,32);
   aParams.Modified      = hb_parnl(1,33);

   hb_retnl ( 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( aParams.hParentWnd, -1, 1 );
   hb_stornl( aParams.hTextWnd, -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: Compilando funciones en C.
Posted: Mon Feb 16, 2009 11:31 AM

Carlos,

El código parece correcto. Te faltan dos cosas:

1) Los valores lógicos (BOOL) tienes que recogerlos con hb_parl() y no con hb_parnl()

2) Tienes que hacer "casting" de los valores recogidos con hb_parnl() cuando se trate de un valor tipo HWND, HGLOBAL, es decir en tipos que no son "números" tal cual, sino otro "tipo" de valor, por ejemplo:

aParams.hParentWnd = ( HWND ) hb_parnl(1,27);

a ( HWND ) se le denomina hacer un "casting" (cambiar de un tipo a otro).

regards, saludos

Antonio Linares
www.fivetechsoft.com

Antonio Linares

Posts: 44158

Joined: Thu Oct 06, 2005 05:47 PM

Re: Compilando funciones en C.
Posted: Mon Feb 16, 2009 11:35 AM

Otra cosa:

En el caso de un "array" de BYTEs, entonces tienes tu que copiar los BYTEs:

strcpy( aParams.file, hb_parc( 1, 31 ) );

ó tambien puedes usar memcpy() que copia "bytes" y no "strings", en el sentido de que un string es una secuencia de bytes terminados en cero.

Esta una de las bellezas del lenguaje C:
no hace nada que no se le indique, y cumple estrictamente nuestras instrucciones :-)

regards, saludos

Antonio Linares
www.fivetechsoft.com

FiveWiDi

Posts: 1445

Joined: Mon Oct 10, 2005 02:38 PM

Re: Compilando funciones en C.
Posted: Mon Feb 16, 2009 10:28 PM

Antonio Linares wrote:Otra cosa:

En el caso de un "array" de BYTEs, entonces tienes tu que copiar los BYTEs:

strcpy( aParams.file, hb_parc( 1, 31 ) );

ó tambien puedes usar memcpy() que copia "bytes" y no "strings", en el sentido de que un string es una secuencia de bytes terminados en cero.

Esta una de las bellezas del lenguaje C:
no hace nada que no se le indique, y cumple estrictamente nuestras instrucciones

Gracias antonio, me ha servido para avanzar un poco más.

Pero se me resisten los:

BYTE delim;

intento capturarlos con:

aParams.delim = hb_parc(1,24); ó strcpy( aParams.delim, hb_parc( 1, 24 ) );

pero no le gusta.

Aquí vuelvo a dejar el código hasta donde he llegado. Aún no he podido compilar, pero los errores han bajado a 2 con 2 warnings.

Los warning son en:
aParams.hInst = ( HWND ) hb_parnl(1,27); i en hWndTer = CreateTerWindow( &aParams );

A ver si lo consigo.

Un saludo y gracias
Carlos G.

/* ************************************ */

Code (fw): Select all Collapse

#pragma BEGINDUMP

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

struct arg_list {
    int    x;                 /* Initial x position of the editing window,
                                 you may specify CW_USEDEFAULT to use default values. */
    int    y;                 // Initial y position of the editing window.
    int    width;             /* Initial width of the window in device units,
                                 you may specify CW_USEDEFAULT to use default values. */
    int    height;            /* Initial height of the editing window.  When you
                                 use CW_USEDEFAULT for 'width', the 'height' is
                                 ingnored. */
    long   LineLimit;         /* Number of lines allowed in the editor window.
                                 Set to 0 to have unlimited number of lines */
    BOOL   WordWrap;          /* Set this flag to true (1),  if you wish to enable the
                                 word wrapping feature. */
    BOOL   PrintView;         /* Set this flag to true if you wish the lines on
                                 the screen to be wrapped current page margins.
                                 Otherwise, the lines are wrapped at the end of
                                 the window. This variable is ignored if 'WordWrap'
                                 is set to FALSE */
    BOOL   PageMode;          /* Set this flag to true if you wish to edit one page
                                 at a time */
    BOOL   FittedView;        // Set this flag to enable special PageMode where the
                              // text wraps within the window width
    BOOL   ShowStatus;        // show status line ?
    BOOL   ShowMenu;          // show the menu bar ?
    BOOL   ShowHorBar;        // show the horizonatal scroll bar
    BOOL   ShowVerBar;        // show the vertical scroll bar
    BOOL   ruler;             // True to show the ruler
    BOOL   ToolBar;           // True to show the tool bar
    BOOL   UserCanClose;      // TRUE allows the user to close the window
    BOOL   BorderMargins;     // display margins around the window borders
    BOOL   ReadOnly;          // TRUE to create a read only session
    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 =======
    HGLOBAL hBuffer;         /*  Specify the global memory handle containing the
                                 input text data.  This handle becomes the property
                                 of the editor.  Your program must never try to lock
                                 or free this handle */
    long BufferLen;          //  Buffer length in number of characters.
    BYTE delim;              /*  Line delimiter character.  This character must be
                                 used to delimit individual lines within the
                                 text buffer.  This character is normally typically set
                                 to 13 (carriage return) */
    BYTE   padding1[3];      // This field is not used
    int    SaveFormat;       // The format of the output file: SAVE_TER, SAVE_TEXT,
                             // SAVE_RTF and SAVE_AS_INPUT
    HINSTANCE hInst;         //  Handle of the current instanaces.
    HWND   hParentWnd;       // Handle to the parent window
    HWND   hTextWnd;         //  Ter main window handle, will be filled by TER later
    DWORD  style;            //  Editor window style
    BYTE   FontTypeFace[28]; // Default type face, example: TmwRmn Courier, etc
    int    PointSize;        // point size of the default font face
    BOOL       open;         // TRUE indicates an open window
    int        modified;     // For internal use
    BOOL       vruler;       // sbow vertical ruler
    };

HWND CreateTerWindow( HWND );

HB_FUNC( PRGCreateTerWindow )
{

   HWND hWndTer;

   struct arg_list aParams;

   aParams.x             = hb_parni(1,1);
   aParams.y             = hb_parni(1,2);
   aParams.width         = hb_parni(1,3);
   aParams.height        = hb_parni(1,4);
   aParams.LineLimit     = hb_parnl(1,5);
   aParams.WordWrap      = hb_parl(1,6);
   aParams.PrintView     = hb_parl(1,7);
   aParams.PageMode      = hb_parl(1,8);
   aParams.FittedView    = hb_parl(1,9);
   aParams.ShowStatus    = hb_parl(1,10);
   aParams.ShowMenu      = hb_parl(1,11);
   aParams.ShowHorBar    = hb_parl(1,12);
   aParams.ShowVerBar    = hb_parl(1,13);
   aParams.ruler         = hb_parl(1,14);
   aParams.ToolBar       = hb_parl(1,15);
   aParams.UserCanClose  = hb_parl(1,16);
   aParams.BorderMargins = hb_parl(1,17);
   aParams.ReadOnly      = hb_parl(1,18);

   aParams.InitLine      = hb_parnl(1,19);

   aParams.InputType     = hb_parc(1,20);
   //strcpy( aParams.InputType, hb_parc( 1, 20 ) );

   strcpy( aParams.file, hb_parc( 1, 21 ) );
   aParams.hBuffer       = ( HWND ) hb_parnl(1,22);
   aParams.BufferLen     = hb_parnl(1,23);

   aParams.delim         = hb_parc(1,24);
   //strcpy( aParams.delim, hb_parc( 1, 24 ) );

   strcpy( aParams.padding1, hb_parc( 1, 25 ) );
   aParams.SaveFormat    = hb_parni(1,26);
   aParams.hInst         = ( HWND ) hb_parnl(1,27);
   aParams.hParentWnd    = ( HWND ) hb_parnl(1,28);
   aParams.hTextWnd      = ( HWND ) hb_parnl(1,29);
   aParams.style         = hb_parnl(1,30);
   strcpy( aParams.FontTypeFace, hb_parc( 1, 31 ) );
   aParams.PointSize     = hb_parnl(1,32);
   aParams.open          = hb_parl(1,33);
   aParams.modified      = hb_parnl(1,34);
   aParams.vruler        = hb_parl(1,35);

   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.hTextWnd, -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