FiveTech Support Forums

FiveWin / Harbour / xBase community
Board index FiveWin para Harbour/xHarbour TFtp - directorio a Array - SOLUCIONADO
Posts: 593
Joined: Sat May 12, 2007 11:47 AM
TFtp - directorio a Array - SOLUCIONADO
Posted: Thu May 30, 2013 04:39 PM
Buenas tardes,

Estoy incursionando con la TFtp y viendo el ejemplo le agregué los siguiente con la intención de mostrar todos los datos obtenidos del directorio del server con un xBrowse:

Code (fw): Select all Collapse
if ! Empty( oFTP:hFTP )
      aFiles = oFTP:Directory(cFolder+ "/*.*" )
      AEval( aFiles, { | aFile | MsgInfo( aFile[ 1 ], aFile[ 3 ] ) } )
   else
      MsgAlert( "oFTP:hFTP is null" )
endif

   xBrowse(aFiles)

    for f = 1 to len(aFiles)
        aadd(aArray,{aFiles[f,1],aFiles[f,2],aFiles[f,3]aFiles[f,4],})
    next

    xBrowse(aArray)

   oInternet:End()

   MsgInfo( "Done!" )

return nil


La cuestión es que los MsgInfo los muestra correctamente pero tanto en el xBrowse(aFiles) como en el xBrowse(aArray) solo muestra "binary" en la primer columna que es la del nombre del archivo, y es tan extensa que hay que desplazar a la derecha para poder ver las otras tres columnas que sí muestran bien sus datos.

¿Hay alguna forma de pasar el directorio de un FTP a un array y que este pueda ser mostrado con la xBrowse?.

Gracias.

Rolando :-)
Posts: 1364
Joined: Wed Jun 21, 2006 12:39 AM
Re: TFtp - directorio a Array - ¿como?
Posted: Thu May 30, 2013 08:24 PM

Rolando, usa xBrowser aFiles

Saludos

Posts: 593
Joined: Sat May 12, 2007 11:47 AM
Re: TFtp - directorio a Array - ¿como?
Posted: Fri May 31, 2013 12:39 AM

Horacio,

Gracias por responder, pero es lo mismo.

La primer columna muestra "binary" y no el nombre del archivo que está en el FTP server.

Acabo de verificar y esta columna tiene una extensión de 260 caracteres.

Rolando :D

Continue the discussion