Discussion :

[mario9]

Bonjour

J'essais de créer un client pour un serveur FTP je suis a mes débuts en ftp (12 ans en retard) j'ai essayé plusieurs exemple mais il a toujours un erreur dépendant de la version delphi utilisé j'ai décidé de me concentrer sur Xe7. Voici mon code

Code :

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

1
2
3
4
5
 
idftp1.Host:='192.168.x.xxx';
idftp1.Port:=xxxx;
IdFTP1.Passive := True;
idftp1.Connect;

Le serveur est opérationnel je me connecte avec Telnet et pas de problème mais la j'ai l'erreur

code de reponse n'est pas valide

merci de votre aide

Mon but est de me connecter au serveur et transfert un fichier ayant toujours le même nom et le même endroit.

Mario

[mario9]

Bonjour

J'aimerais savoir si je peux intercepter le message d'erreur et faire comme cette erreur est normal et rester connecter au serveur ftp.
Parce que le message retournée par le serveur est valide. Mais IdFtp vois cela comme une mauvaise réponse.

Merci

Mario

[mario9]

Bonjour

J'ai essayé ceci

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
begin
idftp1.Host:='192.168.1.134';
idftp1.Port:=2131;
//IdFTP1.Passive := True;
try
idftp1.Connect;// se connecter et se deconnecte avant except
except
    on E : Exception do
    ShowMessage('Message : ' + E.Message);
 
end;
end;

Ca me donne le message d'erreur mais IdFtp me deconnecte avant.

Si ca peut vous aidé

Merci

Mario

[mario9]

Bonjour

J'ai trouvé mon erreur je prenais le mauvais composant pas brillant mais ca ma fait faire beaucoup de lecture pour améliorer mes connaissances.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
procedure TForm1.Button2Click(Sender: TObject);
begin
 
IdTCPClient1.Host:='192.168.1.134';
IdTCPClient1.Port:=2131;
//IdFTP1.Passive := True;
try
IdTCPClient1.Connect;
except
    on E : Exception do
    ShowMessage('Message : ' + E.Message);
 
end;
end;

Si ca peut aidé.

Merci

Mario