Discussion :

[ABOUKONBOL]

salut tout le monde
S.V.P prière de m'aider à lire les caractères (une par une) en parcourant le fichier ttf ci joint et en les chargeant dans une variable chaine pour les stocker dans un fichier .fic (voir image des caractères)

[tbc92]

Ton problème est avant tout un problème 'Windows', ou une question d'informatique générale.

Dans l'ordre, tape 'Codage ANSI' sur un moteur de recherche. Tu vas pouvoir apprendre les bases, sur le codage des caractères 'classiques'.
Ensuite, tu vas pouvoir recherche ' Codage Caractère UTF16' ou ' Codage Caractère UTF8' . Là c'est ce qui concerne les caractères spéciaux, comme ceux que tu as sur ta copie d'écran.

Et ensuite, tu pourras chercher comment intégrer cela dans Windev.

[ABOUKONBOL]

Merci tbc92 pour cette réponse
je sais bien comme montre l'image que chaque caractère spécial à un code de caractère par exemple l insecte qui est en surbrillance bleu dans l'image ci dessus à le code 33
et j ai essayé le fragment du code suivant pour l afficher dans un champ de saisie windev mais ça n'a pas marché

Code :

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

1
2
3
4
5
6
7
8
9
10
/ Création d'une police par défaut
PDéfaut est une Police = PoliceCrée("WEBDINGS", 16)
// On utilise une variable pour stocker la police de l'utilisateur
PUtilisateur est une Police
// On demande à l'utilisateur de modifier sa police
PoliceSelect(PUtilisateur, Vrai, PDéfaut)
// Initialisation de la police
dPolice(PUtilisateur)
//Tracé du texte
sai_1..Valeur= Caract(33)

[fouedusa]

Bonjour;

Il faut ajouter le code suivant par exemple dans l’initialisation du projet :

Code :

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

ChangeAlphabet(alphabetUTF8)

et avant l'affectation le code suivant :

Code :

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

1
2
3
4
5
6
 
// Modification de la police du champ
SAI_1..Police= PUtilisateur
 
//Tracé du texte
sai_1..Valeur= Caract(33)

Bon Dev.

[ABOUKONBOL]

merci pour ta réponse Fouedesa ,j ai essayé le que vous avez envoyé mais le résultat c'est qu'il affiche un point d'exclamation "!" dans le champs saisie au lieu de l'image insecte telle qu'elle est affiché dans le début de cette discussion merci encore

[fouedusa]

Re :

testé avant la réponse avec windev 20, windows xp
testé en ce moment avec windev 20 windows 7

y a que des insectes chez moi

code du bouton :

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
ChangeAlphabet(alphabetUTF8)
// Création d'une police par défaut
PDéfaut est une Police = PoliceCrée("WEBDINGS", 16)
// On utilise une variable pour stocker la police de l'utilisateur
PUtilisateur est une Police
// On demande à l'utilisateur de modifier sa police
PoliceSelect(PUtilisateur, Vrai, PDéfaut)
// Initialisation de la police
dPolice(PUtilisateur)
 
// Modification de la police du champ
SAI_SansNom1..Police= PUtilisateur
 
//Tracé du texte
SAI_SansNom1..Valeur= Caract(33)

Résultat :




Bon Dev.

[Voroltinquo]

Bonjour,
ça fonctionne aussi sous Win 10

[ABOUKONBOL]

Merci bien à vous Fouedusa ça a bien fonctionné