Discussion :

[Isa31]

Bonjour à tous,

Je cherche mais je n'arrives pas à trouver comment on fait pour récupérer la date de création d'un fichier sur un serveur FTP .

J'utilise Delphi 7 et le composant TIdFTP pour me connecter a mon serveur.

Si vous pouviez m'aider, je suis perdue!!!


Merci d'avance.

Isa

[membrax]

hello, je vais essayer de t'aider un peu :
crée un projet, avec un bouton, un mémo et TIdFTP

voici le code lorsqu'on clique sur le bouton :

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.Button1Click(Sender: TObject);
var x:integer;
    s:string;
begin
IdFTP1.Username := 'user';
IdFTP1.Password := 'pass';
IdFTP1.Connect('serveur',21);
 
{liste le répertoire courant}
IdFTP1.List;
 
{Met les résultats dans le mémo}
Memo1.Lines := IdFTP1.ListResult;
 
{recherche du fichier voulu}
For x:=0 to Memo1.Lines.Count do
 if pos('Post2.rar',Memo1.Lines[x])<>0
    then s:=Memo1.Lines[x];
 
{la ligne avec les caractéristiques du fichier sont dans s}
 
IdFTP1.Disconnect;
end;

Voilà, selon ton serveur tu devras parser la string s pour extraire la date, et tu devrais t'en sortir comme ça.

Je ne sais pas s'il existe une méthode plus élégante pour faire ça mais si oui, ça m'intéresse aussi !

[Isa31]

Merci beaucoup.
En fait ma question était plutôt de savoir s'il n'y avait pas une fonction qui le faisait tout seul.
On est obligé de chercher la date sur toute la ligne?

Merci.

[membrax]

Pour ma part je ne connais pas d'autre fonction.
Peut être en passant par http.get mais je maitrise pas très bien Indy, c'est assez obscur !

[Isa31]

OK.



J'attends un peu avant de mettre résolu.... Si jamais quelqu'un connait une autre méthode.....