IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)
Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

Lazarus Pascal Discussion :

Ecrire dans un fichier texte sur un serveur distant


Sujet :

Lazarus Pascal

  1. #1
    Membre à l'essai
    Profil pro
    Inscrit en
    Février 2007
    Messages
    10
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Février 2007
    Messages : 10
    Points : 16
    Points
    16
    Par défaut Ecrire dans un fichier texte sur un serveur distant
    Bonjour,
    j'ai besoin d'ecrire dans un fichier texte type log situé sur un partage d'un serveur distant mais je ne sais pas comment j'ai bien

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    assignFile(F, NomFichier);
       Append(F);
       Writeln(F, Ligneajoute);
       CloseFile(F);
    mais comment definir 'NomFichier' sachant que le chemin complet du fichier est du type \\172.16.254.7\repertoire\mon_fichier.txt

    Merci de votre aide

  2. #2
    Expert confirmé
    Avatar de Ph. B.
    Homme Profil pro
    Freelance
    Inscrit en
    Avril 2002
    Messages
    1 784
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 58
    Localisation : France, Haute Garonne (Midi Pyrénées)

    Informations professionnelles :
    Activité : Freelance
    Secteur : High Tech - Éditeur de logiciels

    Informations forums :
    Inscription : Avril 2002
    Messages : 1 784
    Points : 5 915
    Points
    5 915
    Par défaut
    Bonjour,
    Citation Envoyé par fredcop Voir le message
    j'ai besoin d'ecrire dans un fichier texte type log situé sur un partage d'un serveur distant mais je ne sais pas comment j'ai bien

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    assignFile(F, NomFichier);
       Append(F);
       Writeln(F, Ligneajoute);
       CloseFile(F);
    mais comment definir 'NomFichier' sachant que le chemin complet du fichier est du type \\172.16.254.7\repertoire\mon_fichier.txt
    En affectant la chaine de caractères à la variable, non ?
    Cela donne avec quelques ajouts pour plus de sureté d'exécution :
    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
      NomFichier := '\\172.16.254.7\repertoire\mon_fichier.txt';
      AssignFile(F, NomFichier);
      if FileExists(NomFichier) then
        // Le fichier existe, on l'ouvre en mode ajout
        Append(F)
      else
        // Le fichier n'existe pas, on le crée et on l'ouvre
        Rewrite(F);
      //
      try
        // on ajoute l'information voulue
        Writeln(F, Ligneajoute);
      finally
        // on est sur que le fichier va être refermé
        CloseFile(F);
      end;
    Bien sur, si vous n'avez pas de droits suffisants pour accéder et écrire à cet emplacement, ce sera peine perdue...
    Philippe.

  3. #3
    Membre à l'essai
    Profil pro
    Inscrit en
    Février 2007
    Messages
    10
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Février 2007
    Messages : 10
    Points : 16
    Points
    16
    Par défaut
    Merci beaucoup de votre aide ! en fait j'avais 2 problèmes qui sont résolus

    effectivement il suffit d'indiquer \\172.... (mais je developpais sous linux donc smb:\\172...) grosse erreur de débutant

    merci pour le try ... finally que je n'avais pas mis

    merci encore

  4. #4
    Membre du Club Avatar de netsabes
    Inscrit en
    Mars 2005
    Messages
    82
    Détails du profil
    Informations forums :
    Inscription : Mars 2005
    Messages : 82
    Points : 45
    Points
    45
    Par défaut Sécurité
    Bonjour,

    je me suis posé le même genre de question, mais j'ai un doute sur le niveau de sécurité du serveur de fichiers...

    si on y accède sans mot de passe, ça veut dire que n'importe qui peut y accéder, non ?

    Imaginons que je souhaite lire/écrire un fichier sur mon site perso free, disons à l'adresse (fausse) : "seb.pagesperso.free.fr/scores.txt" et que mon mot de passe est "MotDePasse", comment puis-je faire ?

    Merci.

  5. #5
    Rédacteur/Modérateur
    Avatar de M.Dlb
    Inscrit en
    Avril 2002
    Messages
    2 465
    Détails du profil
    Informations personnelles :
    Âge : 39

    Informations forums :
    Inscription : Avril 2002
    Messages : 2 465
    Points : 4 312
    Points
    4 312
    Par défaut
    Je ne sais pas si ca répond à laquestion précisément, mais il est possible de spécifier un user/mot de passe dans n'importe quelle URL... Charge au programme appelé (ie un serveur HTTP) de décoder l'info de la bonne façon:

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    http://user:mdp@seb.pagesperso.free.fr/scores.txt
    M.Dlb - Modérateur z/OS - Rédacteur et Modérateur Pascal

Discussions similaires

  1. Enregistrer des fichiers texte sur un serveur distant ?
    Par npopravka dans le forum Pentaho
    Réponses: 1
    Dernier message: 14/03/2011, 13h19
  2. [PHP 5.0] [CSV] Ecrire dans un fichier CSV sur un serveur
    Par math_thefire dans le forum Langage
    Réponses: 13
    Dernier message: 17/04/2009, 16h44
  3. lire/écrire sur un fichier texte sur un serveur distant
    Par nabmoah dans le forum Visual C++
    Réponses: 6
    Dernier message: 12/02/2007, 10h27
  4. [VB.NET] Ecrire dans un fichier texte...
    Par robert.michel9 dans le forum VB.NET
    Réponses: 5
    Dernier message: 04/12/2005, 14h35
  5. Ecrire dans un fichier text en MFC
    Par soufienne dans le forum MFC
    Réponses: 6
    Dernier message: 05/10/2005, 16h54

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo