clase texcels

[josei]

Hola

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

Atentamente
Jose Ignacio Jimenez Alarcon

[VeRCE]

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?

[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

[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.

[josei]

Hola

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

Atentamente
Jose ignacio Jimenez Alarcon

[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.

[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

[Vikthor]

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

[Vikthor]

El método debe estar de esta forma

Code: Select all  Expand view  RUN

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 )