Erro na TIPCLIENTFTP()

[runner]

Ola, amigos.


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.

Código: Selecionar todos

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