Xailer forum

Hola,
Este ejemplo me da GPF (ejemplo e imagen)
Function Test()
LOCAL oFtp
LOCAL lExito := .T.
LOCAL a
WITH OBJECT oFtp := tFtp():New( Self )
:cUser := "test"
:cPassword := "test"
:nService := INTERNET_SERVICE_FTP
:nTransferType := INTERNET_FLAG_RELOAD
:nTimeOut := 30000
:lPassive := .T.
:Create()
IF :Open()
IF !:connect( "ftp.miftp.es",IIF(:lPassive,INTERNET_FLAG_PASSIVE ,
NIL))
lExito := .F.
MsgInfo("Error : "+:GetErrorDescription())
ENDIF
ELSE
lExito := .F.
MsgInfo("Error : "+:GetErrorDescription())
ENDIF
END
// Establecemos la ruta en el ftp
IF lExito
WITH OBJECT oFtp
IF !:SetCurrentDirectory( "/f90" )
IF !:CreateDirectory( "/f90" )
:Close()
MsgInfo("Error")
lExito := .F.
ELSE
IF !:SetCurrentDirectory( "/f90" )
MsgInfo("Error : "+:GetErrorDescription())
lExito := .F.
ENDIF
ENDIF
ENDIF
END
ENDIF
IF !oFtp:CheckConnection( "ftp://ftp.miftp.es" )
MsgInfo("Error Check Connection : "+oFtp:GetErrorDescription() )
ENDIF
a := oFtp:Directory("ven01003.zip") //<<<----- GPF Aquí­
RETURN NIL
El GPF viene cuando ese fichero Existe en el FTP. Sino existe, no pasa
nada.
Nota: este ejemplo lo he probado con Xailer 1.9.8 (sí­, uno-nueve-ocho) sin
ningún problema.
Nota: el sitio ftp no existe. Debéis poner vuestro sitio ftp.
Saludos,
José Luis Capel
--

Attached files

José Luis,
enví­ame un proyecto en un ZIP a mi correo para probarlo.
Saludos,
José Lalí­n

José,
Gracias!! Corregido!!
Saludos,
José Luis Capel
"José Lalí­n" escribió en el mensaje de
noticias:5102c0a5$[email=1@svctag-j7w3v3j....]1@svctag-j7w3v3j....[/email]
José Luis,
enví­ame un proyecto en un ZIP a mi correo para probarlo.
Saludos,
José Lalí­n