Discussion :

[KarMa_CoMa]

Bon voila je tente de créer un serveur FTP assez complet avec indy 10 ... la je me lance dans SSL et .... boum ca bug alors que j'ai encore rien fait de spécial ... enfin je sais pas très bien quoi connecter mais en gros voila ce que j'ai fait ...

J'ai assigner IdServerIOHandlerSSLOpenSSL à IOHandler de IdFTPServer.
J'ai copier les Dll nécessaires ... ensuite je le lance aucun probleme ...
La je me dans mon code que lorsque j'active SSL la propriété de IdFTPServer USETLS sera à utUseRequireTLS .... et la je relance et boum plantage ....

raise EIdTLSClientCanNotSetWhileActive.Create(RSTLSSLCanNotSetWhileConnected);

Si quelqu'un avait une petite idée pourquoi y aurait une erreur ... et si quelq'un aurait la marche a suivre pcq il la déjà fait ca m'aiderai bcp !!!!!
C très important enfin comme a chaque fois quoi
merciiiiiiii de votre attention

[lil_jam63]

Est ce que par hasard tu ne modifierais pas cette propriété pendant l'écoute du serveur, si c'est le cas, ton erreur vient de là car cette propriété doit être spécifiée avant le démarrage comme le dis le message

RSTLSSLCanNotSetWhileConnected
RSTLSSL Can Not Set While Connected

[KarMa_CoMa]

Okay merci pour l'info ... c vrai javais pas penser ... donc j'ai mis une petite procédure qui dit que lorsqu'on active ssl on ferme le service ... et ca marche jusqu'au moment ou après modif ...

c a d après avoir fermer le service ftp et lui avoir dit je veux TLSExplicit je relance le serveur et la ... pouf plantage il me dit ou est TIdReply ...

alors je lui dit elle est dans Indy10/core machin ... il trouve je relance et pouf j'ai il plante a cet endroit la :

Code :

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

1
2
3
4
5
6
7
8
9
10
 
procedure TIdReply.SetText(const AValue: TIdStrings);
begin
  FText.Assign(AValue);
end;   ---> pointeur d'arret juste ici
 
procedure TIdReply.SetReply(const ACode: Integer; const AText: string);
begin
  SetReply(IntToStr(ACode), AText);
end;

seulement le hic c qu'il n'y a pas de message d'erreur spécifique a part

Violation d'acces a la adresse machin....

je pose donc ma question ... d'ou viens donc ce mystérieux probleme ??

raaaah c pas évident SSL

[KarMa_CoMa]

Bon ça marche toujours pas ... le problème c'est que je ne sais pas par ou commencer ... bon j'ai mis ce composant pour le serveur FTP :

Code :

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

IdServerIOHandlerSSLOpenSSL

et ensuite ceci pour la connexion à SSL

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
 
procedure TMainForm.StartSSL;
var mess : integer;
begin
 if IdFTPServer.Active then
 begin
  mess := MessageDlg('Attention !! SSL ne peut pas démarrer si le service est actif, Voullez vous continuer ? ',
  mtConfirmation,[mbYes,mbNo],0);
  if mess = mrYes then
    begin
      StopService;
      IdFTPServer.UseTLS := utUseExplicitTLS;
    end else FTLS := False;
 end;
end;

bon c'est bien joli tout ça mais je pense qu'il manque pas mal de truc pour que ça fonctionne car quand je redémarre le service FTP ... boum ca plante ...

Ma question est simple avez vous une idée de ce que je dois faire en plus ...Certificat, paramètre etc ...
meme si c'est pour HTTP je prend pcq ca peut tjs etre utile tant que je j'ai une base pour commencer à chercher ...

D'avance merci !! pcq sniff j'en peu plus de ce bazar !!

[Raylemon]

je sais pas si ça peut t'aider...
jette un oeil là-dessus, ça explique un peu le FTP sécurisé
http://www.indyproject.org/KB/index.html

[KarMa_CoMa]

Yop Mister B.I.G 8)

j'ai déjà été voir la ... mais bon ça aide pas des masses ils devraient faire un peu plus de doc je trouve ... pcq ca fait un peu " je crée des composants et démerde toi avec lol " mais bon jme démerde ...

La jsuis oqp sur le client ... c chaud aussi ... jvais reprendre celui d'indy 10 le nouveau et le modifier pour faire une procédure de synchro sur demande ... et puis voir pour ssl autrement je fais rien de plus pcq j'aurais pas le temps ...déjà que ce wk je dois pondre un brouillon du rapport de stage

enfin on fait de son mieux ^^

thx man ! a tout allure