Error al compilar con el buildx

[DiegoCandel]

Hola a todos,

Después de no llevar mucho tiempo en esto de fivewin, la verdad que poco tiempo diría yo, tengo un problema a la hora de enlazar varias clases.
Estoy intentando enlazar, para posteriormente compilar, 5 clases que me hacen falta para la conexión via ADO.
Estas clases son: TFormPrincipal --> Es la clase que me he creado para realizar la conexión SQL vía ADO.
En dicha clase hago referencia a las clases: TAdoDataSource, TSqlQuery, xAdoDataSource y xSqlQuery por lo que las tengo que enlazar de alguna forma en el fichero buildx.bat que utilizo para posteriormente hacer la compilación.

En mi clase TFormPrincipal tandría algo como esto: (Aunque, si no me equivoco, creo que el problema está en el fichero buildx.bat...)
Esto sería el código de la clase TFormPrincipal

field cCodCli, cNomCli, cNomCom, cDirCli, cPobCli, cCodProv, cPTLCli,cTF02Cli, cFaxCli, cDniCif, cContacto

Function Main()

local ofrm
ofrm:= TFormPrincipal():new()
ofrm:show()

return nil

class TFormPrincipal

DATA oGet1
DATA oGet2
DATA oGet3
DATA oGet4
DATA oGet5
DATA oGet6
DATA oGet7
DATA oGet8
DATA oGet9
DATA oGet10
DATA oDlg
DATA oDbfCli
DATA cCodClif
DATA cNomClif
DATA cNomComClif
DATA cDirecClif
DATA cPoblaClif
DATA cCodProvClif
DATA cPTLCli
DATA cFaxClif
DATA cDniCifClif
DATA cContactoClif
DATA oButton1
DATA oListBox
DATA cFicheroE
DATA cFicheroR
DATA cLine
DATA nLine

method TXTtoSQL()

endclass

method new () class TFormPrincipal

DEFINE DIALOG ::oDlg NAME "DIALOGO"

REDEFINE GET ::oGet1 VAR ::cCodClif ID 111 OF ::oDlg
REDEFINE GET ::oGet2 VAR ::cNomClif ID 112 OF ::oDlg
REDEFINE GET ::oGet3 VAR ::cNomComClif ID 113 OF ::oDlg
REDEFINE GET ::oGet4 VAR ::cDirecClif ID 114 OF ::oDlg
REDEFINE GET ::oGet5 VAR ::cPoblaClif ID 115 OF ::oDlg
REDEFINE GET ::oGet6 VAR ::cCodProvClif ID 116 OF ::oDlg
REDEFINE GET ::oGet7 VAR ::cPTLCli ID 117 OF ::oDlg
REDEFINE GET ::oGet8 VAR ::cFaxClif ID 118 OF ::oDlg
REDEFINE GET ::oGet9 VAR ::cDniCifClif ID 119 OF ::oDlg
REDEFINE GET ::oGet10 VAR ::cContactoClif ID 120 OF ::oDlg
REDEFINE BUTTON ::oButton1 ID 124 OF ::oDlg Action ::TXTtoSQL()

REDEFINE LISTBOX ::oListBox FIELDS (::oDbfCli:cAlias)->cCodCli, (::oDbfCli:cAlias)->cNomCli, (::oDbfCli:cAlias)->cNomCom , (::oDbfCli:cAlias)->cDirCli, (::oDbfCli:cAlias)->cPobCli, (::oDbfCli:cAlias)->cCodProv, (::oDbfCli:cAlias)->cPTLCli, (::oDbfCli:cAlias)->cFaxCli, (::oDbfCli:cAlias)->cDniCif, (::oDbfCli:cAlias)->cContacto ;
ALIAS ::oDbfCli:cAlias ;
ID 121 OF ::oDlg ;
HEADER "Código", "Nombre", "NombreComunidad", "Dirección", "Población", "CódigoProvincia", "PTLCli", "FaxCli", "DniCif", "Contacto" ;
FIELDSIZES 50, 210, 190, 220, 100, 100, 50, 120, 75, 75 ;
ON CHANGE ::Cambio() ;
ON DBLCLICK ::DobleClick() ;
COLOR CLR_BLACK, CLR_BLACK

::oListBox:nClrPane:={||iIF((::oListBox:cAlias)->(OrdKeyNo())%2==0,nRGB(242,250,252),nRGB(226,226,208))}

return self

method TXTtoSQL() class TFormPrincipal

LOCAL o
LOCAL oRs
LOCAL a
WITH OBJECT o := TAdoDatasource():Create()
:cConnect := "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=GWServer;Data Source=SERVIDOR01"
:Connect()
END

WITH OBJECT oRs := TSqlQuery():Create( o )
:oDatasource := o
:ncursorlocation := adUseClient
:ncursortype := adOpenStatic
:cSelect := "Select * FROM clientes"
END
oRs:Open()

IF !oRs:lOpen
MsgInfo("ERRRO")
ENDIF

::cFicheroR := Memoread("Info.txt")
FOR ::nLine := 1 TO INT(LEN(::cFicheroR) / 554 ) STEP 1

::cLine := SUBSTR(::cFicheroR, (::nLine -1) *554, 554)
::cLine = StrTran(::cLine, Chr(10), "")

Append Blank
REPLACE cCodCli with SUBSTR(::cLine,1,6)
REPLACE cNomCli with SUBSTR(::cLine,7,100)
REPLACE cNomCom with SUBSTR(::cLine,107,100)
REPLACE cDirCli with SUBSTR(::cLine,207,100)
REPLACE cPobCli with SUBSTR(::cLine,307,100)
REPLACE cCodProv with SUBSTR(::cLine,407,4)
REPLACE cPTLCli with SUBSTR(::cLine,411,10)
REPLACE cFaxCli with SUBSTR(::cLine,421,10)
REPLACE cDniCif with SUBSTR(::cLine,438,10)
REPLACE cContacto with SUBSTR(::cLine,453,10)

NEXT

MsgInfo( ToString(oRs:autoin))

return nil

El problema lo tengo al compilar con el buildx.bat...
Os dejo las instrucciones que aparecen en el buildx.bat. Este fichero buildx.bat lo he sacado de: \FWH\Samples "modificandolo".

@ECHO OFF
CLS
ECHO ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
ECHO ³ FiveWin for xHarbour 8.01 - Jan. 2008 xHarbour development power ³Ü
ECHO ³ (c) FiveTech, 1993-2008 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=\TRABAJOS\UTILS\xharbour
set bcdir=\TRABAJOS\UTILS\bcc55
set fwdir=\TRABAJOS\UTILS\fwh

%hdir%\bin\harbour %1 /n /i%hdir%\include;%fwdir%\include /w /p %2 %3 > clip.log

%hdir%\bin\harbour TAdoDatasource /n /i%hdir%\include;%fwdir%\include /w /p %2 %3 >> clip.log

%hdir%\bin\harbour TSqlQuery /n /i%hdir%\include;%fwdir%\include /w /p %2 %3 >> clip.log

%hdir%\bin\harbour xAdoDataSource /n /i%hdir%\include;%fwdir%\include /w /p %2 %3 >> clip.log

%hdir%\bin\harbour xSqlQuery /n /i%hdir%\include;%fwdir%\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
echo -O2 -eTAdoDatasource.exe -I%hdir%\include TAdoDatasource.c > b32.bc
echo -O2 -eTSqlQuery.exe -I%hdir%\include TSqlQuery.c > b32.bc
echo -O2 -exAdoDataSource.exe -I%hdir%\include xAdoDataSource.c > b32.bc
echo -O2 -exSqlQuery.exe -I%hdir%\include xSqlQuery.c > b32.bc
%bcdir%\bin\bcc32 -O2 -M -c -v @b32.bc
%bcdir%\bin\bcc32 -O2 -M -c -v -I%hdir%\include %1.c
%bcdir%\bin\bcc32 -O2 -M -c -v -I%hdir%\include TAdoDatasource.c
%bcdir%\bin\bcc32 -O2 -M -c -v -I%hdir%\include TSqlQuery.c
%bcdir%\bin\bcc32 -O2 -M -c -v -I%hdir%\include xAdoDataSource.c
%bcdir%\bin\bcc32 -O2 -M -c -v -I%hdir%\include xSqlQuery.c
: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 TAdoDatasource.obj + >> b32.bc
echo TAdoDatasource.exe + >> b32.bc
echo TAdoDatasource.map + >> b32.bc
echo TSqlQuery.obj + >> b32.bc
echo TSqlQuery.exe + >> b32.bc
echo TSqlQuery.map + >> b32.bc
echo xAdoDataSource.obj + >> b32.bc
echo xAdoDataSource.exe + >> b32.bc
echo xAdoDataSource.map + >> b32.bc
echo xSqlQuery.obj + >> b32.bc
echo xSqlQuery.exe + >> b32.bc
echo xSqlQuery.map + >> b32.bc
echo %fwdir%\lib\Fivehx.lib %fwdir%\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
echo %hdir%\lib\rddads.lib + >> b32.bc
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

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

rem delete temporary files
@del %1.c
@del TAdoDatasource.c
@del TSqlQuery.c
@del xAdoDataSource.c
@del xSqlQuery.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
ECHO The specified PRG TAdoDatasource does not exist
ECHO The specified PRG TSqlQuery does not exist
ECHO The specified PRG xAdoDataSource does not exist
ECHO The specified PRG xSqlQuery does not exist

:EXIT

Y el error que me sale es:
Fatal: Illegal option: O2

El error me sale en el mismo compilador xHarbour. Así que no os puedo poner el log.

Saludos y muchas gracias.

Diego.

[Antonio Linares]

Diego,

Para construir un EXE a partir de múltiples PRGs la solución más adecuada es usar un fichero make.

Tienes un ejemplo en FWH\makes\bormake.zip

[DiegoCandel]

Antonio,

Tal vez, como dices tú, puede ser que enlazar varios prg's con el fichero maker pueda ser la opción más adecuada pero nunca he trabajado con ello. Le he estado echando un vistazo al ejemplo que me apuntaste y no me aclaro mucho. Casi prefiero hacerlo con el .bat de toda la vida, en este caso con en el buildx.bat.

Sabiendo que mi prg principal es: prueba1.prg y que los otros cuatros prg's que quiero enlazar son: TAdoDatasource.prg, TSqlQuery.prg, xAdoDataSource.prg, xSqlQuery.prg y adjuntandote el buildx.bat que estoy utilizando, no le podrias echar un vistazo para ver porque me sale ese error?. Que con el buildx.bat no se pueden enlazar varios prg's?.

Lo que hice fué partir del buildx.bat que se encuentra en \FWH\samples y añadir los cuatro prg's. Repliqué las lineas que tratan al %1, que se supone que es el prg principal. No se haria asi?.

Te adjunto de nuevo el fichero buildx.bat con que el que estoy trabajando:

@ECHO OFF
CLS
ECHO ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
ECHO ³ FiveWin for xHarbour 8.01 - Jan. 2008 xHarbour development power ³Ü
ECHO ³ (c) FiveTech, 1993-2008 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=\TRABAJOS\UTILS\xharbour
set bcdir=\TRABAJOS\UTILS\bcc55
set fwdir=\TRABAJOS\UTILS\fwh

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

echo -02 -e%1.exe -I%hdir%\include %1.c >> b32.bc
%bcdir%\bin\bcc32 -M -c -v @b32.bc
%bcdir%\bin\bcc32 -M -c -v -O2 -I%hdir%\include %1.c
%bcdir%\bin\bcc32 -M -c -v -O2 -I%hdir%\include TAdoDatasource.c
%bcdir%\bin\bcc32 -M -c -v -O2 -I%hdir%\include TSqlQuery.c
%bcdir%\bin\bcc32 -M -c -v -O2 -I%hdir%\include xAdoDataSource.c
%bcdir%\bin\bcc32 -M -c -v -O2 -I%hdir%\include xSqlQuery.c

: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 TAdoDatasource.obj , + >> b32.bc
echo TSqlQuery.obj , + >> b32.bc
echo xAdoDataSource.obj , + >> b32.bc
echo xSqlQuery.obj , + >> b32.bc
echo %fwdir%\lib\Fivehx.lib %fwdir%\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
echo %hdir%\lib\rddads.lib + >> b32.bc
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

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 y gracias.

[jllinas]

Diego,

Como Antonio dice, no estas utilizando el Script correcto. Cuando te da como error que la opcion "O2" no es correcta, es cierto. Si te explico con mas detalles, y para que lo veas tu mismo, Buildx.bat esta proporcionado para compilar y enlazar UN SOLO .PRG. Cuando se trata de varios debes utilizar el Script que esta incluido bormake.zip que aparece en la carpeta MAKES del FWH. Inclusive, veras que las opciones de compilacion del xharbour, y de enlace con el Borland SON DIFERENTES. La opcion "O2" la estas utilizando con Borland, y no con el xHarbour... fijate en esto.

Si ves con cuidado al Bormake.bat, veras que el "O2" no se utiliza cuando son varios .PRG a compilar y enlazar.

Espero te sirva, y abrazos en Agno Nuevo,

[Antonio Linares]

Diego,

Modificándolo asi debe funcionar

...
echo c0w32.obj + >> b32.bc
echo %1.obj TAdoDatasource.obj TSqlQuery.obj xAdoDataSource.obj xSqlQuery.obj, + >> b32.bc
echo %1.exe, + >> b32.bc
echo %1.map, + >> b32.bc
...

[DiegoCandel]

Antonio,

Gracias por atenderme,
He modificado lo que me indicas y no sale el error del -O2. En cambio me aparecen otros tipos de errores. El primero dice que "No puede encontrar el fichero prueba1.cpp" (prueba1 es el prg principal).
Y más abajo, justo al final, aparece otro error: Fatal: Too many commas on command line:

Saludos y gracias.

[Antonio Linares]

Diego,

Tienes alguna coma de más ó menos.

Publica aqui nuevamente tu buildh.bat modificado y lo revisamos, gracias

[DiegoCandel]

Antonio,

Buildx modificado:

@ECHO OFF
CLS
ECHO ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
ECHO ³ FiveWin for xHarbour 8.01 - Jan. 2008 xHarbour development power ³Ü
ECHO ³ (c) FiveTech, 1993-2008 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=\TRABAJOS\UTILS\xharbour
set bcdir=\TRABAJOS\UTILS\bcc55
set fwdir=\TRABAJOS\UTILS\fwh

%hdir%\bin\harbour %1 /n /i%hdir%\include;%fwdir%\include /w /p %2 %3 > clip.log

%hdir%\bin\harbour TAdoDatasource /n /i%hdir%\include;%fwdir%\include /w /p %2 %3 >> clip.log

%hdir%\bin\harbour TSqlQuery /n /i%hdir%\include;%fwdir%\include /w /p %2 %3 >> clip.log

%hdir%\bin\harbour xAdoDataSource /n /i%hdir%\include;%fwdir%\include /w /p %2 %3 >> clip.log

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

rem echo -O2 -e%1.exe -I%hdir%\include %1.c TAdoDatasource.c TSqlQuery.c xAdoDataSource.c xSqlQuery.c > b32.bc
rem %bcdir%\bin\bcc32 -M -c -v @b32.bc

%bcdir%\bin\bcc32 -M -c -v -O2 -I%hdir%\include %1
%bcdir%\bin\bcc32 -M -c -v -O2 -I%hdir%\include TAdoDatasource.c
%bcdir%\bin\bcc32 -M -c -v -O2 -I%hdir%\include TSqlQuery.c
%bcdir%\bin\bcc32 -M -c -v -O2 -I%hdir%\include xAdoDataSource.c
%bcdir%\bin\bcc32 -M -c -v -O2 -I%hdir%\include xSqlQuery.c
:ENDCOMPILE

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

echo c0w32.obj + >> b32.bc
echo %1.obj TAdoDatasource.obj TSqlQuery.obj xAdoDataSource.obj xSqlQuery.obj, + >> b32.bc
echo %1.exe, + >> b32.bc
echo %1.map, + >> b32.bc
echo %fwdir%\lib\Fivehx.lib %fwdir%\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
echo %hdir%\lib\rddads.lib + >> b32.bc
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

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,

[Antonio Linares]

Diego,

Esta línea:
echo c0w32.obj + >> b32.bc

debiera ser:
echo c0w32.obj + > b32.bc

[DiegoCandel]

Antonio,

Tras hacer este cambio:
Sigue saliendome el error de: "No puedo encontrar el fichero prueba1.cpp". Y ahora ya no sale el error del las comas sino que sale otro que dice:
prueba1.res(1): 'Invalid character in .DEF file'
Fatal: Error processing .DEF file

Saludos y gracias de nuevo.

[DiegoCandel]

Hola Antonio,

Ya he quitado el error: prueba1.res(1): 'Invalid character in .DEF file'
Fatal: Error processing .DEF file

Sobraba un "+" en el "+ >> b32.bc" que cierra las .libs

Pero me queda el otro dichoso error. Aunque me abre la aplicación..., a que se debe eso de: "Could not find file 'prueba1.cpp' ?

Saludos.

[Antonio Linares]

Diego,

Cambia esta línea:
%bcdir%\bin\bcc32 -M -c -v -O2 -I%hdir%\include %1

así:
%bcdir%\bin\bcc32 -M -c -v -O2 -I%hdir%\include %1.c

[DiegoCandel]

Gracias Antonio por el tiempo prestado.

Compilación perfecta!!

Saludos.