FiveTech Support Forums

FiveWin / Harbour / xBase community
Board indexAll discussionsLogin (GitHub)
Board index FiveWin para Harbour/xHarbour Sobre ToleAuto
JoseLuis
Posts: 428
Joined: Thu Oct 19, 2006 12:28 PM
Sobre ToleAuto
Posted: Mon Mar 19, 2007 11:49 AM

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

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

Saludos



Jose Luis
Biel EA6DD
Posts: 682
Joined: Tue Feb 14, 2006 09:48 AM
Sobre ToleAuto
Posted: Mon Mar 19, 2007 02:27 PM

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

Saludos desde Mallorca
Biel Maim贸
http://bielsys.blogspot.com/
JoseLuis
Posts: 428
Joined: Thu Oct 19, 2006 12:28 PM
Sobre ToleAuto
Posted: Mon Mar 19, 2007 05:25 PM
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)
    [/list:u]

    Que puede ser?

    Gracias

    Jose Luis
--------------------------

Saludos



Jose Luis
Biel EA6DD
Posts: 682
Joined: Tue Feb 14, 2006 09:48 AM
Sobre ToleAuto
Posted: Mon Mar 19, 2007 06:02 PM
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 Collapse
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)
Saludos desde Mallorca
Biel Maim贸
http://bielsys.blogspot.com/
JmGarcia
Posts: 654
Joined: Mon May 29, 2006 03:14 PM
Sobre ToleAuto
Posted: Tue May 29, 2007 11:28 AM

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.

Mi abuelo dec铆a: Los aviones vuelan porque Dios quiere, y los helic贸pteros ni Dios sabe porque vuelan.

FWH 16.02, xHarbour 1.2.3, Harbour 3.2.0, WorkShop 4.5, AJ Make 0.30, Borlan BCC 7.00, VisualStudio 2013
Antonio Linares
Posts: 44158
Joined: Thu Oct 06, 2005 05:47 PM
Sobre ToleAuto
Posted: Tue May 29, 2007 01:22 PM

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

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

regards, saludos

Antonio Linares
www.fivetechsoft.com
JmGarcia
Posts: 654
Joined: Mon May 29, 2006 03:14 PM
Sobre ToleAuto
Posted: Tue May 29, 2007 02:00 PM
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 Collapse
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.
Mi abuelo dec铆a: Los aviones vuelan porque Dios quiere, y los helic贸pteros ni Dios sabe porque vuelan.

FWH 16.02, xHarbour 1.2.3, Harbour 3.2.0, WorkShop 4.5, AJ Make 0.30, Borlan BCC 7.00, VisualStudio 2013

Continue the discussion

Static archive 路 New replies & topics via GitHub Discussions