Consulta sobre Funcky

[Patricio Avalos Aguirre]

Estimados

Tengo algunas consulta sobre esta libreria

Como se distribuye la aplicacion, me explico, hay que instalar todo el paquete o bien solo las dll

Saludos
Patricio

[R.F.]

Nop.

Solo tienes que copiar los archivos de FUNCKY a la carpeta Windows\system32 o windows\system de la computadora donde instalas y luego "registrar" el servicio.

Copia funcky60.DLL y funcky60.tlb a la carpeta windows\system

Luego, desde una ventana de ms-dos "registra" el componente tecleando esto:

RegSvr32 C:\Windows\System\FUNCky60.DLL

y listo, si utilizas algun instalador como InnoSetup, esto se puede automatizar desde la instalacion.

[Patricio Avalos Aguirre]

Gracias maestro

ahora una consulta, sobre ftp

Code: Select all  Expand view

oFtp := TOleAuto():New("Funckyftp")
oFtp:Connect(cServer, usuario, clave )

if oFtp:Status = 0
    oFtp:ChangeDir ("paso\")
    cStr := oFtp:Execute("LIST", .t. )
   alert( cStr )            //muestra bien los archivos
   oFtp:Get( "prueba.txt", "c:\prueba.txt",0)
endif

oFtp:Disconnect()


me sale el siguiente Error

Code: Select all  Expand view

Stack Calls
===========
   Called from: win32ole.prg => TOLEAUTO:PRUEBA.TXT(0)
   Called from:  => HB_EXECFROMARRAY(0)
   Called from: win32ole.prg => TOLEAUTO:GET(415)
   Called from: WCTA.PRG => FUNCKY(1368)
   Called from: WCTA.PRG => MAIN(20)

Por ahi vi a otro usuario con los metodos GET, pero no lo he encontrado

Saludos
Patricio

[R.F.]

Efectivamente:

Aqui tenemos un "pequeño" problema.

Sucede que la clase TOLE AUTO tiene un METODO GET y Funcky tambien, lo cual causa un conflicto de intereses.... ¿ a quien le hago caso ?, al metodo GET de Fucnky o al metodo Get de TOLE AUTO

Esta claro que lo que se invoca es el metodo GET de la TOLEAUTO, pero te marca el error, porque ese metodo espera unos parametros que no son los que le estan mandando.

Esto deberia funcionar asi:

oFunckyFTP:Get( "Get", ficheroorigen, ficherodestino )

o

oFunckyFTP:Invoke( "Get", ficheroorigen, ficherodestino )

Pruebalo y me dices.

[Patricio Avalos Aguirre]

No funciono, sale el mismo error

Code: Select all  Expand view

               oFtp:invoke( "GET", "prueba.txt", "c:\prueba.txt" )
               oFtp:Get( "GET", "prueba.txt", "c:\prueba.txt" )


Code: Select all  Expand view

Stack Calls
===========
   Called from: win32ole.prg => TOLEAUTO:PRUEBA.TXT(0)
   Called from:  => HB_EXECFROMARRAY(0)
   Called from: win32ole.prg => TOLEAUTO:GET(415)
   Called from:  => HB_EXECFROMARRAY(0)
   Called from: win32ole.prg => TOLEAUTO:INVOKE(415)
   Called from: WCTA.PRG => FUNCKY(1369)
   Called from: WCTA.PRG => MAIN(20)

Pero con la clase de Jose - funciona bien


oFtp:invoke( "GET", "prueba.txt", "c:\prueba.txt" )



Con este linea oFtp:Get( "prueba.txt", "c:\prueba.txt", 0 )

Muestra un mensaje de errror prueba.txt DISP_E_UNKNOWNNAME
pero no se cae el programa, me parece que esta muy bien

debe tener algun problema la clase oleauto de xharbour

Code: Select all  Expand view

*                                                                        *
*  Autor: José F. Giménez (JFG) - jfgimenez@wanadoo.es                   *
*                                 tecnico.sireinsa@ctv.es                *
*  Fecha: 6-11-2000                                                      *
*                                                                        *
*  Revisado: 13-2-2001, 28-2-2001, 13-3-2001                             *
*                                                                        *
*  Nota: basado en la clase TComObj() de FW 2.1                          *
*                                                                        *
**************************************************************************
#ifndef __HARBOUR__
   #include "FiveWin.ch"
#else
   #include "HBClass.ch"
#endif

bla..bla..bla..



Gracias nuevamente maestro

Saludos
Patricio