Buen dia Antonio,
Estoy usando Harbour version,
Harbour 3.2.0dev (r1703231115)
Copyright (c) 1999-2016,
http://harbour-project.org/
Tengo actualizadas las librer铆as y el compilador, necesitar铆a actualizar algo mas?
Me gustar铆a consultarte por este m茅todo en el OCX, que solicita una estructura como par谩metro y todavia no he logrado hacer funcionar, "argument error".
#include "FiveWin.ch"
#include "Struct.ch"
#include "exstruc.ch"
FUNCTION Main()
Local AtributosDeTexto
STRUCT AtributosDeTexto
MEMBER Centrado AS BOOL INIT .F.
MEMBER DobleAncho AS BOOL INIT .F.
MEMBER BorradoTexto AS BOOL INIT .F.
MEMBER Negrita AS BOOL INIT .T.
ENDSTRUCT
oFiscal:ImprimirTextoFiscal( AtributosDeTexto, "HOLA" ) ----> Argument error
RETU .T.
Descripcion de la funcion en el OCX
void ImprimirTextoFiscal(
[in, out] AtributosDeTexto* Atributos,
[in] BSTR Texto,
[in, optional, defaultvalue(48)] ModosDeDisplay ModoDisplay);
************************************************************************************************************************************************************
Una alternativa que estoy considerando es la de,
Tendria que usar directamente la estructura en C?
#pragma BEGINDUMP
#include <hbapi.h>
#include <windows.h>
HB_FUNC( TEST )
{
Atributosdetexto oestilo;
oestilo.Centrado:=.t..
oestilo.DobleAncho:=.F.
oestilo.BorradoTexto:=.F.
oestilo.Negrita:=.T.
// & para acceder a la direccion de la estructura
// lo que vayas a hacer con ella
}
#pragma ENDDUMP
Muchas gracias,
Saludos Mariano
