FiveTech Software tech support forums

... nBytes local oFile if ! File( cSource ) MsgStop( "File not found: " + cSource ) Return .f. endif hSource = FOpen( cSource ) oFile = TFtpFile():New( cTarget, oFTP ) oFile:OpenWrite() FSeek( hSource, 0, 0 ) nFile := 0 while ( nBytes := FRead( hSource, @cBuffer, nBufSize ) ) > 0 ...

... retu .f. endi cFileOrigen:='c:\respaldo\Archivo.txt' hSource :=FOpen(cFileOrigen) cFileFTP:='httpdocs/Clientes/Archivo.txt' oFile :=TFtpFile():New(cFileFTP, oFTP) oFile:OpenWrite() FSeek(hSource, 0, 0) nBufSize:=2000000 cBuffer :=space(nBufSize) do while ( nBytes:=FRead( hSource, ...

... [Source\Classes\tftp.prg] MYC_FLAGS = MYDEFINES = MYPRG_FLAGS = [Source\Classes\tftpcli.prg] MYC_FLAGS = MYDEFINES = MYPRG_FLAGS = [Source\Classes\tftpfile.prg] MYC_FLAGS = MYDEFINES = MYPRG_FLAGS = [Source\Classes\tftpserv.prg] MYC_FLAGS = MYDEFINES = MYPRG_FLAGS = [Source\Classes\tftpsess.prg] ...

... should be presented by Firewall information if the program is not on the firewall list: It hangs on: // This creates the object normaly oFile = TFtpFile():New( aTarget[ n ], oFTP ) // It hangs on the line below: oFile:OpenWrite() It doesn't show any info, just hangs forewer... Is there any way ...

... "Obj\tfile.obj" "Obj\tfilegtf.obj" "Obj\tform.obj" "Obj\tftp.obj" "Obj\tftpcli.obj" "Obj\tftpfile.obj" "Obj\tftpserv.obj" "Obj\tftpsess.obj" "Obj\tget.obj" "Obj\tgraph.obj" "Obj\theader.obj" ...

... n ] ) nTotSize += FSeek( hSource, 0, 2 ) FClose( hSource ) next n for n = 1 to Len( aSource ) hSource = FOpen( aSource[ n ] ) sysrefresh() oFile = TFtpFile():New( aTarget[ n ], oFTP ) oFile:OpenWrite() // Esto tarda mas de un minuto --------------------------------------------- FSeek( hSource, ...

... aSource[ n ] ) nTotSize += FSeek( hSource, 0, 2 ) FClose( hSource ) next for n = 1 to Len( aSource ) hSource = FOpen( aSource[ n ] ) oFile = TFtpFile():New( aTarget[ n ], oFTP ) oFile:OpenWrite() FSeek( hSource, 0, 0 ) nFile := 0 while ( nBytes := FRead( hSource, @cBuffer, nBufSize ) ) > ...

... mi, en la que necesito subir y bajar archivos de datos en un servidor FTP desde FW... Mirando los los fuentes veo que estan clases tFTP, tFTPCli, tFTPFile, tFTPServ, y tFTPSess; y en los ejemplos estan FTPDir y FTPServ... Por lo pronto la cosa se me ha trancado porque me sale un dialogo que me ...

... aSource[ n ] ) nTotSize += FSeek( hSource, 0, 2 ) FClose( hSource ) next for n = 1 to Len( aSource ) hSource = FOpen( aSource[ n ] ) oFile = TFtpFile():New( aTarget[ n ], oFTP ) oFile:OpenWrite() FSeek( hSource, 0, 0 ) nFile := 0 while ( nBytes := FRead( hSource, @cBuffer, nBufSize ) ) > ...

He tenido el mismo problema, pero lo que me parece raro es que se da en un solo computador, tengo 14 computadores ubicados en zonas geográficas distintas, por FTP genero actualizaciones automáticas de cada computador a un servidor MYSQL, el problema lo he tenido en un solo computador, pensé que podr...

... 01/01/01 aFiles[1][4] "00:00:00" If I look for specific file which I know is there, I get the same result. Simiar problems using the TFtpFile class also result in no bytes to be transfered. oFile = TFtpFile():New( aSource[ n ], oFTP ) oFile:OpenRead() oFile:Read( nBufSize ) Any ideas ...

... cRemoteFile: debe ser la dirección completa del FTP? cNewFile: se puede incluir el camino de la carpeta destino? hConnect: si me conecto con TFtpFile(), obtengo tal valor de la clase? nFaillExists: ? nFlagsAndAttribs: ? nFlags: ? nContext: ? muchas gracias

CodeMaker,

\source\classes\tftpfile.prg

Manuel
Muchas gracias, con Memoline tengo lo que necesito

Ahora quedaría pendiente que Fivetech nos ratifique o rectifique que devuelve el metodo ::Seek() de la clase TFTPFile

Saludos

Anonio:
La aplicacion reside en C:\Rallye, y el nombre de la misma es Rallye, pero antes y en otros equipos no me da problemas, el cortafuegos lo tengo desactivado, ya sólo me queda desinstalar el antivirus y cortafuegos, pues me temo que es el responsable.
Muchas gracias y un saludo
José Luis