[Indy][Débutant] Comment écrire dans un fichier texte sur Internet?

**Matt2094** · 09/05/2006, 16h37

Bonjour à tous,

Je cherche un moyen d'écrire sur un fichier texte présent sur un serveur Internet avec le composant Indy, en donnant l'adresse du fichier, mon pseudo, et mon mot de passe. Je sais que ça doit éxister, mais puisque je n'ai pas d'aide Indy dans Delphi6, je vous demande...

Merci d'avance.

**cfalcot** · 09/05/2006, 17h00

Salut,

vla ce que j'utilise:

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
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
 
procedure TForm2.ConnectionFTP(Sender: TObject);
//Procedure de connection du serveur FTP
begin
  if idFTP1.Connected then IdFTP1.Disconnect;
  try
    IdFTP1.Host:=Form1.IpServeur;
    IdFTP1.Port:=21;
    IdFTP1.Username:=Form1.IdClient;
    IdFTP1.Password:=Form1.PwClient;
    IdFTP1.Connect;
  finally ;
  end;
  Application.ProcessMessages;
end;
 
Procedure TForm2.RapatrierFichier(NomFichier: string; Sender: TObject);
var
  FileSize: integer;
begin
  Memo1.Lines.Add('<<<<<<<<<<>>>>>>>>>>');
  Memo1.lines.Add('Tentative de telechargement du fichier: '+NomFichier);
  try
    IdFTP1.TransferType:=ftBinary;
    FileSize:=IdFTP1.Size(NomFichier);
    try
//Pour poster un mail (non tester)
//      IdFTP1.Put(fichierSource, fichierDest: string, Append: Boolean);
//Pour demander (actifs...)
      IdFTP1.Get(NomFichier, ExpandFileName(Form1.RepertoireData+'\'+NomFichier), true, false);
    Except
      Memo1.lines.Add('Echec lors du transfert du fichier!');
    end;
  finally ;
  end;
end;
 
function TForm2.SynchronisationFichiers(Sender: TObject): boolean;
var
  i: integer;
begin
  Result:=false;
  try
    ConnectionFTP(Sender);
    //Recuperer le fichier du jour
    RapatrierFichier(FormatDateTime('dd_mm_yyyy',now)+'.mto', Sender);
  finally
    //Deconnection
    IdFTP1.Disconnect;
    //On est a la fin de la procedure de toute facons...
    Result:=true;
  end;
end;

Attention c'est du travail d'amateur... Y a surment du taff la dessus (Tout remarque et bienvenu)

**Matt2094** · 09/05/2006, 19h32

Ca fouare dès la connection ... c'est peut-être que c'est pas le composant adapté pour le serveur que j'utilise (Multimania.fr, avec FrontPage') ...

**Reisubar** · 09/05/2006, 22h59

Si tu dois modifier un fichier, la façon la plus simple est de passer par FTP et donc d'utiliser un TIdFTP.

Assures toi que les paramètres de connexion sont OK. Le champ "Host" doit contenir l'adresse du serveur FTP de ton hébergeur, et les champs "Username" et "Password" le nom d'utilisateur et le mot de passe requis pour accèder à ton compte.

**Matt2094** · 10/05/2006, 08h39

J'avais mis l'adresse du fichier que je voulais modifier à la place de l'adresse du serveur ...

maintenant, ça marche à la connection.

Je teste le reste ...

**Matt2094** · 10/05/2006, 09h01

J'ai tout recopier, mais il y a une erreur : "ftBinary" est inconnu ... dans quelle unité elle est ?

**cfalcot** · 10/05/2006, 09h10

v'la le uses qui va avec (je ne sait pas lequel repond a ton problème...):

Code :

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

1
2
3
4
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, IdBaseComponent, IdComponent, IdTCPConnection, IdTCPClient,
  IdExplicitTLSClientServerBase, IdFTP, IdFTPCommon;

**Matt2094** · 10/05/2006, 09h21

Bon, c'était "IdFTPCommon" ...
Je vais maintenant faire une tentative de modification de fichier sur mon site ...

**Matt2094** · 10/05/2006, 14h07

Ca ne marche pas : le prog se bloque pendant le rapatriement du fichier ...
Une question : la variable "NomFichier", c'est uniquement le nom et l'éxtension, pas l'adresse complète du fichier ? (j'ai penser à la 1ere solution)

**cfalcot** · 10/05/2006, 15h55

NomFichier c'est juste Le nom+extention du fichier (donc sans le chemin d'acces).

Tu doit pouvoir verifier sur ton serveur que tu y est bien connecter et que tu demande bien le fichier en question...

**Matt2094** · 10/05/2006, 16h00

Ok, c'est bien ce que je pensais pour le nom du fichier ...
Le fichier éxiste quand j'y accède par Internet Explorer ... ça serait pas parce que j'ai utiliser FrontPage pour le publier, et non le FTP ?

**Reisubar** · 10/05/2006, 17h42

Ca ne marche pas : le prog se bloque pendant le rapatriement du fichier ..

Le programme, si tu n'utilises pas le threads, doit se bloquer le temps de l'envoi du fichier. C'est normal, Indy est un jeu de socket bloquants.

Pour ta remarque, je ne sais pas comment fait Front Page, mais à mon avis il utilise FTP pour envoyer les fichiers. Pour avoir eu des sites sur Multimania, je peux te garantir que quand t'ajoutes des fichiers correctement avec un client FTP bien programmé, ca marche :-)

**Matt2094** · 10/05/2006, 18h28

Envoyé par Reisubar

Le programme, si tu n'utilises pas le threads, doit se bloquer le temps de l'envoi du fichier. C'est normal, Indy est un jeu de socket bloquants.

Le fichier fait même pas 1 Ko ! ...

Bon, on écarte l'hypothèse que ça soit FrontPage qui fasse tout foirré .

**Reisubar** · 10/05/2006, 19h08

Tu as firewall ? Il est ouvert ?
Teste avec les deux valeurs pour la propriété PassiveMode...

**cfalcot** · 11/05/2006, 10h41

Pour savoir ce qui se passe dans ton client FTP, tu peut utiliser la procedure suivante:

Code :

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

1
2
3
4
5
6
7
procedure TForm2.IdFTP1Status(ASender: TObject; const AStatus: TIdStatus;
  const AStatusText: string);
//Affiche le status pour debuggage
begin
  Memo1.Lines.Add('<<<<<<<<<<>>>>>>>>>>');
  Memo1.lines.Add(AStatusText);
end;

(cherche la dans les évenements de l'inspecteur d'objet...)

**Matt2094** · 11/05/2006, 17h53

Pour une raison inconnue, ça gèle maintenant dès la connection !

Envoyé par Reisubar

Tu as firewall ? Il est ouvert ?

Oui. Il m'a demander si je voulais bloquer l'appli. la 1ere fois que je l'ai lancé, je lui ai dit de la laisser tranquile ...

Envoyé par Reisubar

Teste avec les deux valeurs pour la propriété PassiveMode...

Ca n'a rien changé.

Envoyé par cfalcot

Pour savoir ce qui se passe dans ton client FTP, tu peut utiliser la procedure suivante:

Code :

procedure TForm2.IdFTP1Status(ASender: TObject; const AStatus: TIdStatus; const AStatusText: string);//Affiche le status pour debuggagebegin Memo1.Lines.Add('<<<<<<<<<<>>>>>>>>>>'); Memo1.lines.Add(AStatusText);end;

(cherche la dans les évenements de l'inspecteur d'objet...)

Merci, je vais ajouter cette fonction.

Mais je me demandais ; dans cette procédure, FileSize est défini, mais jamais utilisé.

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
 
Procedure TForm2.RapatrierFichier(NomFichier: string; Sender: TObject);
var
  FileSize: integer;
begin
  Memo1.Lines.Add('<<<<<<<<<<>>>>>>>>>>');
  Memo1.lines.Add('Tentative de telechargement du fichier: '+NomFichier);
  try
    IdFTP1.TransferType:=ftBinary;
    FileSize:=IdFTP1.Size(NomFichier);
    try
//Pour poster un mail (non tester)
//      IdFTP1.Put(fichierSource, fichierDest: string, Append: Boolean);
//Pour demander (actifs...)
      IdFTP1.Get(NomFichier, ExpandFileName(Form1.RepertoireData+'\'+NomFichier), true, false);
    Except
      Memo1.lines.Add('Echec lors du transfert du fichier!');
    end;
  finally ;
  end;
end;