envio de arquivo via ftp !!!

por **carlos moc** » 09 Fev 2019 09:02

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

por **Eric.Developer** » 09 Fev 2019 14:25

Olá,
a princípio você esqueceu de informar a pasta em todos os lugares que requer o arquivo, um erro comum quem usa Directory.
Lembre-se, o array não contém o path.

carlos moc escreveu: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

por **carlos moc** » 10 Fev 2019 09:39

Obrigado pela dica, certissimo era o danado do path,rsrsrsr

por **rubens** » 20 Fev 2019 13:55

Boa tarde...
Tem como postar o código corrigido ?

Obrigado
Rubens