Estou usando a TIPCLIENTFTP() e está me retornando um erro pra la de esquisito. Só que isso acontece somente quando junto esta rotina com minha aplicação, gerando ela sozinha da tudo certo.
E claro que alguma coisa esta atrapalhando, mas não consegui achar, se alguém puder ajudar agradeço antecipadamente.
Local cProtocol := "ftp://"
Local cUrl
cUrl := cProtocol + Alltrim( cUser )+":"+ Alltrim( cPassWord ) +"@"+ alltrim( cServer)
oUrl := tURL():New( cUrl )
If Empty( oUrl )
return nil
Endif
oClient := TIpClientFtp():new( oUrl, .T. ) && PARAM .T. TO LOG
If Empty( oClient )
return nil
Endif
oClient:nConnTimeout := 20000
oClient:bUsePasv := .T.
/// erro retornado
1081-Opera‡Æo nÆo suportada: TIPCLIENTFTP:new()
[00178] Chamado por: FTPCONNECT
[00143] Chamado por: FTPCONN1
[00126] Chamado por: (b)FTPMAIN
[01618] Chamado por: _DOCONTROLEVENTPROCEDURE
[01450] Chamado por: EVENTS
[01345] Chamado por: _ACTIVATEWINDOW
[00072] Chamado por: FTPMAIN
[06425] Chamado por: (b)CRIARMEN2
[01618] Chamado por: _DOCONTROLEVENTPROCEDURE
[01383] Chamado por: EVENTS
[01345] Chamado por: _ACTIVATEWINDOW
[04674] Chamado por: DOMETHOD
[03790] Chamado por: DEFINEJANELAPRINCIPAL
[02972] Chamado por: MAIN