Discussion :

[illuch]

Bonjour à tous,
Lors de la compilation j'ai ce message :

[DCC Erreur fatale] F2438 L'encodage de texte UCS-4 n'est pas supporté. Convertissez en UCS-2 ou UTF-8

Il n'y a aucune indication de la ligne provoquant ce message.
Avez-vous une idée ?

Merci de vos suggestions.

JL

[wheel]

Voila ce que dit l'aide de Delphi à propos de cette erreur

Cette erreur est rencontrée lorsqu'un fichier source a un encodage UCS-4, comme indiqué par son BOM (Byte-Order-Mark). Le compilateur ne prend pas en charge la compilation de fichiers source codés en UCS-4 Unicode. Pour résoudre ce problème, convertissez le fichier source au codage UCS-2 ou UTF-8.

Il n'y a aucune indication de la ligne provoquant ce message.

Le BOM (Byte-Order-Mark) est situé au début du fichier 4 octets indiquant l'encodage du fichier texte.
Pour une raison ou autre un des fichiers du projet est codé en UCS-4 ou UTF-32 et le compilateur vous demande de le changer vers l'UTF-8..la solution la plus simple c'est d'utiliser le Notepad ou son équivalent pour le convertir

[illuch]

Voila ce que dit l'aide de Delphi à propos de cette erreur
Le BOM (Byte-Order-Mark) est situé au début du fichier 4 octets indiquant l'encodage du fichier texte.
Pour une raison ou autre un des fichiers du projet est codé en UCS-4 ou UTF-32 et le compilateur vous demande de le changer vers l'UTF-8..la solution la plus simple c'est d'utiliser le Notepad ou son équivalent pour le convertir

Merci de votre réponse.
Je l'avais déjà vue en faisant des recherches.
Je comprends ce qu'il faut faire, mais pratiquement comment le faire ? ça je ne vois pas.
Pouvez - vous m'aider sur ce point.

JL

[SergioMaster]

Bonjour,
L'option du menu Encodage, la partie "haute" montre l'encodage actuel, la partie "basse" permet une conversion.
Après, selon la version de Delphi, il faudra choisir entre ANSI ou les UTF x supportés

[Andnotor]

On peut modifier l'encodage depuis Delphi ; en bas de la fenêtre d'édition de l'unité concernée.

[illuch]

Merci de vos réponses, mais je ne vois toujours pas la manip à faire

Faut-il éditer et modifier les octets du BOM, si oui comment faire (éditeur hexa décimal ?)

On peut modifier l'encodage depuis Delphi ; en bas de la fenêtre d'édition de l'unité concernée.

Andnotor me dit qu'on peut le faire en modifiant l'encodage depuis Delphi, mais là aussi je ne vois pas comment faire pratiquement.
où se trouve ce menu ? J'ai ouvert toutes les unités et je ne vois rien en bas de ces unités

ça doit être évident mais désolé je ne vois pas.

JL

[ShaiLeTroll]

Utilise Notepad++, il proposera la conversion, même NotePad de Win10 peut aussi te permettre de changer l'encodage, d'ailleurs, cet encodage rare sera surement accompagné d'un message.

Ce fichier contient des accents, des caractères spéciaux, langues étrangères ?

[wheel]

Faut-il éditer et modifier les octets du BOM, si oui comment faire (éditeur hexa décimal ?)

Ce n'est pas uniquement le bom mais c'est tout le contenu qui doit être changé un caractère de UTF32 est codé sur 4 octets et celui de UTF8 est variable, il est possible de le faire dans un petit projet premièrement tester la présence du marquer UTF32 et après utiliser UCS4StringToUnicodeString pour la conversion en format texte standard et à la fin enregistrer sous le format utf8


Créer un copie de votre projet et tester ce code sur l'ensemble des fichiers ...

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
 const UTF32BE: array[0..3] of byte = (0,0,$FE,$FF);
      UTF32LE: array[0..3] of byte = ($FF,$FE,0,0);
var
  BOM: Int32;
  S, Txt:string;
  St:TFilestream;
  R, Len: Integer;
  Us:UCS4String;
  Bins: TBytes;
begin
   if not PromptForFileName(S)  then
      Exit;
   St := TFilestream.Create(S, fmOpenReadWrite);
   try
       if St.Read(BOM, 4) = 4 then
       begin
 
         if BOM = Int32(UTF32BE) then
         begin
             Showmessage('UTF32 BE  détecté - non converti');
         end;
         if BOM = Int32(UTF32LE) then
         begin
             Len := St.Size div SizeOf(UCS4Char) - 1;
             SetLength(Us, Len);
             St.Read(Us[0], Len * SizeOf(UCS4Char));
 
             St.Size := 0;
 
             Txt := UCS4StringToUnicodeString(Us);
             Bins := [$EF, $BB, $BF];
             St.WriteBuffer(Bins, 3);
             Bins := TEncoding.UTF8.GetBytes(Txt);
             St.WriteBuffer(Bins, Length(Bins));
             Showmessage('UTF32 LE fichier converti');
         end;
       end;
   finally
     St.Free;
   end;
end;

Andnotor me dit qu'on peut le faire en modifiant l'encodage depuis Delphi, mais là aussi je ne vois pas comment faire pratiquement.

Un clic droit dans l’éditeur et choisissez "Format de fichier" en tout cas ça n'a pas d'effet si je change vers UTF32 je n'est pas cette erreur .

[ShaiLeTroll]

Code :

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

Bins := [$EF, $BB, $BF];

ou

Code :

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

Bins := TEncoding.UTF8.GetPreamble();

[illuch]

Merci de votre aide, j'ai résolu le problème en passant en UTF-8 avec Nopepad++

JL