Polices de caractères sous Windows

Bonjour,
je cherche à travailler sur les polices de caractères qui sont sur mon PC.
Je voudrais commencer par créer un fichier qui liste toutes les polices, en mettant le nom d'une police par ligne.
J'ai crée un programme qui va chercher le nom de tout les fichiers du répertoire Windows\fonts , qui enlève l'extension et va mettre les chaînes de caractères dans un autre fichier, mais le nom de la police utilisée par Windows n'est pas toujours le même que le nom du fichier !
Je voudrais savoir comment accéder aux noms des polices pour pouvoir les lister.
Je ne sais si c'est différent pour chaque format de police, si c'est le cas j'aimerais surtout pouvoir le faire pour les .ttf.
Si vous savez faire en C\C++ ou en Pascal (voire Python) je suis preneur. :)
Merci

P.S : Je suis aller voir là mais j'ai pas tout compris :/
http://www.wotsit.org/search.asp?s=font

Essaye peut-être sr msdn : http://msdn.microsoft.com/library/default.asp?url=/library/en-us/gdi/fontext_8ctw.asp

J'espère que tu utilises un compilateur pour windows ( de préférence en 32bits)

a+

Bonjour !

Si tu disposes d'un compilateur pour plate-forme Windows, vois du côté de la fonction API EnumFontFamilies.

Merci à vous deux pour vos réponses.
Je suis aller voir mais je ne connais pas l'API et je débute en C.
Le problème c'est que je comprends pas ce que font les procédures EnumFonts* , ou plus exactement quelles données elles utilisent ni comment elles les gèrent.
Serait-il possible d'avoir des renseignements sur l'API ?

Merci
++

Normalement, l'aide en ligne (que ce soit de BPW, Delphi, C, C++) te donne au minimum tous les renseignements du SDK Microsoft. Mais si tu veux aller plus loin, ou bien si tu ne disposes pas d'aide en ligne, tu peux voir les tutoriels présents sur le forum (par exemple, sur le forum Développement Windows) ou bien chez Microsoft même (MSDN).

Tu peux encore faire des recherches sur Google, etc. Ce serait bien le diable si tu ne trouvais pas quelques exemples pour t'éclairer.

Car l'API, c'est vaste ! Il y en aurait pour des semaines pour en faire le tour complet. Et puis, chercher est le meilleur moyen d'apprendre !

salut

si ça peut t'intéresser j'avais fait un prog dans ce style en delphi 3.. tu pourra le trouver sur mon site dans la partie Delphi ; l'exemple s'appelle FontList. si tu veux des précision n'hésite pas

bon courage !

Merci à vous.
Denokan, bravo pour ton prog, c'est à peu près ce que je voulais faire.
Néanmoins je capte pas tout :/.
J'aurais voulu créer un fichier HTML pour tester les polices et j'aurais donc besoin du nom des polices. Quand j'essaye d'utiliser Font.Name comme chaîne de caractère ça marche pas. Je pense que tu utilises le nom des polices dans ton prog puisqu'ils apparaissent à gauche du tableau...
Dans quel variable mets-tu le nom des polices et comment stocker le nom des polices dans un tableau de chaînes de caractères stp ?
Merci

salut

bon pour obtenir le nombre de polices installées tu peux passer par :

Code:

---

1 2	Screen.Fonts.Count

---

pour obtenir le nom d'une police donnée tu tapes :

Code:

---

1 2	Screen.Fonts[numero].Name

---

par contre je ne sais plus si la liste commence à 0 ou à 1 ; à toi de tester :P

merci je teste ça bientôt et je posterais pour te dire si j'ai réussi.
@+

Pour Dos, il existe la très bonne librairie FreeType : http://www.freetype.org/

A+

Désolé Denokan mais j'ai pas réussi à faire ce que je voulais.
J'ai essayé de rajouter la procédure suivante dans le programme :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17

procedure cre(a:integer); var i,j:integer; fichier:Text; fic_,nom:string; begin fic_:='c:\ppp.txt'; assign(fichier,fic_);rewrite(fichier);   for i:=1 to a do begin nom:=Screen.Fonts[i].Name; writeln(fichier,nom); end;   close(fichier);   end;

---

en rajoutant à la fin du programme

Code:

---

1 2 3

var a:integer; a:=Screen.Fonts.Count; cre(a);

---

mais à la ligne nom:=Screen.Fonts[i].Name;
ça m'a mis =>[Error] main.pas(41): Record, object or class type required

ça m'a aussi des erreurs comme quoi a et cre était redéclaré.

Je n'ai jamais programmé Objet, je me suis juste un peu renseigné sur ce qu'est la programmation orienté objet, je crois que le problème vient de là... :oops:

Mais ne peut-on pas utiliser des procédures classiques dans un programme OO ?

En espérant que tu pourras me dire où placer mes lignes dans ton programme pour que ça crée un fichier regroupant le nom des polices.
merci
++

Oula y'a confusion des genres, il me semble...
Le programme qu'a donné Denokan a été fait avec Delphi... Et il n'est sûrement pas compatible avec FreePascal... ( ou tout autre compilateur d'ailleurs ). Donc si tu utilises autre chose que delphi, ca code ne pourra pas être compilé tel qu'il est maintenant. L'objet Screen possède des attributs et des méthodes spécifiques permettant d'accéder à l'affichage, aux curseurs, aux polices d'écran... Renseigne-toi dans l'aide de ton compilateur si il existe un tel objet ( si tu utilises un compilateur non Windows, tu peux d'ores et déjà oublié l'exemple proposé :P )
a+

Merci wormful_sickfoot,
je débute mais j'ai un minimum de bon sens :wink:
J'utilise Delphi 6.
Le problème ne vient pas de là, mais de ma méconnaissance de la POO.
Le programme de denokan fonctionne parfaitement tel quel chez moi.
Mais même en bidouillant dans tous les sens j'ai pas réussi à obtenir ce que je voulais. :(
Ca me sort les erreurs citées plus haut.

Ah pardon, je pensais que tu utilisais un autre compilateur :P
Essaye peut-être ce code :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19

procedure cre(a:integer); var i,j:integer; fichier:Text; nom:string; begin assign(fichier,'c:\ppp.txt'); rewrite(fichier); for i:=0 to Screen.Fonts.Count-1 do begin nom:=Screen.Fonts[i].Name; writeln(fichier,nom); end; close(fichier); end;   begin cre(a); end;

---

C'est ton code, légèrement modifié ;)
a+

Ah au fait, ce code est fait pour le mode console...
C'est d'ailleurs bizarre qu'on puisse accéder à la variable Screen en mode console, mais bon... A la limité, il vaudrait mieux tout faire en mode graphique made in Delphi...
a+

wormful_sickfoot ton code renvoie la même erreur que celui que j'ai mis plus haut. As_tu essayé de le compiler avec Delphi ?
Il faut peut-être déclarée la procédure comme une méthode de l'objet crée par denokan dans son programme mais j'ai essayé il m'a dit que TForm1.cre n'était pas déclaré et en plus je savais pas toutes les varaibles qu'il fallait lui passer :oops:
C'est dingue que ce soit si compliqué d'insérer une procédure dans un programme orienté objet.
ça vient sûrement de ce que tu as dit dans le message précédent...

Si tu utilises des Forms, ton application n'est pas en mode console...
J'ai trouvé la solution ! Désolé c'est du Delphi pur, mais la méthode que tu utilises ne peut se faire qu'avec du delphi pur ( enfin il me semble... ). Voici le code :

Code:

---

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

unit Unit1;   interface   uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;   type TFontForm = class(TForm) Fonts: TListBox; procedure FormCreate(Sender: TObject); private { Déclarations privées } public { Déclarations publiques } end;   var FontForm: TFontForm;   implementation   {$R *.dfm}   procedure TFontForm.FormCreate(Sender: TObject); var i:integer; var f:textfile; begin assignfile(f,'c:\fonts.txt'); rewrite(f); for i:=0 to Screen.Fonts.Count-1 do begin Fonts.Items.Add(Screen.Fonts[i]); writeln(f,Screen.Fonts[i]); end; closefile(f); end;   end.

---

L'erreur vient en fait de Screen.Fonts[i].name qui n'existe plus sous delphi 6 et 7... La propriété Screen.Fonts[i] est utilisée. Dis moi si ce code te convient !

a+

Et encore une compatibilité ascendante qui saute...

Bon, le code fonctionne aussi bien en mode console qu'en mode fenêtré standard.

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15

procedure SaveFontsName(FileName: string); var f: TextFile; i: Integer; begin try AssignFile(f, FileName); Reset(f); for i := 0 to Screen.Fonts.Count - 1 do WriteLn(f, Screen.Fonts[i]); finally CloseFile(f); end; end;

---

Tout ce qu'il faut, c'est utiliser l'unité Forms.

Pour info, la programmation structurée procédurielle standard peut parfaitement être mélangée à la structure objet du Pascal de Delphi. Il ne faut pas avoir peur de ressortir la vieille artillerie. :D

Pour un prog console, ça pourrait donner ça :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14

program Project1;   {$APPTYPE CONSOLE}   uses Forms;   procedure SaveFontsName(FileName: string); {...}   begin SaveFontsName('C:\PPP.TXT'); end.

---

Et pour un prog fenêtré, ça donnerait ça :

Code:

---

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

unit Unit1;   interface   uses Forms, ...;   type TForm1 = class(TForm) private ... protected ... public ... published ... end;   var Form1: TForm1;   implementation   procedure SaveFontsName(FileName: string); {...}     initialization SaveFontsName('C:\PPP.TXT'); end.

---

Ce ne sont que des exemples partiels, évidemment.

A+

Je me demandais juste si c'était bien normal qu'un programme en mode console puisse utiliser la variable Screen... Ca semble pas très logique, puisque la console,... hé ben c'est la console : juste du read et du write :D !
a+

Tout d'abord merci à vous tous de m'être penché sur mon cas , désespér je l'avoue.

Vos codes ne passent pas à la compilation, mais je sens qu'il ne s'en manque pas de beaucoup :wink:

Tout d'abord le code de wormful_sickfoot me sort à la compilation qu'il manque la form TForm1.
J'ai essayé de remplacer TFontForm par TForm1 mais ça me sort une autre erreur. Je ne sais pas si ça vient de Delphi 6 ou d'autre chose.


Le code de Hdd34 me rencoie l'erreur suivante :

Citation:

---

Project Project1.exe raised exception class ElnOutError with message 'I/O error 105'.
Process stopped

---

Cette erreur m'a interpellé car je suis presque sûr de l'avoir déjà rencontré, je me demande si ce n'est pas une Unit à rajouter au début du fichier ou quelque chose d'aussi simple.
As-tu la réponse Hdd34?


Merci encore pour votre aide.

Ah c'est normal que mon code ne marche pas tel quel : je ne t'ai pas donné le fichier DFM, le fichier DPR, et le fichier RES ( quoique les deux derniers soient facultatifs... ). Si tu veux, je te donne ces fichiers par mail ( donne moi une adresse email où je puisse envoyer un fichier zip ).
Quant à l'erreur 105, c'est "File not open for input" si je me souviens bien ! C'est à dire que le fichier n'est pas ouvert tout simplement...
Remplace le reset(f) par un rewrite(f). Reset(f) ouvre un fichier qui existe déjà alors que rewrite(f) crée un fichier si il n'existe pas !
a+

bon je t'ai posé l'exemple que tu souhaites sur mon site :

http://denokan.online.fr/ListeFonts.zip

compilé avec Delphi 6 Edition Perso

si ca ne fonctionne toujoursj pas c'est que ta version de delphi ne fonctionne pas correctement et que tu dois la configurer correctement ou la réinstaller

bon courage pour la suite

Merci à vous tous!
Avec un petit rewrite la solution de Hdd34 en mode console marche bien (et en plus je la comprends :) )

wormful_sickfoot je te pm un mail pour que tu m'envoies les fichiers qui feront fonctioner ton code.

Et Denokan je regarde et essaye de comprendre ton programme dès que je peux.

@bientôt.

Les codes fournis sont toujours à relire et à modifier si le besoin s'en fait sentir...
Il n'était pas garanti que mon code passe sans broncher à la compilation (la preuve ! :P )

Mais ravi que ça puisse fonctionner.

A+

J'ai enfin testé vos codes et tout fonctionne.
Merci à tous.


Je vais mettre au boulot pour rattraper le retard :wink: