FTP SSL
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
Posts
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.
18/02/2008
Rafaelunp
Indy 10 + delphi 7
18/02/2008
Massuda
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?
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.
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 ?
18/03/2009
Rodc
23/04/2019
Datamais Ltda
Segue parte do código que estou utilizando:
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?
Clique aqui para fazer login e interagir na Comunidade :)
