FiveTech Software tech support forums

Hola amigos
La mayoria de los ejemplos que veo en éste foro para mandar e-mail utilizan la clase ToleAuto(), y yo que utilizo xharbour, siempre me da error TOleAuto():New().

Mi pregunta es si hay que enlazar con alguna librería para poder compilar alguno de los ejemplos que hay en el foro

Saludos

Jose Luis

Si usas xHarbour utiliza CreateObject(), en lugar de tOleAuto():New(). xHarbour lleva soporte nativo ole. Si usas Harbour, para poder usar tOleAuto, debes enlazar con la libreria hbOle.lib

Una pregunta
Es que a pesar de sustituir Toleauto():New() por Createobject, el error que me da en tiempo de ejecución hace referencia a Toleauto, aunque en el fuente no aparezca por ningún lado. Mira el código de error que me da:

Application
===========
Path and name: c:\fuentes\xharbour\mail2.Exe (32 bits)
Size: 444,928 bytes
Time from start: 0 hours 0 mins 0 secs
Error occurred at: 03/19/07, 18:20:09
Error description: Error TOleAuto/-1 CO_E_CLASSSTRING: TOLEAUTO:NEW
Args:
[ 1] = C Persits.MailSender.4

Stack Calls
===========
Called from: => THROW(0)
Called from: win32ole.prg => TOLEAUTO:NEW(300)
Called from: win32ole.prg => CREATEOBJECT(67)
Called from: mail2.prg => EMAILSENDER(3)

Que puede ser?

Gracias

Jose Luis

Si se ve que einternamente CreateObject llama a tOleAuto:New().

El error que te da, no sabria decirte, pero a mi me da un error muy parecido cuando intento crear un objeto y dicho objeto no esta en mi sistema, o me equivoco en el string.

Code: Select all  Expand view

oRsPen:=CreateObject("NADA")


Error occurred at: 19-03-07, 18:58:28
Error description: Error TOleAuto/-1 CO_E_CLASSSTRING: TOLEAUTO:NEW
Args:
[ 1] = C ADof

Stack Calls
===========
Called from: => THROW(0)
Called from: win32ole.prg => TOLEAUTO:NEW(307)
Called from: win32ole.prg => CREATEOBJECT(67)

Resulta que las FuncKyFTP tiene un metodo llamado GET (en el protocolo FTP es para coger ficheros).
Resulta que al compilar con FWH 7.5 y su xHarbour 0.99.71 pues me da el error tipico de PCODE...
Entonces tengo que renombrar el metodo GET de TOleAuto a _GET para que no "moleste" y recompilar la LIB.

Algun fichero BAT para recompilar win32ole.prg (TOleAuto) con el xHarbour de la FWH 7.5

Gracias.

Solo tienes que llamar a harbour.exe /n /Ic:\xharbour\include win32ole.prg

y bcc32 -c -Ic:\xharbour\include win32ole.c

Antonio Linares wrote:Solo tienes que llamar a harbour.exe /n /Ic:\xharbour\include win32ole.prg
y bcc32 -c -Ic:\xharbour\include win32ole.c

En cuantas el codigo fuente pasa por el #pragma ENDDUMP a partir de la linea 153... con errores de este tipo:

Code: Select all  Expand view

win32ole.prg(153) Error E0030  Syntax error: "parse error at 'S_PSYM_NEW'"
win32ole.prg(158) Error E0030  Syntax error: "parse error at 'S_PSYM_VTARRAYWRAPPER'"
win32ole.prg(163) Error E0061  Illegal character '.'.
win32ole.prg(166) Error E0030  Syntax error: "parse error at 'VARIANTINIT'"
win32ole.prg(167) Error E0030  Syntax error: "parse error at '}'"
win32ole.prg(172) Error E0030  Syntax error: "parse error at 'FUNCTION'"
win32ole.prg(180) Error E0030  Syntax error: "parse error at 'FUNCTION'"
win32ole.prg(190) Error E0030  Syntax error: "parse error at 'FUNCTION'"
etc...

Sin embargo compilando con xharbour 0.99.70 compila perfectamente con el AjMake.