Problema con programa tutorXX

[mch]

Hola!

Estoy haciendo pruebas con los programas de ejemplo tutorXX que vienen con fivewin, y he conseguido que compile todo correctamente, pero el problema es que al ejecutar el programa resultante no pasa absolutamente nada

La compilacion la realizo con buildh.bat. La version de FWH es la 6.12 (la que hay ahora mismo en esta web). Compilo con borland 5.5.1 y Harbour 0.99.1

Alguna idea?

Gracias

[Antonio Linares]

Has probado con tutor01.prg ?

Que versión de Windows usas ?

[mch]

Pues compilo y pruebo en un win7, pero he probado a ejecutarlo en winxp (incluso con un NT que tengo por ahi virtualizado) y tampoco va. Si lo ejecuto en modo de compatibilidad el proceso se puede ver en el administrador de tareas, y en este caso el visor de eventos me da un evenid de 1001

Depósito con errores , tipo 0
Nombre de evento: PCA2
Respuesta: No disponible
Id. de archivo CAB: 0

Firma del problema:
P1: tutor01.exe
P2: 0.0.0.0
P3: tutor01.exe
P4: unknown
P5: unknown
P6: 200
P7: -1
P8:
P9:
P10:

El programa que uso para prueba es el tutor01, pero tambien he probado con tutor02 y 03 con mismo resultado.

[leandro]

Eso me sucedio a mi hace un tiempo y es por que hace falta uno de los flags; comprueba que esten estos.

Code: Select all  Expand view

/n /m /w /es2 /gc1
 

La otra solucion es colocar main() al inicio del prg

Code: Select all  Expand view

// Typical Welcome message, from Windows!

// FWVERSION, FWCOPYRIGHT and FWDESCRIPTION are just
// some defines placed at FiveWin.ch to support four versions:
// Clipper, Xbase++, Harbour/xHarbour and C3!

#include "FiveWin.ch"

Main()
//----------------------------------------------------------------------------//

function Main()

   MsgInfo( FWVERSION + Chr( 13 ) + FWCOPYRIGHT, FWDESCRIPTION )

return nil

//----------------------------------------------------------------------------//

procedure AppSys // XBase++ requirement

return

//----------------------------------------------------------------------------//
 

Espero haber ayudado

[FranciscoA]

Con este .bat compila y ejecuta correctamente. Cambia los paths y pruebalo ya que uso version 7.12

@ECHO OFF
CLS
ECHO ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
ECHO ³ FiveWin for xHarbour 7.12 - Dec. 2007 xHarbour development power ³Ü
ECHO ³ (c) FiveTech, 1993-2007 for Microsoft Windows 95/98/NT/2000/ME/XP/Vista ³Û
ECHO ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙÛ
ECHO ÿ ßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßß

if A%1 == A GOTO :SINTAX
if NOT EXIST %1.prg GOTO :NOEXIST

ECHO Compiling...

set hdir=c:\xharbour712
set bcdir=c:\BORLAND\bcc55

REM set hdir=c:\xharbour
REM set bcdir=c:\bcc55

%hdir%\bin\harbour %1 /n /i..\include;%hdir%\include /w /p %2 %3 > clip.log
@type clip.log
IF ERRORLEVEL 1 PAUSE
IF ERRORLEVEL 1 GOTO EXIT

echo -O2 -e%1.exe -I%hdir%\include %1.c > b32.bc
%bcdir%\bin\bcc32 -M -c -v @b32.bc
:ENDCOMPILE

IF EXIST %1.rc %bcdir%\bin\brc32 -r %1

echo c0w32.obj + > b32.bc
echo %1.obj, + >> b32.bc
echo %1.exe, + >> b32.bc
echo %1.map, + >> b32.bc
echo ..\lib\Fivehx.lib ..\lib\FiveHC.lib + >> b32.bc
echo %hdir%\lib\rtl.lib + >> b32.bc
echo %hdir%\lib\vm.lib + >> b32.bc
echo %hdir%\lib\gtgui.lib + >> b32.bc
echo %hdir%\lib\lang.lib + >> b32.bc
echo %hdir%\lib\macro.lib + >> b32.bc
echo %hdir%\lib\rdd.lib + >> b32.bc
echo %hdir%\lib\dbfntx.lib + >> b32.bc
echo %hdir%\lib\dbfcdx.lib + >> b32.bc
echo %hdir%\lib\dbffpt.lib + >> b32.bc
echo %hdir%\lib\hbsix.lib + >> b32.bc
echo %hdir%\lib\debug.lib + >> b32.bc
echo %hdir%\lib\common.lib + >> b32.bc
echo %hdir%\lib\pp.lib + >> b32.bc
echo %hdir%\lib\pcrepos.lib + >> b32.bc

rem Uncomment these two lines to use Advantage RDD
rem echo %hdir%\lib\rddads.lib + >> b32.bc
rem echo %hdir%\lib\Ace32.lib + >> b32.bc

echo %bcdir%\lib\cw32.lib + >> b32.bc
echo %bcdir%\lib\import32.lib + >> b32.bc
echo %bcdir%\lib\psdk\odbc32.lib + >> b32.bc
echo %bcdir%\lib\psdk\rasapi32.lib + >> b32.bc
echo %bcdir%\lib\psdk\nddeapi.lib + >> b32.bc
echo %bcdir%\lib\psdk\iphlpapi.lib, >> b32.bc

IF EXIST %1.res echo %1.res >> b32.bc

rem uncomment this line to use the debugger and comment the following one
rem %bcdir%\bin\ilink32 -Gn -Tpe -s -v @b32.bc
%bcdir%\bin\ilink32 -Gn -aa -Tpe -s -v @b32.bc

REM FAPSOFT
pause

IF ERRORLEVEL 1 GOTO LINKERROR
ECHO * Application successfully built
%1
GOTO EXIT
ECHO

rem delete temporary files
@del %1.c

:LINKERROR
ECHO * There are errors
GOTO EXIT

:SINTAX
ECHO SYNTAX: Build [Program] {-- No especifiques la extensi¢n PRG
ECHO {-- Don't specify .PRG extension
GOTO EXIT

:NOEXIST
ECHO The specified PRG %1 does not exist


:EXIT

[mch]

Leandro.... Llamando al harbour con los argumentos que me indicas sigue sin funcionar. En cuanto a modificar el prg incluyendo el Main() da error y no compila.

Francisco.... Probado el bat y tampoco rula.

Por otra parte he seguido haciendo pruebas por mi parte...... y me ha dado por utilizar xHarbour compilando con buildx.bat, y funciona!!!. Para usar xHarbour he tenido que recompilar fivewin ya que no coincidian las versiones, pero salvo eso bien.

Sigo dandole vueltas al harbour.

Por cierto, ¿que diferencia hay entre harbour y xHarbour?

[mch]

Heimm!!

Francisco..... Tu bat si funciona!!..... pero como a mi, con xHarbour. No me fije en el detalle. En un principio cambie el path de xHarbour que tu tienes puesto por el de harbour (y bueno... alguna otra cosa mas porque no compilaba).