Bom dia, estou usando o ftp do windows e esta funcionando mas não estou satisfeito, estou testando esta rotina abaixo, esta dando o seguinte problema
so envia 1K e finaliza a transmissao
aFiles := Directory( '\cdpi\pa4313.rar'')
IF Len( aFiles ) > 0
oUrl := tUrl():New( cUrl )
oFTP := tIPClientFtp():New( oUrl, .f. )
oFTP:nDefaultPort := 21
oFTP:nConnTimeout := 20000
oFTP:bUsePasv := .T.
// Comprobamos si el usuario contiene una @ para forzar el userid
oFTP:oUrl:cServer := cServer
oFTP:oUrl:cUserID := cUser
oFTP:oUrl:cPassword := cPassword
IF oFTP:Open( oUrl )
///FOR x := 1 to len( aFiles )
msgstop( "arquivo : " + aFiles[ 1,1 ])
//IF !oFtp:UploadFile( aFiles[ x,1 ] )
lRetorno:=oFtp:UploadFile( aFiles[ 1,1 ] )
/// lRetorno := .F.
//EXIT
//ELSE
/// lRetorno := .t.
///ENDIF
//NEXT
oFTP:Close()
cRet := 'enviei '+time()+' retorno : '+iif(lretorno,'t','f')
msgstop( cRet )
ELSE
cStr := "No se ha podido conectar con el servidor FTP" + " " + oURL:cServer
IF oFTP:SocketCon == NIL
cStr += Chr( 13 ) + Chr( 10 ) + "Conexión no inicializada"
ELSEIF InetErrorCode( oFTP:SocketCon ) == 0
cStr += Chr( 13 ) + Chr( 10 ) + "Respuesta del servidor:" + " " + oFTP:cReply
ELSE
cStr += Chr( 13 ) + Chr( 10 ) + "Error en la conexión:" + " " + InetErrorDesc( oFTP:SocketCon )
ENDIF
? cStr
lRetorno := .F.
ENDIF
ENDIF
RETURN lRetorno