topic-42489

Posts: 103

Joined: Wed May 31, 2006 08:49 AM

Subida de fichero por FTP
Posted: Thu Nov 17, 2022 11:11 AM

Muy buenas, estoy intentando subir un fichero a un sitio FTP.
La conexion la realiza correctamente.
Crea el fichero
Pero lo deja con 0 bytes.
No me da ningún tipo de error.
Alguien sabe porque puede ser?

Este es el código que uso

Code (fw): Select all Collapse

      EXP_ART->( dbGotop() )
      oBrw:refresh()

      // Subo el Fichero
      oInternet := TInternet():New() 
      oFTP := TFTP():New( Alltrim(cServFtp), oInternet, Alltrim(cUserFtp),Alltrim(cPassFtp), lPASSIVE_MODE ) 
      If !Empty( oFTP:hFTP ) 
        oFTP:SetCurrentDirectory( "/" )
        oFTP:DeleteFile( "subida.xml" )
        hSource = FOpen( "..\INTER\subida.xml" ) 
        oFile = TFtpFile():New( "subida.xml", oFTP ) 
        oFile:OpenWrite() 
        FSeek( hSource, 0, 0 ) 
        SysRefresh() 
        while ( nBytes := FRead( hSource, @cBuffer, nBufSize ) ) > 0
          oFile:Write( SubStr( cBuffer, 1, nBytes ) )
          SysRefresh() 
        end 
        FClose( hSource ) 
        oFile:End() 
        oInternet:End() 
        MsgInfo( "Articulos exportados CORRECTAMENTE", "Información" )
      endif
*      msgstop("subido")
  
*      ferase( "..\INTER\subida.xml" )

Fwh ver. 22.03

acuellar

Posts: 1710

Joined: Tue Oct 28, 2008 06:26 PM

Re: Subida de fichero por FTP
Posted: Fri Nov 18, 2022 11:41 AM

juanjogascem

Intenta con éste código:

Code (fw): Select all Collapse

FtpSubeBases("ALMACEN\DATA","190.171.250.80","usuario","password")
....

Function FtpSubeBases(cFtpDir,cIPFtpSite,FTPUser,FTPPass)
   oCon:=Turl():New("ftp://"+FTPUser+":"+FTPPass+"@"+cIPftpsite)
   oFTP:=TIpClientFtp():New(oCon, .f.)
   oFTP:open()
   oFtp:UploadFile("C:\SISTEMAS\ALMACEN\DATA\ITEMS.DBF",cFtpDir+"ITEMS.DBF") 
   oFtp:close()

Saludos,

Adhemar C.

juanjogascem

Posts: 103

Joined: Wed May 31, 2006 08:49 AM

Re: Subida de fichero por FTP
Posted: Sat Nov 19, 2022 04:35 PM

Perfecto.

SI, funcionó perfectamente.

Muchas gracias!!!!

juanjogascem

Posts: 103

Joined: Wed May 31, 2006 08:49 AM

Re: Subida de fichero por FTP
Posted: Tue Nov 22, 2022 11:32 AM

Buenas de nuevo.

Ahora me estoy pegando con la instruccion oFtp:directory( "/Images") y no hay manera de que me devuelve los ficheros que existen.

Con la nueva clase del ejemplo anterior sugerido no existe esa propiedad y no encuentro informacion al respecto

Comp podria obter los ficheros de una carpeta FTP?

Un saludo

acuellar

Posts: 1710

Joined: Tue Oct 28, 2008 06:26 PM

Re: Subida de fichero por FTP
Posted: Tue Nov 22, 2022 08:34 PM

Usar:

Code (fw): Select all Collapse

oFtp:DownloadFile(cDirLocal+cFile,cFtpDir+cFile)

Saludos,

Adhemar C.

juanjogascem

Posts: 103

Joined: Wed May 31, 2006 08:49 AM

Re: Subida de fichero por FTP
Posted: Tue Nov 22, 2022 09:22 PM

Con obtener me refería a leer los ficheros que existen en una carpeta para poder comparar con los ficheros que existen en la carpeta local y borrar los que no necesito.

Saludos

acuellar

Posts: 1710

Joined: Tue Oct 28, 2008 06:26 PM

Re: Subida de fichero por FTP
Posted: Wed Nov 23, 2022 12:02 PM

Usar

Code (fw): Select all Collapse

aFiles:=oFtp:Directory("images\*.*")

Devuelve 4 Columnas
NOMBRE TAMAÑO FECHA HORA

Code (fw): Select all Collapse

NOMBRE:= aFiles[1,1]

Saludos,

Adhemar C.

juanjogascem

Posts: 103

Joined: Wed May 31, 2006 08:49 AM

Re: Subida de fichero por FTP
Posted: Wed Nov 23, 2022 04:39 PM

Buenas

He probado de todas las formas

oFtp:Directory( "/images/." )

oFtp:Directory( "images/." )

oFtp:Directory( "/images/ )

oFTP:SetCurrentDirectory( "/images" )

aFilesBo := oFTP:Directory()

En todos los casos me devuelve 1 elemento con aFilesBo[1,1] esta vacio.

Ya no se que hacer

acuellar

Posts: 1710

Joined: Tue Oct 28, 2008 06:26 PM

Re: Subida de fichero por FTP
Posted: Wed Nov 23, 2022 04:55 PM

Quizás la ruta de la carpeta images no es la correcta

debe ponerla completa

Saludos,

Adhemar C.

FiveTech Support Forums

Continue the discussion