xHarbour los comandos equivalentes

[karinha]

xHarbour los comandos equivalentes

Code: Select all  Expand view

Error: Unresolved external '_HB_FUN_WIN_OLECREATEOBJECT'

Error: Unresolved external '_HB_FUN___AXREGISTERHANDLER'

Error: Unresolved external '_HB_FUN_HB_MILLISECONDS'
 

Gracias

[Antonio Linares]

Joao,

FUNCTION CreateObject( cString, cLicense )

RETURN TOleAuto():New( cString, , cLicense )

There is a HB_ULONG hb_dateMilliSeconds( void ) in xHarbour so you can use:

Code: Select all  Expand view

HB_FUNC( HB_MILLISECONDS )
{
   hb_retnl( hb_dateMilliSeconds() );
}

[karinha]

Joao,

FUNCTION CreateObject( cString, cLicense )

RETURN TOleAuto():New( cString, , cLicense )

There is a HB_ULONG hb_dateMilliSeconds( void ) in xHarbour so you can use:

Code: Select all  Expand view

HB_FUNC( HB_MILLISECONDS )
{
   hb_retnl( hb_dateMilliSeconds() );
}

Gracias Marabilloso GURÚ del FIVEWIN.

Voy probar y te comento.

Saludos, amado maestro.

[karinha]

Maestro Antonio, al compilar me genera estos errores

DBMANUT.prg(4210) Error E0020 Incomplete statement or unbalanced delimiters
DBMANUT.prg(4212) Error E0030 Syntax error: "parse error at '}'"

2 errors

Code: Select all  Expand view

HB_FUNC( HB_MILLISECONDS )
{
   hb_retnl( hb_dateMilliSeconds() );
}  // linea 4212 erro


Hay algo que falta ?? Estoy usando XHARBOUR normal.



No debria ser algo +- asi:

/*
#pragma BEGINDUMP

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

HB_FUNC( SENDMESSAGE )
{
 .... blah, blah...
}

#pragma ENDDDUMP
*/
 

[karinha]

Maestro, También me falta saber cual és el comando en XHARBOUR que sea igua a este:


'_HB_FUN___AXREGISTERHANDLER' //-> Comando en HARBOUR

Cual és el equivalente en XHARBOUR??


Gracias

[Antonio Linares]

Joao,

Si tiene que hacerse como comentas:

Code: Select all  Expand view

#pragma BEGINDUMP

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

HB_FUNC( NOMBRE )
{
 .... blah, blah...
}

#pragma ENDDDUMP

[karinha]

Maestro al compilar ahora me genera estos errores:

Borland C++ 5.5.1 for Win32 Copyright (c) 1993, 2000 Borland
DBMANUT.c:
Warning W8065 DBMANUT.prg 4205: Call to function 'hb_dateMilliSeconds' with no prototype in function HB_FUN_HB_MILLISECONDS
Error E2141 DBMANUT.prg 4239: Declaration syntax error
Error E2206 DBMANUT.prg 4276: Illegal character '@' (0x40)
Error E2206 DBMANUT.prg 4276: Illegal character '@' (0x40)
Error E2141 DBMANUT.prg 4291: Declaration syntax error
Error E2141 DBMANUT.prg 4292: Declaration syntax error
Error E2206 DBMANUT.prg 4293: Illegal character '@' (0x40)
Error E2206 DBMANUT.prg 4293: Illegal character '@' (0x40)
*** 7 errors in Compile ***

Code: Select all  Expand view

//There is a HB_ULONG hb_dateMilliSeconds( void ) in xHarbour so you can use:

#pragma BEGINDUMP

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

HB_FUNC( HB_MILLISECONDS )
{
   hb_retnl( hb_dateMilliSeconds() );
}

#pragma ENDDDUMP
 



[Daniel Garcia-Gil]

Hola


Agrega este include

#include "hbdate.h"

Code: Select all  Expand view

#pragma BEGINDUMP

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

[karinha]

Holá Daniel Garcia-Gil, ahora me genera esto error:


hbsetup.h(61) Error F0001 Can't open #include file: 'limits.h'; No such file or directory

Code: Select all  Expand view

#include "hbdate.h"

#pragma BEGINDUMP

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

HB_FUNC( HB_MILLISECONDS )
{
   hb_retnl( hb_dateMilliSeconds() );
}

#pragma ENDDDUMP
 

[Daniel Garcia-Gil]

Karinha

limits.h es un archivo de cabecera del compilador de C, verifica que estes colocando correctamente el flag de los includes (-I) para hacer la compilacion

[karinha]

Holá Daniel, por favor, mira si estpa correcto:

Code: Select all  Expand view

Set hDir=C:\XHARBOUR
Set bcDir=C:\bcc55
Set FwhDir=C:\FwH27

If Exist DBMANUT.Exe Del DBMANUT.Exe

REM -> Area dos Arquivos com ExtensÆo *.PRG Gerados em FiveWin 2.7 For xHarbour
%hdir%\bin\harbour DBMANUT      /m/n /i%fwhdir%\include;%hdir%\include /w0 /p DBMANUT.C      >> Erro.log


%bcdir%\bin\bcc32 -O2 -M -c -D__HARBOUR__ -I%hdir%\include DBMANUT.C       >> Erro.log


If ErrorLevel 1 Type Erro.log | More
If ErrorLevel 1 Goto Exit

%bcdir%\bin\bcc32 -M -c -O2 -eDBMANUT.exe -I%hdir%\include DBMANUT.c
:ENDCOMPILE

%bcdir%\bin\ilink32 -Gn -aa -Tpe -s @Cxp.Lnk

Echo .
IF ERRORLEVEL 1 GOTO LINKERROR
REM Cls
Echo .
Echo * Aplicacao Foi Desenvolvida Com Sucesso
GOTO EXIT

:EXIT
 

[karinha]

Daniel, mira por favor:

http://www.mail-archive.com/harbour@har ... 08370.html

[Daniel Garcia-Gil]

Karinha

Code: Select all  Expand view

%bcdir%\bin\bcc32 -M -c -O2 -eDBMANUT.exe -I%hdir%\include;%bcdir%\include DBMANUT.c

[karinha]

Daniel, mismo error.

Gracias.

[Daniel Garcia-Gil]

Karinha


Ese archivo debe estar dentro de la carpeta include de borland, verificalo