Site Map Contact Us Home
E-mail Newsletter
Subscribe to get informed about
Clever Components news.

Your Name:
Your Email:
 
SUBSCRIBE
 
Previous Newsletters
 




Products Articles Downloads Order Support
Customer Portal      

FTP + SSL

SSL / TLS support | Using certificates | FTP + SSL | FTP + SSH

FTP Client

FTP Client is a Clever Internet Suite component that implements FTP and FTPS (FTP + SSL) protocols. You can explicitly switch between these two protocols by using the UseSSL component property. All other properties, methods and component events are identical for both FTP and FTPS protocols.

As an example the FTP Client component can be used with the FTP server provided by http://www.weonlydo.com/. You can transfer data between FTP Client and the specified server using an SSL encrypted channel. Most of the SSL enabled servers require the specified client certificate installed on the client PC. So in order to open an SSL connection you need to install the client certificate provided along with the FTP server. The Clever Internet Suite FTP client will locate and establish a secured connection automatically without requiring any actions from the user.

The sample below demonstrates how to use the FTP Client component in the SSL mode:

// [Delphi]
procedure TForm1.Button1Click(Sender: TObject);
var
   Destination: TStream;
begin
   clFTP1.Server := 'ftp.myserver.com';
   clFTP1.UserName := 'john';
   clFTP1.Password := 'psw';
   clFTP1.UseTLS := ctAutomatic;
   clFTP1.Open();

   Destination := TFileStream.Create('MyDocument.txt', fmCreate);
   try
      clFTP1.GetFile('MyDocument.txt', Destination);
   finally
      Destination.Free();
   end;

   clFTP1.Close();
end;

FTP Server

In FTP Server, you have the following two SSL / TLS options: Implicit SSL negotiation and Explicit SSL negotiation.

The sample below demonstrates how to use the TclFtpServer component in the SSL mode:

// [Delphi]
procedure TMainForm.btnStartClick(Sender: TObject);
begin
   clFtpServer1.UseTLS := stImplicit;
   clFtpServer1.Port := StrToInt(edtPort.Text);
   clFtpServer1.RootDir := edtRootDir.Text;
   clFtpServer1.Start();
end;

    Copyright © 2000-2024