FiveTech Support Forums

FiveWin / Harbour / xBase community
Board index FiveWin para Harbour/xHarbour xHarbour los comandos equivalentes
Posts: 8515
Joined: Tue Dec 20, 2005 07:36 PM
xHarbour los comandos equivalentes
Posted: Mon Jul 18, 2011 07:11 PM
xHarbour los comandos equivalentes

Code (fw): Select all Collapse
Error: Unresolved external '_HB_FUN_WIN_OLECREATEOBJECT'

Error: Unresolved external '_HB_FUN___AXREGISTERHANDLER' 

Error: Unresolved external '_HB_FUN_HB_MILLISECONDS'


Gracias
João Santos - São Paulo - Brasil - Phone: +55(11)95150-7341
Posts: 44158
Joined: Thu Oct 06, 2005 05:47 PM
Re: xHarbour los comandos equivalentes
Posted: Tue Jul 19, 2011 07:01 AM
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 (fw): Select all Collapse
HB_FUNC( HB_MILLISECONDS )
{
   hb_retnl( hb_dateMilliSeconds() );
}
regards, saludos

Antonio Linares
www.fivetechsoft.com
Posts: 8515
Joined: Tue Dec 20, 2005 07:36 PM
Re: xHarbour los comandos equivalentes
Posted: Tue Jul 19, 2011 06:01 PM
Antonio Linares wrote: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 (fw): Select all Collapse
HB_FUNC( HB_MILLISECONDS )
{
   hb_retnl( hb_dateMilliSeconds() );
}



Gracias Marabilloso GURÚ del FIVEWIN.

Voy probar y te comento.

Saludos, amado maestro.
João Santos - São Paulo - Brasil - Phone: +55(11)95150-7341
Posts: 8515
Joined: Tue Dec 20, 2005 07:36 PM
Re: xHarbour los comandos equivalentes
Posted: Tue Jul 19, 2011 08:07 PM
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 (fw): Select all Collapse
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
*/
João Santos - São Paulo - Brasil - Phone: +55(11)95150-7341
Posts: 8515
Joined: Tue Dec 20, 2005 07:36 PM
Re: xHarbour los comandos equivalentes
Posted: Tue Jul 19, 2011 08:17 PM

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

João Santos - São Paulo - Brasil - Phone: +55(11)95150-7341
Posts: 44158
Joined: Thu Oct 06, 2005 05:47 PM
Re: xHarbour los comandos equivalentes
Posted: Tue Jul 19, 2011 11:43 PM
Joao,

Si tiene que hacerse como comentas:
Code (fw): Select all Collapse
#pragma BEGINDUMP

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

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

#pragma ENDDDUMP
regards, saludos

Antonio Linares
www.fivetechsoft.com
Posts: 8515
Joined: Tue Dec 20, 2005 07:36 PM
Re: xHarbour los comandos equivalentes
Posted: Wed Jul 20, 2011 12:11 PM
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 (fw): Select all Collapse
//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


João Santos - São Paulo - Brasil - Phone: +55(11)95150-7341
Posts: 2365
Joined: Wed Nov 02, 2005 11:46 PM
Re: xHarbour los comandos equivalentes
Posted: Wed Jul 20, 2011 12:26 PM
Hola


Agrega este include

#include "hbdate.h"

Code (fw): Select all Collapse
#pragma BEGINDUMP

#include <hbapi.h>
#include <windows.h>
#include <hbdate.h>
...
Posts: 8515
Joined: Tue Dec 20, 2005 07:36 PM
Re: xHarbour los comandos equivalentes
Posted: Wed Jul 20, 2011 12:37 PM
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 (fw): Select all Collapse
#include "hbdate.h"

#pragma BEGINDUMP

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

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

#pragma ENDDDUMP
João Santos - São Paulo - Brasil - Phone: +55(11)95150-7341
Posts: 2365
Joined: Wed Nov 02, 2005 11:46 PM
Re: xHarbour los comandos equivalentes
Posted: Wed Jul 20, 2011 12:54 PM

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

Posts: 8515
Joined: Tue Dec 20, 2005 07:36 PM
Re: xHarbour los comandos equivalentes
Posted: Wed Jul 20, 2011 01:06 PM
Holá Daniel, por favor, mira si estpa correcto:

Code (fw): Select all Collapse
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
João Santos - São Paulo - Brasil - Phone: +55(11)95150-7341
Posts: 8515
Joined: Tue Dec 20, 2005 07:36 PM
Re: xHarbour los comandos equivalentes
Posted: Wed Jul 20, 2011 01:13 PM
João Santos - São Paulo - Brasil - Phone: +55(11)95150-7341
Posts: 2365
Joined: Wed Nov 02, 2005 11:46 PM
Re: xHarbour los comandos equivalentes
Posted: Wed Jul 20, 2011 01:20 PM
Karinha

Code (fw): Select all Collapse
%bcdir%\bin\bcc32 -M -c -O2 -eDBMANUT.exe -I%hdir%\include;%bcdir%\include DBMANUT.c
Posts: 8515
Joined: Tue Dec 20, 2005 07:36 PM
Re: xHarbour los comandos equivalentes
Posted: Wed Jul 20, 2011 01:33 PM

Daniel, mismo error.

Gracias.

João Santos - São Paulo - Brasil - Phone: +55(11)95150-7341
Posts: 2365
Joined: Wed Nov 02, 2005 11:46 PM
Re: xHarbour los comandos equivalentes
Posted: Wed Jul 20, 2011 01:54 PM

Karinha

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