Consulta sobre Funcky

Consulta sobre Funcky

Postby Patricio Avalos Aguirre » Wed Feb 28, 2007 2:18 pm

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
User avatar
Patricio Avalos Aguirre
 
Posts: 1060
Joined: Fri Oct 07, 2005 1:56 pm
Location: La Serena, Chile

Postby R.F. » Wed Feb 28, 2007 4:50 pm

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.
Saludos
R.F.
R.F.
 
Posts: 840
Joined: Thu Oct 13, 2005 7:05 pm

Postby Patricio Avalos Aguirre » Wed Feb 28, 2007 6:40 pm

Gracias maestro

ahora una consulta, sobre ftp

Code: Select all  Expand view  RUN
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  RUN
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
User avatar
Patricio Avalos Aguirre
 
Posts: 1060
Joined: Fri Oct 07, 2005 1:56 pm
Location: La Serena, Chile

Postby R.F. » Thu Mar 01, 2007 7:13 pm

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.
Saludos
R.F.
R.F.
 
Posts: 840
Joined: Thu Oct 13, 2005 7:05 pm

Postby Patricio Avalos Aguirre » Fri Mar 02, 2007 4:22 pm

No funciono, sale el mismo error
Code: Select all  Expand view  RUN
               oFtp:invoke( "GET", "prueba.txt", "c:\prueba.txt" )
               oFtp:Get( "GET", "prueba.txt", "c:\prueba.txt" )


Code: Select all  Expand view  RUN
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  RUN
*                                                                        *
*  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
User avatar
Patricio Avalos Aguirre
 
Posts: 1060
Joined: Fri Oct 07, 2005 1:56 pm
Location: La Serena, Chile


Return to FiveWin para Harbour/xHarbour

Who is online

Users browsing this forum: cnavarro and 30 guests