Error al compilar con el buildx
Posted: Mon Dec 28, 2009 5:05 pm
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 )
Datasource := 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.
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 )
Datasource := 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.