Conectarse a un servidor ssl

[gdlrinfo]

Estimados buen día tengo el programa que voy a dejar a continuación que lo utilizo para bajar archivos que se actualizan en un servidor el tema es que lo van a convertir en un servidor Seguro mi pregunta es como utilizar los servidores seguros con INdy hice algunas pruebas con sus componentes y no conecta por el momento dejo lo que uso para bajar de los servidores normalmente muchas gracias como siempre

Var
FTP: TIdFTP;
lista:TStringList;
A,I:integer;
SSl:TIdSSLIOHandlerSocketOpenSSL;
begin
FTP := TIdFTP.Create( nil );
FTP.OnWork := form1.IdFTPWork;
FTP.Username := Usuario;
FTP.Password := Pss;
FTP.Host := ftph;
A:=0;
try
FTP.Connect;
except
raise Exception.Create( 'No se ha podido conectar con el servidor ' + FTP.Host );
end;
//ProgressBar.max := FTP.Size(Lista.Strings[i]) div 1024;
sigefa.ProgressBar.max := 100;
if FTP.Connected then
Begin
// showMessage('EstoyConectado a:'+ftp.Host);
FTP.ChangeDir(dir);
Lista := TStringList.create;
FTP.List(Lista,'*.*',false);
try
for i := 0 to Lista.Count - 1 do
begin
if NOT FileExists('C:\45'+ Lista.Strings[i]) then
Begin
form1.Label3.Caption:= Lista.Strings[i];
form1.Label3.Refresh;
FTP.Get(Lista.Strings[i], 'C:\45' + Lista.Strings[i], true);
A:=a+1;
form1.ProgressBar.Position:=100;
form1.Refresh;
End;
end;
finally
FTP.Disconnect;
FTP.Free;
Lista.Free;
end;
form1.ProgressBar.Position:=0;
form1.Label3.Caption:='....';
form1.Memo1.Lines.Add(FormatDateTime('hh:nn:ss', Now())+': Archivos de '+dir+' Descargados desde '+ftph+' Cantidad Total: '+InttoStr(A));
End
else
BEGIN
showmessage('No estoy conectado a:'+ftp.Host);
END;

[Neftali [Germán.Estévez]]

¿Qué versión de las Indy estás utilizando?

Lo digo por lo que pone aquí (http://www.indyproject.org/kb/index.html?howdoiuseftpwithssl.htm).

Textual:
"In Indy 8.0 and Indy 9.0, you can not do this."
"In Indy 10, both the FTP client and server both already supports SSL."

De todas formas, revisa bien ese documento porque habla de otras opciones, o en todo caso, siempre puedes actualizar a la v10.

[gdlrinfo]

¿Qué versión de las Indy estás utilizando?

Lo digo por lo quepone aquí (http://www.indyproject.org/kb/index.html?howdoiuseftpwithssl.htm).

Textual:
"In Indy 8.0 and Indy 9.0, you can not do this."
"In Indy 10, both the FTP client and server both already supports SSL."

De todas formas, revisa bien ese documento porque habla de otras opciones, o en todo caso, siempre puedes actualizar a la v10.


Buenasssss Gracias por responder y perdón la demora uso la indy 10 pero no se como implementarlo he intentado pero no me funciona.-

Atte.- Saludos