Clipper/FiveWin - verce4.3????

   
Vista:

verce4.3????

Publicado por diego rofe (1 intervención) el 28/01/2008 03:27:26
necesito compilar en 32 bits, tengo el fwh, el bcc55, el xharbour y el verce 4.3 pero no logro compilar, salen miles de mensajes de errores, el unico prg que logre compilar es este:

function main()
?"mi programa"
retu nil

ahora bien, si pongo:
alert("mi progrma")
ya salen errores.

hay que declarar algo en el prg?
alguien pude mandarme un sencillo prg que incluya un browse() ?

graciasl.
diego
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:verce4.3????

Publicado por Ramon Paredes (47 intervenciones) el 28/01/2008 17:55:26
// PRUEBA CON ESTE BUILDX.BAT SOLAMENTE PON LAS RUTAS DE TU XHARBOUR Y DE TU BORLAND //

// CON EL COMPILA DESDE EL DOS ( BUILDX "NOMBRE DEL PRG SIN EXTENSION") CUALQUIERA DE LOS EJEMPLOS QUE ESTAN EN LA CARPETA SAMPLES DE FWH ///

// OJO, RECUERDA QUE CADA VERSION DEL FWH TIENE SU CORRESPONDINTE COMPILADOR XHARBOUR SINO TENDRAS PROBLEMAS DE COMPATIBILIDAD, SI USAS EL XHARBOUR QUE VIENE CON EL FWH NO TENDRAS PROBLEMA //

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

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

ECHO Compiling...

set hdir=c:xharbour
set bcdir=c:BORLANDcc55

%hdir%inharbour %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%incc32 -M -c -v @b32.bc
:ENDCOMPILE

IF EXIST %1.rc %bcdir%inrc32 -r %1

echo c0w32.obj + > b32.bc
echo %1.obj, + >> b32.bc
echo %1.exe, + >> b32.bc
echo %1.map, + >> b32.bc
echo ..libFivehx.lib ..libFiveHC.lib + >> b32.bc
echo %hdir%lib tl.lib + >> b32.bc
echo %hdir%libvm.lib + >> b32.bc
echo %hdir%libgtgui.lib + >> b32.bc
echo %hdir%liblang.lib + >> b32.bc
echo %hdir%libmacro.lib + >> b32.bc
echo %hdir%lib dd.lib + >> b32.bc
echo %hdir%libdbfntx.lib + >> b32.bc
echo %hdir%libdbfcdx.lib + >> b32.bc
echo %hdir%libdbffpt.lib + >> b32.bc
echo %hdir%libhbsix.lib + >> b32.bc
echo %hdir%libdebug.lib + >> b32.bc
echo %hdir%libcommon.lib + >> b32.bc
echo %hdir%libpp.lib + >> b32.bc

rem Uncomment these two lines to use Advantage RDD
echo %hdir%lib ddads.lib + >> b32.bc
echo %hdir%libAce32.lib + >> b32.bc

echo %bcdir%libcw32.lib + >> b32.bc
echo %bcdir%libimport32.lib + >> b32.bc
echo %bcdir%libpsdkodbc32.lib + >> b32.bc
echo %bcdir%libpsdk asapi32.lib + >> b32.bc
echo %bcdir%libpsdk ddeapi.lib + >> b32.bc
echo %bcdir%libpsdkiphlpapi.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%inilink32 -Gn -Tpe -s -v @b32.bc
%bcdir%inilink32 -Gn -aa -Tpe -s -v @b32.bc

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

// SALUDOS DESDE MANAGUA NICARAGUA,

RAMON PAREDES
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:verce4.3????

Publicado por Alvaro (79 intervenciones) el 29/01/2008 07:58:19
¿Que errores te salen?
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:verce4.3????

Publicado por horacio (1 intervención) el 05/02/2008 04:50:19
Se me ocurre que alert no es una función de fivewin
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar