Discussion :

[bvsud]

Bonjour à tous

Ca fait un moment que je me creuse la cervelle là-dessus.

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
Var
      F_Source, F_Dest : string;  // Var locales
      Err : integer;  / Var locale
      Retour_Copie : boolean;  // Var locale
      Rep_Temp_Edition: string;  // Var globale. C:\TEMP (pas le choix : certains noms de fichiers, ici, 
                                                 // ne peuvent être passés en paramètre à l'éditeur à cause de leur longueur. 
                                                 // Si je les copie ds le répertoire temporaire du profil, leurs noms deviennent trop longs. C'est comme ça que j'ai "résolu" le pb
      F_Pointe : string;   // Ds un ListBox

      F_Source := Rep_Base_Articles + '\' + ExtractFileName(F_Pointe);
      F_Dest := Rep_Temp_Edition + '\' + ExtractFileName(F_Source);
      ForceDirectories(Rep_Temp_Edition);
      Retour_Copie := CopyFile(PChar(F_Source), PChar(F_Dest), False);

// Les deux lignes ci-dessous font générer un fichier texte affichant la valeur de toutes les variables globales : tout est correct . C'est ça qui m'étonne
Procedure_Appelante := 'Appel_Editeur';  // DEBUG
Lister_Variables(Procedure_Appelante, 'Z-Appel_Editeur.TMP');  // DEBUG Appel_Editeur : nom de la procédure

      // plusieurs lignes de code n'affectant pas les variables requises pour la copie

      if Retour_Copie = False then
        begin
          Err := GetLastError;
          MessageDlg( 'ERREUR EN COPIE DU FICHIER : ' + F_Source +
                      #13+#10 + F_Dest + ' ERREUR N° : ' + IntToStr(Err), mtWarning, [mbOK], 0);
          F_Pointe := '';
          Form1.ListBox1.SetFocus;
          Exit;
        end
      Else Nom_F_A_Editer := F_Source;

Err 183 : "Impossible de un fichier un fichier déjà existant".

Qu'est-ce que ça vient fiche ici ? CopyFile() s'en moque et, de toute façon, j'ai lui passé le paramètre False. Même s'il existait déjà, et vu qu'il n'est pas locké, pourquoi cette erreur 183 ?

[Andnotor]

GetLastError est appelé beaucoup trop tard. L'erreur retournée trouve probablement son origine dans Lister_Variables (tentative de création de Z-Appel_Editeur.TMP qui existe déjà). Il faut appeler immédiatement GetLastError si CopyFile échoue (idem pour ForceDirectories).

Code :

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

1
2
3
4
5
6
Err := 0;
 
if not CopyFile() then
  Err := GetLastError;
 
if Err <> 0 then ...