Discussion :

[oneDev]

Bonjour,

J'ai un FTPS qui fonctionne correctement en locale. J'arrive bien à m'y connecter avec WinSCP.
Il s'agit d'un protocole FTP avec i, chiffrement "SSL/TLS implicite".

Je voudrais maintenant m'y connecter avec Delphi 7 (Indy 10).

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
(*
  Composants
      IdFTP1: TIdFTP;
      IdSSLIOHandlerSocketOpenSSL1: TIdSSLIOHandlerSocketOpenSSL;
*)
procedure TForm1.ConfigFtp;
// appelé depuis le FormCreate
begin
  IdSSLIOHandlerSocketOpenSSL1.SSLOptions.Method := sslvSSLv23;
  IdSSLIOHandlerSocketOpenSSL1.SSLOptions.Mode := sslmClient;
  IdSSLIOHandlerSocketOpenSSL1.SSLOptions.VerifyMode := [sslvrfPeer];
  IdSSLIOHandlerSocketOpenSSL1.PassThrough := False;
 
  IdFTP1.AutoLogin := False;
  IdFTP1.Passive := True;
  IdFTP1.IOHandler := IdSSLIOHandlerSocketOpenSSL1;
  IdFTP1.UseTLS := utUseExplicitTLS;
  IdFTP1.DataPortProtection := ftpdpsPrivate;
 
  IdFTP1.Host := FHost;  // 192.168.1.xxx
  IdFTP1.Port := FPort;  // 990
  IdFTP1.Username := FUserName;
  IdFTP1.Password := FPassword;
  IdFTP1.ConnectTimeout := 5;
 
//  IdSSLIOHandlerSocketOpenSSL1.Destination := IdFTP1.Host;
//  IdSSLIOHandlerSocketOpenSSL1.Host := IdFTP1.Host;
//  IdSSLIOHandlerSocketOpenSSL1.Port := IdFTP1.Port;
end;
 
procedure TForm1.Button1Click(Sender: TObject);
begin
  Label1.Caption := 'Connexion...';
 
  try
    try
      IdFTP1.Connect;
      Label1.Caption := 'ok';
 
      // traitement à venir
    except
      on e: Exception do
        Label1.Caption := Format('Error : %s', [e.Message]);
    end;
  finally
    IdFTP1.Disconnect;
  end;
end;

J'obtiens le message "Error : Connect time out"

Savez-vous ce qui n'est pas correcte dans mon code ?

[pprem]

Le composant TIDFTP gère le FTPS (qui n'est pas du FTP mais du SSH) ?

[sevyc64]

FTPS est le protocole FTP avec une partie de connexion chiffrée avec le protocole SSL/TLS. Le début de la connexion FTP se fait en clair, le temps d'établir le chiffrement.
C'est l'équivalent du HTTPS coté web.

A ne pas confondre avec SFTP, qui, lui, est le protocole FTP classique mais à l'intérieur d'une connexion chiffrée avec le protocole SSH. L’établissement de la connexion chiffrée se fait d'abords, avant d’établir la connexion FTP à l'intérieur de cette connexion chiffrée.

Perso, j'ai jamais mis en place de FTPS avec D7, le cas que j'avais fiat, il y a quelques années c'était du SFTP, en pilotant justement winSCP via sa ligne de commande.

[pprem]

A ne pas confondre avec SFTP

oups, oui, effectivement, me suis laisser piéger par ma dyslexie. merci pour la correction

[sevyc64]

oneDev> j'avais zappé un truc dans ton code.

Dans un tout autre langage, avec un tout autre composant, j'ai eu un soucis aussi avec TLS sur du FTPS. Si j'utilisais le FTPS sur le port 21, alors il fallait mettre l'option TLSExplicit à Vrai, mais par contre, si la connexion se faisait sur le port 990, il ne fallait surtout mettre cette option à Vrai, ça s'appelle, à priori du TLS implicite.
Moi, le message d'erreur était un refus systématique du login/mot de passe alors qu'ils étaient bons.

C'est peut-être une piste pour ton problème car apparement tu semble utiliser le port 990, mais visiblement tu positionne l'option UseTLS à explicite en même temps.

[oneDev]

oneDev> j'avais zappé un truc dans ton code.

Dans un tout autre langage, avec un tout autre composant, j'ai eu un soucis aussi avec TLS sur du FTPS. Si j'utilisais le FTPS sur le port 21, alors il fallait mettre l'option TLSExplicit à Vrai, mais par contre, si la connexion se faisait sur le port 990, il ne fallait surtout mettre cette option à Vrai, ça s'appelle, à priori du TLS implicite.
Moi, le message d'erreur était un refus systématique du login/mot de passe alors qu'ils étaient bons.

C'est peut-être une piste pour ton problème car apparement tu semble utiliser le port 990, mais visiblement tu positionne l'option UseTLS à explicite en même temps.

Effectivement, j'avais sélectionné la mauvaise option.
J'ai modifié mon code, voici ce qui fonctionne.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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
procedure TForm1.ConfigFtp;
begin
  IdFTP1.IOHandler := IdSSLIOHandlerSocketOpenSSL1;
  IdFTP1.UseTLS := utUseImplicitTLS;
 
  IdFTP1.Host := FHost;  // 192.168.1.xx
  IdFTP1.Port := FPort;  // 990
  IdFTP1.Username := FUserName;
  IdFTP1.Password := FPassword;
  IdFTP1.ConnectTimeout := 10;
end;
 
procedure TForm1.Button1Click(Sender: TObject);
begin
  Label1.Caption := 'Connexion...';
 
  if (IdFTP1.Connected) then
    IdFTP1.Disconnect;
 
  try
    try
      IdFTP1.Connect;
      Label1.Caption := 'ok';
    except
      on e: Exception do
        Label1.Caption := Format('Error : %s', [e.Message]);
    end;
  finally
    IdFTP1.Disconnect;
  end;
end;

Merci de vos réponses.

Questions subsidiaire, savez-vous si il est possible de faire du sftp avec delphi7 sans composants payants ?
J'ai commencé à regardé, mais je n'ai rien trouvé pour le moment.