delphi编程访问SSL加密的FTP站点

添加控件，idFTP2、IdSSLIOHandlerSocketOpenSSL1、dlgOpen1，前两个在indy里面找到。

设置

iohandler = IdSSLIOHandlerSocketOpenSSL1

usetls 为：utUseImplicitTLS;

如图：

相关代码：

01	procedure TForm1.btn1Click(Sender: TObject);

02

begin

03	idFTP2.Host:='192.168.1.5';

04	idFTP2.Port:=990;

05	idFTP2.Username:='admin';

06	idFTP2.Password:='admin';

07

try

08	idFTP2.Connect;

09	idFTP2.Put(Edit1.Text,ExtractFileName(Edit1.Text),True);

10	ShowMessage('ok');

11

finally

12	idFTP2.Disconnect;

13

end;

14

end;

15

16	procedure TForm1.btn2Click(Sender: TObject);

17

begin

18	if dlgOpen1.Execute then

19	Edit1.Text:=dlgOpen1.FileName;

20

end;