FiveTech Support Forums

FiveWin / Harbour / xBase community
Board indexAll discussionsLogin (GitHub)
Board index FiveWin para Harbour/xHarbour Clases TURL y TIPClientFTP
FiveWiDi
Posts: 1445
Joined: Mon Oct 10, 2005 02:38 PM
Clases TURL y TIPClientFTP
Posted: Wed Nov 27, 2013 11:42 PM

Hola a todos,

Estoy intentando usar la clase de ServicesFTP de Jose Javier Lloris pero me faltan las clases TURL y TIPClientFTP.

No las encuentro ni en Fivewin 1305 ni en el Harbour que va con el.

Alguién me las puede enviar a publi @ gelbla . com ? O decirme como puedo subir ficheros por FTP sin usar estas clases?

Gracias,

Un Saludo

Carlos G.



FiveWin 25.12 + Harbour 3.2.0dev (r2502110321), BCC 7.7 Windows 11 Home

MarioG
Posts: 1380
Joined: Fri Oct 14, 2005 01:28 PM
Re: Clases TURL y TIPClientFTP
Posted: Thu Nov 28, 2013 01:38 AM
Fivewidi;
no probaste con la búsqueda avanzada del foro? Hay bastante escrito sobre el tema
Este link fue sugerido es uno de ellos
http://javierlloris.blogspot.com.es/2012/04/programa-pftp_25.html

exitos!
Resistencia - "Ciudad de las Esculturas"

Chaco - Argentina
FiveWiDi
Posts: 1445
Joined: Mon Oct 10, 2005 02:38 PM
Re: Clases TURL y TIPClientFTP
Posted: Thu Nov 28, 2013 09:11 PM
MarioG wrote:Fivewidi;
no probaste con la búsqueda avanzada del foro? Hay bastante escrito sobre el tema
Este link fue sugerido es uno de ellos
http://javierlloris.blogspot.com.es/2012/04/programa-pftp_25.html

exitos!


Gracias Mario.

Si que lo hice, por FTP hay "sólo" 2400 y pico entradas, de las cuales accedí al link que comentas, el cual no lleva lo que ne falta.

Un Saludo

Carlos G.



FiveWin 25.12 + Harbour 3.2.0dev (r2502110321), BCC 7.7 Windows 11 Home

Sebastián Almirón
Posts: 166
Joined: Mon Dec 12, 2005 09:56 AM
Re: Clases TURL y TIPClientFTP
Posted: Fri Nov 29, 2013 09:26 AM

Hola,

Creo recordar que tienes que enlazar la librería de harbour hbtip.lib (yo uso la version 1303) y la HBRTL.lib . En este último caso no se si vale la que viene con harbour o tienes que meter la que viene en el fichero pftp.zip de Jose Javier Lloris en una carpeta llamada "libría modificada hbrtl.lib por antonio linales abril 2010".

Saludos

FiveWiDi
Posts: 1445
Joined: Mon Oct 10, 2005 02:38 PM
Re: Clases TURL y TIPClientFTP
Posted: Fri Nov 29, 2013 03:55 PM
Sebastián Almirón wrote:Hola,

Creo recordar que tienes que enlazar la librería de harbour hbtip.lib (yo uso la version 1303) y la HBRTL.lib . En este último caso no se si vale la que viene con harbour o tienes que meter la que viene en el fichero pftp.zip de Jose Javier Lloris en una carpeta llamada "libría modificada hbrtl.lib por antonio linales abril 2010".

Saludos


Gracias Sebastian, lo probaré esta noche.

Un Saludo

Carlos G.



FiveWin 25.12 + Harbour 3.2.0dev (r2502110321), BCC 7.7 Windows 11 Home

lucasdebeltran
Posts: 1303
Joined: Tue Jul 21, 2009 08:12 AM
Re: Clases TURL y TIPClientFTP
Posted: Fri Nov 29, 2013 05:39 PM

Carlos,

En Harbour es hbtip.lib y funciona muy bien.

Muchas gracias. Many thanks.



Un saludo, Best regards,



Harbour 3.2.0dev, Borland C++ 5.82 y FWH 13.06 [producción]



Implementando MSVC 2010, FWH64 y ADO.



Abandonando uso xHarbour y SQLRDD.
FiveWiDi
Posts: 1445
Joined: Mon Oct 10, 2005 02:38 PM
Re: Clases TURL y TIPClientFTP
Posted: Sat Nov 30, 2013 01:11 PM
lucasdebeltran wrote:Carlos,

En Harbour es hbtip.lib y funciona muy bien.

Muchas gracias a todos por la información.

Ya he conseguido subir ficheros basándome en el buen trabajo de Javier Lloris.

Un Saludo

Carlos G.



FiveWin 25.12 + Harbour 3.2.0dev (r2502110321), BCC 7.7 Windows 11 Home

goosfancito
Posts: 1956
Joined: Fri Oct 07, 2005 07:08 PM
Re: Clases TURL y TIPClientFTP
Posted: Sat May 15, 2021 01:45 AM
FiveWiDi wrote:
lucasdebeltran wrote:Carlos,

En Harbour es hbtip.lib y funciona muy bien.

Muchas gracias a todos por la información.

Ya he conseguido subir ficheros basándome en el buen trabajo de Javier Lloris.


mayo 2021 no pued hacer andar el programa. he probado el .exe coloco los datos en configuracion y cuando le doy al boton "probar" no se puede conectar, uso los mismos datos que en firezilla.
FWH 21.02
Harbour 3.2.0dev (r2104281802)
Copyright (c) 1999-2021, https://harbour.github.io/
Antonio Linares
Posts: 44158
Joined: Thu Oct 06, 2005 05:47 PM
Re: Clases TURL y TIPClientFTP
Posted: Sat May 15, 2021 03:57 PM
Gustavo,

EL ejemplo que tu me enviaste, con la pequeña modificación que te indiqué (nBufSize), parace funcionar correctamente.

Puedes comprobar si ha llegado el fichero fwintro.pdf a tu servidor FTP ? gracias

Code (fw): Select all Collapse
//////////////////////////////////////////////////////////////////////////////
// Programa: menu.prg
// Fecha Creaci�n: 05/13/2021
// Hora: 15:28
// Proyecto en xMate: ftp
// Lista de funciones:
// Ultima actualizacion :>: 05/13/2021 17:35
// Historial:
//            >>:
//            05/13/21
//////////////////////////////////////////////////////////////////////////////

#include "fivewin.ch"

//------------------------------------------------------------------------------

FUNCTION copiar( cFtp, cUsuario, cPassword )
   LOCAL oInternet, oFtp
   LOCAL oFile, hFile, cFile := "fwintro.pdf"
   LOCAL nBytes, nBufSize := 2000, cBuffer := Space( 2000 )

   msgRun( "Conectandose...", "Momento", ;
           { || ;
             oInternet := TInternet():new(), ;
             IF ( Empty( oInternet:hSession ), ;
                  MsgAlert( "No hay seccion" ), ), ;
             oFtp := TFTP():new( cFtp, oInternet, cUsuario, cPassword ) ;
           } )

   IF Empty( oFtp:hFtp )
      MsgStop( "no se pudeo conectat" )
      RETURN ( NIL )
   ENDIF

   IF ! File( cFile )
      MsgStop( "No existe" )
   ENDIF

   hFile := FOpen( cFile )
   MsgInfo( hFile )

   oFile := TFtpFile():new( "//" + cFile, oFtp )
   oFile:OpenWrite()

   WHILE ( nBytes := FRead( hFile, @cBuffer, nBufSize ) ) > 0
      oFile:write( SubStr( cBuffer, 1, nBytes ) )
   END

   FClose(hFile)
   oFile:END()

   RETURN( NIL )

//------------------------------------------------------------------------------

FUNCTION main()
   LOCAL ;
   cFtp := "ftp.sergiogustavo.com", ;
   cUsuario := "rcgeneral@sergiogustavo.com", ;
   cPassword := "........."

   copiar( cFtp, cUsuario, cPassword )

   RETURN ( NIL )

//------------------------------------------------------------------------------
regards, saludos

Antonio Linares
www.fivetechsoft.com
goosfancito
Posts: 1956
Joined: Fri Oct 07, 2005 07:08 PM
Re: Clases TURL y TIPClientFTP
Posted: Mon May 17, 2021 12:24 AM


0kb
FWH 21.02
Harbour 3.2.0dev (r2104281802)
Copyright (c) 1999-2021, https://harbour.github.io/

Continue the discussion

Static archive · New replies & topics via GitHub Discussions