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
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()
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)
oFtp:invoke( "GET", "prueba.txt", "c:\prueba.txt" )
oFtp:Get( "GET", "prueba.txt", "c:\prueba.txt" )
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)
* *
* 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..
Return to FiveWin para Harbour/xHarbour
Users browsing this forum: cnavarro and 30 guests