topic-1277

josei

Posts: 18

Joined: Sun Jan 01, 2006 04:24 PM

clase texcels
Posted: Sun Jan 15, 2006 04:33 PM

Hola

La clase TExcels se puede usar con harbour, al compilarla me salen bastantes errores de compilacion

Atentamente
Jose Ignacio Jimenez Alarcon

VeRCE

Posts: 219

Joined: Fri Nov 04, 2005 02:34 PM

Re: clase texcels
Posted: Mon Jan 16, 2006 03:29 PM

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?

Juan Carlos Salinas Ojeda

México. D.F.

-------------------------------------------------

josei

Posts: 18

Joined: Sun Jan 01, 2006 04:24 PM

clase texcels
Posted: Mon Jan 16, 2006 04:01 PM

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

Vikthor

Posts: 298

Joined: Fri Oct 07, 2005 05:20 AM

clase texcels
Posted: Mon Jan 16, 2006 04:17 PM

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.

Vikthor

josei

Posts: 18

Joined: Sun Jan 01, 2006 04:24 PM

clase texcels
Posted: Mon Jan 16, 2006 10:56 PM

Hola

Gracias por las respuestas...pero...donde y como se pone HARBOUR en la linea de compilacion?

Atentamente
Jose ignacio Jimenez Alarcon

Vikthor

Posts: 298

Joined: Fri Oct 07, 2005 05:20 AM

clase texcels
Posted: Tue Jan 17, 2006 02:50 PM

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.

Vikthor

josei

Posts: 18

Joined: Sun Jan 01, 2006 04:24 PM

clase texcels
Posted: Thu Jan 19, 2006 05:59 PM

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

Vikthor

Posts: 298

Joined: Fri Oct 07, 2005 05:20 AM

clase texcels
Posted: Fri Jan 20, 2006 06:35 PM

Entonces quita del método new las llamadas TRY, CATCH y solo deja la función TOLeAuto()

Vikthor

Posts: 298

Joined: Fri Oct 07, 2005 05:20 AM

clase texcels
Posted: Fri Jan 20, 2006 09:27 PM

El método debe estar de esta forma

Code: Select all Collapse

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 )

Vikthor

FiveTech Support Forums

Continue the discussion