Discussion :

[huxxxxxx]

Bonjour à tous de la part d'un nouveau sur le forum.

Ancien développeur en Turbo Pascal (c'est très ancien !!!), je fais mes premiers pas avec Lazarus et FreePascal sous Windows, pour le plaisir ...

Je commence par un programme me permettant de sauvegarder certains dossiers et fichiers sélectionnés par des boites de dialogue.

J'ai un gros problème avec les fichiers et les dossiers dont les noms comportent des caractères accentués.

Par exemple, la petite procédure d'essai suivante me donne pour réponse ' inconnu ' dans le cas d'un fichier dont le nom comporte des accents, alors que le nom de fichier est bien pris en compte dans FileName.

Je ne peux donc pas continuer le traitement qui consiste à copier le fichier dans le dossier de sauvegarde.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
  procedure SelectionFichier;
  var fd:string;
  begin
    if Form1.OpenDialog1.Execute then
      begin
        fd:=Form1.OpenDialog1.FileName;
        ShowMessage(fd); 
        if FileExists(fd) then ShowMessage(fd + ' trouvé')
                          else ShowMessage(fd + ' inconnu');
      end;
  end;

L'unité contenant cette procédure comporte la ligne suivante :

uses Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls, ShellApi;J'ai cherché longuement sur Internet, mais je n'ai rien trouvé (sauf que j'ai découvert ce forum ...).

Si quelqu'un peut m'aider ! Merci d'avance.

[tourlourou]

Bonjour,

Basé sur la compatibilité linux, Lazarus tolère mal ces fichiers accentués... (j'ai dû créer une session avec un nom sans accent pour pouvoir installer CodeTyphon)

Il peut s'agir d'un problème de string UTF8 (standard Lazarus) et ANSI. Il existe dans ce cas les fonctions de conversion.

Sinon, il existe parmi les Options du dialogue la constante ofFileMustExist qui devrait éviter le test !

[Nullosse]

bonjour,

essaie ceci :

Code :

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

1
2
3
4
5
6
7
8
9
10
 procedure SelectionFichier;
var fd:string;
 begin
   if Form1.OpenDialog1.Execute then
     begin
       fd:=Form1.OpenDialog1.FileName;
       ShowMessage(fd);
       if FileExists(UTF8ToAnsi(fd)) then ShowMessage(fd + ' trouvé')
                         else ShowMessage(fd + ' inconnu');
     end;

explication :
Le Runtime Free Pascal (RTL), et la bibliothèque de composants Free Pascal (FCL), dans les versions actuelles de FPC (jusqu'à la 2.6.x) sont ANSI, vous devrez donc convertir les chaines venant des bibliothèques Unicode, ou allant vers des bibliothèques Unicode (comme la LCL). FileExists fait partie de la RTL.

pour en savoir plus voir ici

Amicalement, nullosse

[huxxxxxx]

Bonjour,

Avec beaucoup de retard, je reviens sur cette discussion.

Je remercie Nullosse et Tourlourou pour leurs réponses qui m'ont bien aidé.

Toutefois, tout n'est pas encore très clair pour moi.

Je reviendrai donc rapidement à la charge.

Amicalement.