Discussion :

[diamondsoftware]

Bonjour à tous,
J'ai un petit soucis a resoudre tres rapidement.
je dois vérifier au lancement d'un logiciel crée avec Windev 2024 version cle (bien sur ;: ) que deux polices de caracteres sont bien installées.
La fonction Policeliste() ne me donne dans la chaine de caractere retournée qu'une partie des polices , meme pas un tiers, et donc impossible d'avoir la liste complete des polices
J'ai essayé tous les parametres dispos pour la fonction mais rien ne change.
Quelqu'un a t il deja eu ce soucis? et quelqu'un a t il une solution.
Merci d'avance
Stephan

[DevOcc]

Bonjour
Quel est le résultat avec une liste :

Code :

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

1
2
3
 
ListeSupprimeTout(MoiMême)
ListeAjoute(MoiMême, PoliceListe(policeDéfaut))

Probablement un dépassement de taille de la chaine.
Cdlt

[jurassic pork]

Hello,
sinon tu peux essayer en dotnet pour voir si c'est mieux :
Ajouter l'assemblage System.Drawing dans son projet
et utiliser ce code :

Code :

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

1
2
3
4
5
6
7
8
9
// Création de la collection de polices
fonts est un InstalledFontCollection()
 
// Récupération du tableau de FontFamily
families est un tableau de FontFamily = fonts.Families
 
POUR i = 1 _A_ families..Occurrence
    Trace(families[i].Name)
FIN

Ami calmant, J.P

[diamondsoftware]

Bonjour
Quel est le résultat avec une liste :

Code :

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

1
2
3
 
ListeSupprimeTout(MoiMême)
ListeAjoute(MoiMême, PoliceListe(policeDéfaut))

Probablement un dépassement de taille de la chaine.
Cdlt

Bonjour,
merci pour le retour , mais les chaines n'ont comme limite que la memoire dispo et j'en ai plein.
S.

[diamondsoftware]

Hello,
sinon tu peux essayer en dotnet pour voir si c'est mieux :
Ajouter l'assemblage System.Drawing dans son projet
et utiliser ce code :

Code :

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

1
2
3
4
5
6
7
8
9
// Création de la collection de polices
fonts est un InstalledFontCollection()
 
// Récupération du tableau de FontFamily
families est un tableau de FontFamily = fonts.Families
 
POUR i = 1 _A_ families..Occurrence
    Trace(families[i].Name)
FIN

Ami calmant, J.P

Merci pour le code et la reponse rapide, je vais me pencher dessus.
S.

[frenchsting]

Bonjour,

As-tu essayé en passant ton projet en 64 bits ?

Une autre idée, qui devrait t'évite de mettre un (des?) assemblage dotnet, est de passer par les API (EnumFontsA) que tu peux voir avec WDAPI :

Code :

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

1
2
3
4
5
6
7
RetourFonction est un entier // Type C :INT
VAR_1_HDC est un entier système // Type C :HDC
VAR_2_LPCSTR est un entier système // Type C :LPCSTR, c'est l'adresse d'une chaîne, il est aussi possible de spécifier directement une chaîne
VAR_3_FONTENUMPROCA est un FONTENUMPROCA //*********** TYPE NON RETROUVE ***********
VAR_4_LPARAM est un entier système // Type C :LPARAM
 
RetourFonction=API("GDI32","EnumFontsA",VAR_1_HDC,VAR_2_LPCSTR,VAR_3_FONTENUMPROCA,VAR_4_LPARAM)

Il y a également EnumFontFamiliesExA et EnumFontFamiliesA

[jurassic pork]

Une autre idée, qui devrait t'évite de mettre un (des?) assemblage dotnet,

Hello Frenchsting,
un seul assemblage suffit et c'est un assemblage toujours présent sous windows : System.Drawing

[diamondsoftware]

Bonjour,

As-tu essayé en passant ton projet en 64 bits ?

Une autre idée, qui devrait t'évite de mettre un (des?) assemblage dotnet, est de passer par les API (EnumFontsA) que tu peux voir avec WDAPI :

Code :

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

1
2
3
4
5
6
7
RetourFonction est un entier // Type C :INT
VAR_1_HDC est un entier système // Type C :HDC
VAR_2_LPCSTR est un entier système // Type C :LPCSTR, c'est l'adresse d'une chaîne, il est aussi possible de spécifier directement une chaîne
VAR_3_FONTENUMPROCA est un FONTENUMPROCA //*********** TYPE NON RETROUVE ***********
VAR_4_LPARAM est un entier système // Type C :LPARAM
 
RetourFonction=API("GDI32","EnumFontsA",VAR_1_HDC,VAR_2_LPCSTR,VAR_3_FONTENUMPROCA,VAR_4_LPARAM)

Il y a également EnumFontFamiliesExA et EnumFontFamiliesA

Bonjour,
merci pour le code!

Stephane

[frenchsting]

Hello Frenchsting,
un seul assemblage suffit et c'est un assemblage toujours présent sous windows : System.Drawing

OK. J'ai dit ça car ça m'est arrivé d'avoir un assemblage et beaucoup de dépendances