Fórum FTP SSL #353987
18/02/2008
0
Fiz isso sim. Mas simplesmente ele nao conecta.
To usando os componentes: IdFTP e IdSSLIOHandlerSocketOpenSSL. Apos configurar host, user e pass no compoente idFTP e linka-lo ao IdSSLIOHandlerSocketOpenSSL
criei quatro botoes para tentar conectar de formas diferentes, sendo:
Você pode me ajudar massuda?

Rafaelunp
Curtir tópico
+ 0Posts
18/02/2008
Massuda
PS: criei um novo tópico para seu post já que ele não tem relação com o tópico onde você postou sua dúvida.
Gostei + 0
18/02/2008
Rafaelunp
Indy 10 + delphi 7
Gostei + 0
18/02/2008
Massuda
Gostei + 0
18/02/2008
Rafaelunp
estou usando esta versão: indy10.1.5_d7
E coloquei duas dlls na pasta do executável (libeay32.dll e ssleay32.dll).
Apenas coloquei. precisa de mais alguma coisa?
Gostei + 0
18/02/2008
Massuda
As DLLs do Indy10 devem ser as do projeto OpenSSL
:arrow: http://www.openssl.org/related/binaries.html
Importante: eu nunca precisei usar FTPS.
Gostei + 0
18/02/2008
Rafaelunp
massuda,
desculpe a ignorância, mas nao estou conseguindo localizar estas dlls no link que voce me indicou. Até baixei um instalador do openSSL e instalei aqui, mas ainda assim nao consigo conectar.
O que eu fiz: instalei o Win32OpenSSL-0_9_8g.exe, exclui as dlls antigas que estavam na raiz do executavel e tentei conectar... demora, trava e nao conecta...
Voce pode me ajudar ?
Gostei + 0
18/03/2009
Rodc
Gostei + 0
23/04/2019
Datamais Ltda
Segue parte do código que estou utilizando:
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 | with IdSSLIOHandlerSocketOpenSSL1 do begin host := HOST; port := 21 ; ReadTimeout := 60000 ; SSLOptions . Method := sslvSSLv3; //Tentei todos os tipos disponivies //Erros que ocorrem: SSL negotiation FAILED, //OU quando utilizao sslvSSLv2 //Connection reset by peer SSLOptions . Mode := sslmBoth; //Tentei todos os tipos disponiveis end ; idFTP1 . Host := HOST; idFTP1 . UserName := USERNAME; idFTP1 . Password := PASSWORD; IdFTP1 . Passive := True ; IdFTP1 . Port := 21 ; IdFTP1 . IOHandler := IdSSLIOHandlerSocketOpenSSL1; IdFTP1 . UseTLS := utUseExplicitTLS; IdFTP1 . DataPortProtection := TIdFTPDataPortSecurity . ftpdpsPrivate; try idFTP1 . Connect; ShowMessage( 'OK' ); except on E : Exception do begin ShowMessage( 'Error: ' +E . Message); end ; end ; |
Porém até o momento não obtive sucesso está ocorrendo o seguinte erro:
SSL negotiation FAILED,
OU quando utilizo sslvSSLv2
ocorre o erro: Connection reset by peer
Como posso resolver esse problema?
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)