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

 Delphi Discussion :

Copyfile ne marche plus sur un nouvel ordinateur


Sujet :

Delphi

  1. #1
    Membre du Club

    Inscrit en
    Novembre 2008
    Messages
    69
    Détails du profil
    Informations forums :
    Inscription : Novembre 2008
    Messages : 69
    Points : 62
    Points
    62
    Billets dans le blog
    1
    Par défaut Copyfile ne marche plus sur un nouvel ordinateur
    Bonjour,
    Je viens d'acheter un nouvel ordinateur avec windows 11 et sur cet ordinateur la fonction Copyfile qui marchait sans problème auparavant ne marche plus.
    J'ai fait beaucoup d'essais en mettant true, false, en vérifiant que le fichier de départ existe, mais rien n'y fait.
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    if FileExists('Z:FichierText.txt') then
    CopyFile(PChar('Z:\FichierText.txt'),PChar(D:\Text.txt'),false)
    Ca passe bien par la ligne de code.
    J'ai testé le retour de la fonction : il est négatif, et chose curieuse, si je mets un autre nom de fichier à copier qui lui n'existe pas aucune erreur n'est signalée....
    Où est le problème ?

  2. #2
    Rédacteur/Modérateur

    Avatar de SergioMaster
    Homme Profil pro
    Développeur informatique retraité
    Inscrit en
    Janvier 2007
    Messages
    14 959
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 67
    Localisation : France, Loire Atlantique (Pays de la Loire)

    Informations professionnelles :
    Activité : Développeur informatique retraité
    Secteur : Industrie

    Informations forums :
    Inscription : Janvier 2007
    Messages : 14 959
    Points : 40 776
    Points
    40 776
    Billets dans le blog
    62
    Par défaut
    Bonjour,

    à part le problème d'erreur dans le code (il manque une apostrophe), que donne le retour de getlasterror ?

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    Err := 0;
     
    if FileExists('Z:\FichierText.txt') AND not CopyFile(PChar('Z:\FichierText.txt'),PChar('D:\Text.txt'),false)  then
      Err := GetLastError;
     
    if Err <> 0 then ...
    MVP Embarcadero
    Delphi installés : D3,D7,D2010,XE4,XE7,D10 (Rio, Sidney), D11 (Alexandria), D12 (Athènes)
    SGBD : Firebird 2.5, 3, SQLite
    générateurs États : FastReport, Rave, QuickReport
    OS : Window Vista, Windows 10, Windows 11, Ubuntu, Androïd

  3. #3
    Expert éminent sénior
    Avatar de ShaiLeTroll
    Homme Profil pro
    Développeur C++\Delphi
    Inscrit en
    Juillet 2006
    Messages
    13 371
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 42
    Localisation : France, Seine Saint Denis (Île de France)

    Informations professionnelles :
    Activité : Développeur C++\Delphi
    Secteur : High Tech - Éditeur de logiciels

    Informations forums :
    Inscription : Juillet 2006
    Messages : 13 371
    Points : 24 658
    Points
    24 658
    Par défaut
    Pourquoi répondre dans un sujet vieux de 15 ans ?

    Pourquoi ne pas faire un DeleteFile explicite avant et obtenir le code d'erreur associé.
    Aide via F1 - FAQ - Guide du développeur Delphi devant un problème - Pensez-y !
    Attention Troll Méchant !
    "Quand un homme a faim, mieux vaut lui apprendre à pêcher que de lui donner un poisson" Confucius
    Mieux vaut se taire et paraître idiot, Que l'ouvrir et de le confirmer !
    L'ignorance n'excuse pas la médiocrité !

    L'expérience, c'est le nom que chacun donne à ses erreurs. (Oscar Wilde)
    Il faut avoir le courage de se tromper et d'apprendre de ses erreurs

  4. #4
    Rédacteur/Modérateur
    Avatar de Andnotor
    Inscrit en
    Septembre 2008
    Messages
    5 622
    Détails du profil
    Informations personnelles :
    Localisation : Autre

    Informations forums :
    Inscription : Septembre 2008
    Messages : 5 622
    Points : 12 925
    Points
    12 925
    Par défaut
    Sans rapport avec W11.

    Z:\FichierText.txt n'est pas forcément égale à Z:FichierText.txt. Dans le premier cas tu cibles clairement la racine du lecteur alors que dans le deuxième ça va dépendre du répertoire courant.

    Est-ce qu'un thème est activé et y a-t-il eu utilisation d'un TOpenDialog/TSaveDialog précédemment ?

    Sans thème, TOpenDialog utilise les nouvelles API disponibles depuis Vista (à travers TFileOpenDialog) qui ne modifient pas le répertoire courant alors qu'avec un thème activé ce sont les anciennes API qui elles le modifiaient.

  5. #5
    Rédacteur/Modérateur

    Avatar de SergioMaster
    Homme Profil pro
    Développeur informatique retraité
    Inscrit en
    Janvier 2007
    Messages
    14 959
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 67
    Localisation : France, Loire Atlantique (Pays de la Loire)

    Informations professionnelles :
    Activité : Développeur informatique retraité
    Secteur : Industrie

    Informations forums :
    Inscription : Janvier 2007
    Messages : 14 959
    Points : 40 776
    Points
    40 776
    Billets dans le blog
    62
    Par défaut
    Citation Envoyé par ShaiLeTroll Voir le message
    Pourquoi répondre dans un sujet vieux de 15 ans ?
    Question déplacée
    MVP Embarcadero
    Delphi installés : D3,D7,D2010,XE4,XE7,D10 (Rio, Sidney), D11 (Alexandria), D12 (Athènes)
    SGBD : Firebird 2.5, 3, SQLite
    générateurs États : FastReport, Rave, QuickReport
    OS : Window Vista, Windows 10, Windows 11, Ubuntu, Androïd

Discussions similaires

  1. Ma cam ne marche plus sur msn
    Par Daejung dans le forum Messagerie instantanée
    Réponses: 0
    Dernier message: 06/01/2011, 23h26
  2. [CS4] Fonction annuler marche plus sur dream cs4
    Par Stéph utilisateur d'acces dans le forum Dreamweaver
    Réponses: 0
    Dernier message: 31/10/2009, 08h12
  3. Installation de XP sur un nouvel ordinateur
    Par PiPo123 dans le forum Windows XP
    Réponses: 8
    Dernier message: 21/09/2008, 17h16
  4. Code qui ne marche plus sur IE7 Beta
    Par Death83 dans le forum Général JavaScript
    Réponses: 4
    Dernier message: 18/03/2006, 01h15
  5. ma fonction marche plus sur le serveur...
    Par CDRIK dans le forum Général JavaScript
    Réponses: 5
    Dernier message: 18/10/2004, 05h24

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