Discussion :

[forbin]

Bonjour,

Je suis sous Windows 10 et je convertis plusieurs programmes Turbo-Pascal 7.00 MSDOS en Free Pascal.

L'interface de mes programmes ne nécessite pas que je bascule en Lazarus, mais j'avais fait quelques efforts esthétiques en affichant des caractères spéciaux alt 191, alt 192 etc. permettant de tracer des tableaux.

Lorsque je lance le programme avec CMD.EXE, je n'arrive pas à afficher les caractères spéciaux. J'ai essayé tous les codes page que je connaissais, mais manifestement pas le bon.

Je ne vais tout de même pas faire mes tableaux façon "années 80" avec des +, des -, des ! ou pire avec des *

Comment puis-je faire pour que les caractères spéciaux s'affichent correctement ?

Merci d'avance pour votre aide.

Cordialement,

4BIN

[JML19]

Bonjour

Il faut vérifier le code page utilisé par Windows s'il peut afficher tes caractères spéciaux.

Ils doivent être des caractères étendus de la table ASCII (ICI).

Tu utilises un éditeur de texte et tu tapes ces caractères avec la touche Alt activé, par exemple Alt + 144 = É ou Alt + 212 = È ou Alt + 179 =│ou Alt + 186 = ║.

[forbin]

Bonjour JML19,

Lorsque je saisis ALT 144 ou ALT quelquechose, que ce soit avec Word, Notepad ou la fenêtre de CMD.EXE, il ne se passe rien

4BIN

[Andnotor]

Il faut obligatoirement taper le code sur le pavé numérique (bien sûr avec NumLock ON)

[forbin]

Effectivement je ne les avais pas saisi avec le clavier numérique.

Dans Word, çà ne fonctionne pas, mais dans NotePad et dans la fenêtre CMD.EXE cette fois, çà fonctionne.

[forbin]

En fait c'est lorsque j'écris un programme dans lequel se trouve une chaîne avec des caractères spéciaux, que la conversion ne se fait pas.

Y a-t-il une instruction à ajouter au programme pour que la conversion se fasse ?

Merci pour votre aide...



4BIN

[JML19]

As-tu testé hexa == ou code hexa == ?

[forbin]

Je viens d'essayer

writeln($BF);

et çà me renvoie 191

et

writeln(char($BF));

çà renvoie le caractère non converti

[Andnotor]

Y a-t-il une instruction à ajouter au programme pour que la conversion se fasse ?

Regarde ici.

Et pour plus d'infos, le forum Free Pascal

[forbin]

J'ai compilé l'unité SetDefaultCodePages

qui me semble-t-il comportait une petite erreur

New_CONSOLE_FONT_INFOEX.dwFontSize.Y := 16;

au lieu de

New_CONSOLE_FONT_INFOEX.dwFontSizeY := 16;


J'ai ensuite lancé

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
 
PROGRAM CARAC;
 
{$mode objfpc}{$H+}
{$codepage cp1252}
 
USES DOS, CRT, WINDOWS, SETDEFAULTCODEPAGES;
 
VAR SST:SHORTSTRING;
 
BEGIN
 
  Writeln('Console output codepage: ', GetTextCodePage(Output));
  Writeln('System codepage: ', DefaultSystemCodePage);
 
  SST:=#191;
 
  Writeln(char(191),' ',SST);
 
END.

et j'ai eu droit à deux magnifiques points d'interrogation à l'envers

[JML19]

C'est normal tu n'es pas dans la bonne table ASCCII

Le caractère #191 est bien le point d'interrogation inversé.

[forbin]

Je viens de lancer

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
 
PROGRAM CARAC;
 
{$mode objfpc}{$H+}
{$codepage cp1252}
 
USES DOS, CRT, WINDOWS, SETDEFAULTCODEPAGES;
 
VAR i:INTEGER;
    rk:CHAR;
 
BEGIN
 
  Writeln('Console output codepage: ', GetTextCodePage(Output));
  Writeln('System codepage: ', DefaultSystemCodePage);
 
  for i:=1 to 500 do begin
    Writeln(char(i));
    if (i mod 24=0) then rk:=readkey;
  end;
END.

mais à aucun moment n'est apparu les caractères spéciaux pour tableau.

[chrtophe]

Essayes la page de code 850

[forbin]

Bonjour,

Merci Chrtophe.

Je viens de lancer

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
 
PROGRAM CARAC;
 
{$mode objfpc}{$H+}
{$codepage cp850}
 
USES DOS, CRT, WINDOWS, SETDEFAULTCODEPAGES;
 
VAR i:INTEGER;
    rk:CHAR;
 
BEGIN
 
  Writeln('Console output codepage: ', GetTextCodePage(Output));
  Writeln('System codepage: ', DefaultSystemCodePage);
 
  for i:=1 to 500 do begin
    Writeln(i:3,' ',char(i));
    if (i mod 24=0) then rk:=readkey;
  end;
 
END.

Ca ne donne rien de mieux.

Bizarrement, le code page affiché est toujours 1250, même lorsque j'écris

Code :

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

1
2
 
{$codepage cp850}

pire lorsque ma fenêtre CMD est codée en CP850, elle est convertie en CP1250 juste après le lancement du programme.

[JML19]

Bonjour

Il faudrait modifier le code page dans Windows.

[forbin]

Est-ce que çà veut dire que je dois aller dans REGEDIT ?

Dans ce cas, comment dois-je procéder ?

Merci JML19 pour ton assistance

[JML19]

Peut être là :

Cliquez sur Démarrer, pointez sur Tous les programmes, sur Accessoires, sur Outils système, puis cliquez sur Table des caractères.

[forbin]

Je recherché la table des caractères. J'ai sélectionné consolas, police de CMD.EXE.

Apparemment, rien n'est paramétrable dans cette boite de dialogue



Lorsque j'ai saisi 850 dans la case Page Unicode, çà a modifié instantanément tous les caractères de la table, ma çà n'a rien reparamétré.

[JML19]

La page de code change effectivement dans sa totalité.

Le fait de changer de page de code te permettra de voir si cela influe avec Windows 10 car je ne le sais pas.

[chrtophe]

Que te donne la commande chcp sous cmd ? Chez moi ça retourne 850.