Conxão segura em FTP

[celsoInforma]

Bom dia, utilizo FTP do xHarbour para enviar e receber dados, funciona muito bem... até agora pois o servidor exige comunicação segura (AUTH SSL), Como fazer isso pelo comando no comando que utilizo TipClientFtp():New( oUrl, .F. ). O pior que fiquei sabendo quando aconteceu erro em transferência e o cliente me ligou.
Att
Celso

[Kapiaba]

veja se ajuda:

http://www.4shared.com/rar/j7hmst-Jba/meuftp.html

Precisa ter uma conta no www.4shared.com

Abs.

[sygecom]

Bom dia, utilizo FTP do xHarbour para enviar e receber dados, funciona muito bem... até agora pois o servidor exige comunicação segura (AUTH SSL), Como fazer isso pelo comando no comando que utilizo TipClientFtp():New( oUrl, .F. ). O pior que fiquei sabendo quando aconteceu erro em transferência e o cliente me ligou.
Att
Celso

Celso,
É simples de mais. No lugar do host que usa FTP, vai passar a usar FTPS e linka no seu projeto e TIPSSL.LIB que vai tudo certo. Vai precisar junto do seu .EXE duas DLL( ssleay32.dll e libeay32.dll )

[celsoInforma]

Leonardo, grato pela sua atenção.
Essa LIB e DLLS servem para harbour e xhabour? Estou procurando a TIPLSSL.LIB e até agora não consegui encontrar, tem algum lugar que consigar fazer o download?

Att

Celso

[Jairo Maia]

Olá Celso,

Editado:
Essa lib funciona em xHarbour. Não sei se funciona no Harbour:

[celsoInforma]

Caro Jairo,

Utilizo o HbMake v1.20 e inclui a lib externa tipssl.lib e continua não acessando, segue abaixo os comandos que utilizo:

cUrl := "ftp://" + eFTPUSER + ":" + eFTPPASS + "@" + cFTPSERVER
// aqui se eu colocar cftpserver = ftps.winserver.com => apresenta erro timerout

cUrl := "ftp://" + eFTPUSER + ":" + eFTPPASS + "@" + cFTPSERVER
// aqui se eu "ftps:// ... -> apresenta esse erro de execução
Subsystem Call ....: BASE
System Code .......: 1081
Default Status ....: .F.
Description .......: Operation not supported
Operation .........: TIPCLIENTFTP:new()
Arguments .........: [ 1] = Type: O Val: { TIPCLIENTFTP Object } [ 2] = Type: C Val: ftps
Involved File .....:
Dos Error Code ....: 0

oUrl := tUrl():New( cUrl )
oFTP := TipClientFtp():New( oUrl, .F. ) // .F. NÃO cria logs
oFTP:nConnTimeout := 20000
oFTP:bUsePasv := .T.
oFTP:nDefaultPort := eFTPPORTA
oFTP:oUrl:cUserID := eFTPUSER

oFTP:oUrl:cServer := cFTPSERVER
oFTP:oUrl:cPassword := eFTPPASS

If oFTP:Open( cUrl )

O que estou fazendo de errado?

Att

Celso

[Jairo Maia]

Olá Celso,

Não vou poder lhe ajudar. Apenas postei a lib, tenho porque tenho um xHarbour instalado disponibilizado pelo Leonardo na seção downloads. Uso FTP com meu provedor em Harbour, mas ainda não recebi essa mensagem de mudança. A rigor, estou atento a esse tópico porque se meu provedor também fizer essa alteração terei que resolver, uma vez que recebo os dados dos clientes via FTP para montar os relatórios e enviar a seus respectivos contadores. Hoje foi o caso, mas ainda está tudo funcionando.

Espero que outro colega possa ajudar nessa questão.

[celsoInforma]

Grato Jairo, e no grupo será que alguém pode me ajudar?

Att

Celso

[sygecom]

Utilizo o HbMake v1.20 e inclui a lib externa tipssl.lib e continua não acessando, segue abaixo os comandos que utilizo:
cUrl := "ftp://" + eFTPUSER + ":" + eFTPPASS + "@" + cFTPSERVER

Celso,
Onde está sua linha acima mude para:
cUrl := "ftps://" + eFTPUSER + ":" + eFTPPASS + "@" + cFTPSERVER

Qual versão do xHarbour você usa ? e qual compilar C ?

[celsoInforma]

Caro Leonardo,

Estou utilizando em xHarbour (modo console) build 1.2.1 e Borland c++ 5.5.1 e Harbour MiniGUI Extended Edition 16.04.

Fiz teste com FTPs mas deu erro de execução, mas vou tentar novamente com mais calma (cliente pressionando...hehe)

Grato mesmo pela sua ajuda, vou testar e retorno

Att

Celso

[celsoInforma]

Caro Leonardo,
Executei com o XHarbour console com a lib tipssl e ocorreu o seguinte erro:

Erro BASE/1081 Operation not supported:
TIPCLIENTFTP:new() Arguments: ( [ 1] = Type: 0 Val:
{ TIPCLIENTFTP Object } [ 2] = Type: C Val: ftps)