Discussion :

[petitcoucou31]

bonjour a tous,

Je suis obligé lors de la création d'un document (PDF) de définir le nom de son fichier *.tff associé pour avoir la fonte en gras ou italique...

Par exemple:
le nom générique pour la police "Arial" est " arial.ttf ",
le nom associé pour la police "Arial Italique" est " ariali.ttf ",
le nom associé pour la police "Arial Gras" est " arialbd.ttf "...

Mon problème est de retrouver les noms des polices associées a un nom de police générique.

Mes recherches sur net ont étés infructueuse, ici aussi ..

j'ai peut être trouvé une petite function en VB et si une âme ayant un peu de temps savait me la traduire cela me permettrai de l'essayer ..

Code VB :

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
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
 
Option Explicit
 
Private Declare Function CreateScalableFontResource Lib "gdi32" _ 
   Alias "CreateScalableFontResourceA" _
  (ByVal fHidden As Long, _
   ByVal lpszResourceFile As String, _
   ByVal lpszFontFile As String, _
   ByVal lpszCurrentPath As String) As Long
 
Private Sub Command1_Click()
 
   Dim TTFontFile As String
 
  'get the font name for Arial Bold
  'be sure to verify that this font exists on your system
   TTFontFile = "C:\Windows\Fonts\anb_____.TTF"   
 
   Label1.Caption = GetFontName(TTFontFile)
 
End Sub
 
 
Public Function GetFontName(FileNameTTF As String) As String
 
   Dim hFile As Integer
   Dim Buffer As String
   Dim FontName As String
   Dim TempName As String
   Dim iPos As Integer
 
  'Build name for new resource file in a temporary file, and call the API.
   TempName = App.Path & "\~TEMP.FOT"
 
   If CreateScalableFontResource(1, _
                                 TempName, _
                                 FileNameTTF, _
                                 vbNullString) Then
 
     'The name sits behind the text "FONTRES:"
      hFile = FreeFile
 
      Open TempName For Binary Access Read As hFile
 
         Buffer = Space(LOF(hFile))
         Get hFile, , Buffer
         iPos = InStr(Buffer, "FONTRES:") + 8
         FontName = Mid(Buffer, iPos, _
                        InStr(iPos, Buffer, vbNullChar) - iPos)
 
      Close hFile
 
      Kill TempName
 
    End If
 
  'Return the font name
   GetFontName = FontName
 
End Function

Mais si quelqu'un a une idée.. je suis aussi preneur .

[Jipété]

(...) j'ai peut être trouvé une petite function en VB et si une âme ayant un peu de temps savait me la traduire cela me permettrai de l'essayer ..

Perds pas ton temps avec ça, ce code installe une police en partant du .TTF.

(...) Mais si quelqu'un a une idée.. je suis aussi preneur .

À voir...
Et aussi ici, qui ressemble à ton besoin (c'est pas gagné...)

Et enfin, en bas de cette page, le script VBS fonctionne.
À partir de la liste créée (exemple chez moi :

Arial (TrueType),ARIAL.TTF
Arial Bold (TrueType),ARIALBD.TTF
Arial Bold Italic (TrueType),ARIALBI.TTF
Arial Italic (TrueType),ARIALI.TTF
Courier New (TrueType),COUR.TTF
Courier New Bold (TrueType),COURBD.TTF
Courier New Bold Italic (TrueType),COURBI.TTF
Courier New Italic (TrueType),COURI.TTF

), tu devrais peut-être trouver ton bonheur.

Bon courage,

[Andnotor]

Je suis obligé lors de la création d'un document (PDF) de définir le nom de son fichier *.tff associé pour avoir la fonte en gras ou italique...

Ce qui parait surprenant lorsqu'on parle de police de base telle qu'Arial qu'on retrouve sur tous les systèmes
L'insertion du TTF dans le PDF est nécessaire lors d'utilisation de polices exotiques qui ont de fortes chances d'être absentes du système cible.

[petitcoucou31]

merci a vous deux ,

Je vais regardé ce que tu m'indiques JIPETE...

Pour répondre a AndNotOr, on c'est peut être mal compris.
j'utilise un "composant" qui me permet de générer mes pages PDF directement depuis mon application (un genre de Tcanvas pour PDF) et j'ai donc besoin d'utiliser diverse police présente sur le pc.

Mais je dois charger (par mon application) ces polices pour les utiliser lors de la création du pdf et ceci a partir de leur nom (*.ttf).
Cela est facile quand on utilise la police "normale" puisque leur nom est connu, mais impossible pour la même police en gras par exemple, puisque je ne connais pas le nom de cette même police en gras (bien sur de manière automatique).

je vous tiens au courant pour la suite.