Page 1 of 1
clase texcels
Posted: Sun Jan 15, 2006 4:33 pm
by josei
Hola
La clase TExcels se puede usar con harbour, al compilarla me salen bastantes errores de compilacion
Atentamente
Jose Ignacio Jimenez Alarcon
Re: clase texcels
Posted: Mon Jan 16, 2006 3:29 pm
by VeRCE
josei wrote:Hola
La clase TExcels se puede usar con harbour, al compilarla me salen bastantes errores de compilacion
Atentamente
Jose Ignacio Jimenez Alarcon
Que clase de errores?
Como la estás compilando?
Posted: Mon Jan 16, 2006 4:01 pm
by josei
Hola
Pues la orden de compilacion es
harbour %1 /n /i..\include;c:\harbour25\include /p %2 %3 > clip.log
y los errores son de sintaxis...exactamente el TRY...CATH
texcels.prg(254) Error E0030 Syntax error: "parse error at '<eol>'"
texcels.prg(258) Error E0030 Syntax error: "parse error at '<eol>'"
texcels.prg(259) Error E0030 Syntax error: "parse error at '<eol>'"
texcels.prg(263) Error E0030 Syntax error: "parse error at '<eol>'"
texcels.prg(266) Error E0030 Syntax error: "parse error at '<eol>'"
texcels.prg(267) Error E0030 Syntax error: "parse error at '<eol>'"
texcels.prg(1106) Error E0030 Syntax error: "parse error at '<eol>'"
texcels.prg(1109) Error E0030 Syntax error: "parse error at '<eol>'"
texcels.prg(1111) Error E0030 Syntax error: "parse error at '<eol>'"
Atentamente
Jose Ignacio Jimenez Alarcon
Posted: Mon Jan 16, 2006 4:17 pm
by Vikthor
José :
Esas son extenciones de xHarbour, para que no tengas problema agrega __HARBOUR__ en la compilación de la clase, de esa forma el compilador ignorara esos procesos y tomará las instrucciones para usar la clase Ole de Harbour.
Posted: Mon Jan 16, 2006 10:56 pm
by josei
Hola
Gracias por las respuestas...pero...donde y como se pone _HARBOUR_ en la linea de compilacion?
Atentamente
Jose ignacio Jimenez Alarcon
Posted: Tue Jan 17, 2006 2:50 pm
by Vikthor
Si estas usando xMate
%C_BIN_INSTALL%\Bcc32.Exe -DHB_API_MACROS -M -c -D__HARBOUR__ -O2 -e -tWM -DHB_COMPAT_C53
-I%HB_INC_INSTALL%;%C_INC_INSTALL% -n%HOME%\Obj %C%[/b]
Si usas un .mak busca la declaración de flag para Bcc32, si usas xHarbour.com lo agregas en el apartado para flag de la segunda opción.
Posted: Thu Jan 19, 2006 5:59 pm
by josei
Hola
Lamento el tiempo que ha pasado,pero el trabajo es asi... gracias por las respuestas, pero el problema es que el error de sintaxis lo da en la compilacion de prg a obj que no se utliza Bcc32 sino harbour...hay alguna forma de sustituir esas expresiones por otras que hagan lo mismo en harbour...
Atentamente
Jose Ignacio Jimenez Alarcon
Posted: Fri Jan 20, 2006 6:35 pm
by Vikthor
Entonces quita del método new las llamadas TRY, CATCH y solo deja la función TOLeAuto()
Posted: Fri Jan 20, 2006 9:27 pm
by Vikthor
El método debe estar de esta forma
Code: Select all
METHOD NEW() CLASS TExcelScript
::lExcel := .T.
#IFDEF __XHARBOUR__
TRY
::oExcel := GetActiveObject( "Excel.Application" )
CATCH
TRY
::oExcel := CreateObject( "Excel.Application" )
CATCH
Alert( "No está Excel Instalado en está Pc." )
::lExcel := .F.
END
END
#ELSE
::oExcel := TOleAuto():New( Excel.Application )
IF ::oExcel:hObj == 0
Alert( "No está Excel Instalado en está Pc." )
::lExcel := .F.
ENDIF
#ENDIF
::oClip:=TClipBoard():New()
::oClip:Clear()
::aExcelCols := {}
RETURN( Self )