Discussion :

[christophedlr]

Bonsoir,

Je souhaite faire un petit serveur FTP en Delphi.
Seul soucis, j'ai le Delphi 6 et donc pas les composants Indy requis pour faire un serveur FTP.
Ma question est la suivante : est-il possible avec un TIdTCPServer de réaliser cela ?

Car j'ai essayé, j'arrive dans le OnExecute à envoyer une information au client, sauf que d'une part celui-ci ne peut envoyer au serveur, d'autres part le OnExecute se lançant en boucle, ben la même chose apparait en boucle chez le client.


Merci d'avance pour votre aide.

[christophedlr]

Je pense que mon problème est résolu, j'ai réussi à le faire.
Actuellement, je peux indiquer au client que la connexion à réussi, lui indiquer que j'ai bien reçus le nom de l'utilisateur et donc lui demander le mot de passe.

Pour le moment rien d'autres n'est géré, même pas si l'utilisateur est bon ou non, par contre je vous poste la fonction en question voir si y a pas une meilleurs méthode :

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
procedure TForm1.IdTCPServer1Execute(AThread: TIdPeerThread);
var
Command: String;
begin
if (Connected) then
  begin
  Connected := False;
  AThread.Connection.Write('220 Connection successful'+chr(13)+chr(10));
  end
 
else
  begin
  Command := AThread.Connection.ReadLnWait;
  if ( (midStr(Command, 0, 4) = 'USER') ) then
    begin
    AThread.Connection.Write('331 Password required for '+
      MidStr(Command, 5, Length(Command) )+chr(13)+chr(10) );
    end;
 
  RichEdit1.Lines.Add(Command);
  Application.ProcessMessages;
  end;
end;

[evarisnea]

Je souhaite faire un petit serveur FTP en Delphi.
Seul soucis, j'ai le Delphi 6 et donc pas les composants Indy requis pour faire un serveur FTP.

oui delphi 6 n'a pas les composants indy par défaut, mais tu es libre de les installer. voilà le lien pour les télécharger

Ma question est la suivante : est-il possible avec un TIdTCPServer de réaliser cela ?

étant donné que le protocole FTP est un protocole qui s'appuie sur le protocole TCP, oui tu peux tout à fait utiliser le composant TIdTCPServer pour réaliser cela. je crois même que c'est ça les dessous de l'implémentation du TIdFTPServer. sauf que là tu va devoir te taper le code pour l'implémentation du protocole FTP

une chose m'intrigue tout de même, tu dis utiliser le composant TIdTCPServer, qui fait partie de la suite de composants Indy, ce qui veux dire que tu as ceux ci installés dans ta version de delphi. pourquoi dans ce cas ne pas donc utiliser directement le composant TIdFTPServer ?

[christophedlr]

TIdFTPServer est inclus dans Indy que à partir de la version 9, présente en standard dans Delphi 7.

Dans Delphi, c'est la suite Indy 8 qui est présente.

[evarisnea]

ça je l'ignorais

néanmoins, à moins de vouloir tout recoder (c'est un joli exercice tout de même), tu peux télécharger une version plus récente avec le lien que j'ai donné plus haut.

[christophedlr]

Merci pour le lien, mais impossible de l'installer.
D'abord il râle à cause du même non de paquet installé, j'ai donc retiré les composants indy actuellement présent.

Puis j'ai tenté l'install de Indy 9, résultat il me renvoi une erreur, il ne peut pas l'installer.

Du coup, vais réinventer la roue lol