Serveur FTP et Delphi 6

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.

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:

---

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;

---

:salut:

Citation:

---

Envoyé par christophedlr

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

Citation:

---

Envoyé par christophedlr

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 ?

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.

ça je l'ignorais :roll:

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.

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

Citation:

---

Envoyé par christophedlr

Du coup, vais réinventer la roue lol

---

bon courage ;)

Salut.

Sinon, il y a aussi les excellents composants ICS de François Piette, avec une palanquée de démos (j'ai pas le lien sous la main, mais Google est ton ami, ;) )