Liste der installierten Fonts ermitteln

Alles rund um die Sprache ABAP®: Funktionsbausteine, Listen, ALV
9 Beiträge • Seite 1 von 1
9 Beiträge Seite 1 von 1

Liste der installierten Fonts ermitteln

Beitrag von Nordlicht (Specialist / 304 / 8 / 3 ) »
Hallo zusammen.

Ich möchte gerne die auf dem User-PC installierten Fonts ermitteln. Gibt es da eine geeignete Klasse oder einen FuBa (Meine Suche war erfolglos)?

Ciao
Burkhart

gesponsert
Stellenangebote auf ABAPforum.com schalten
kostenfrei für Ausbildungsberufe und Werksstudenten


Re: Liste der installierten Fonts ermitteln

Beitrag von Bugfix13 (ForumUser / 97 / 17 / 5 ) »
Hallo Burkhart

Schau dir mal folgendes an. Gibt dir eine Liste aller Files ( also schrift.ttf ) zurück.

Code: Alles auswählen.


DATA: l_filetab  LIKE FILE_TABLE OCCURS 0 .
DATA: l_count    TYPE i.
data: dir  type string.
dir = 'C:\Windows\Fonts'.

CALL METHOD CL_GUI_FRONTEND_SERVICES=>DIRECTORY_LIST_FILES
  EXPORTING
    DIRECTORY                   = dir
    FILES_ONLY                  = 'X'
  CHANGING
    FILE_TABLE                  = l_filetab
    COUNT                       = l_count
  EXCEPTIONS
    CNTL_ERROR                  = 1
    DIRECTORY_LIST_FILES_FAILED = 2
    WRONG_PARAMETER             = 3
    ERROR_NO_GUI                = 4
    NOT_SUPPORTED_BY_GUI        = 5
    others                      = 6
        .
IF SY-SUBRC <> 0.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
           WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.

Lg.


Re: Liste der installierten Fonts ermitteln

Beitrag von Nordlicht (Specialist / 304 / 8 / 3 ) »
Vielen Dank.

Allerdings benötige ich die Namen der Fonts da ich genau die an eine Klasse übergeben muss. Hast Du da einen Tip?

Ciao
Burkhart

Re: Liste der installierten Fonts ermitteln

Beitrag von Tron (Top Expert / 1327 / 35 / 331 ) »
Moin.
die auf Windows installierten Fonts werden über die GDI32.DLL ermittelt.
http://www.ex-designz.net/apidetail.asp?api_id=59
Entweder Du schreibst eine Abap OO Klasse und versuchst damit die Liste zu bekommen,
oder Du benötigst ein Progamm (z.B. ein OCX Control) auf allen Frontends, was diesen Job erledigt.
lg Jens
<:: XING-Gruppe Tricktresor::>
Die deutsche Rechtschreibung ist Freeware, du darfst sie kostenlos nutzen –
Aber sie ist nicht Open Source, d. h. du darfst sie nicht verändern oder in veränderter Form veröffentlichen.

Re: Liste der installierten Fonts ermitteln

Beitrag von ewx (Top Expert / 4784 / 294 / 628 ) »
Die Verbindung kann man "irgendwie" mit "irgendeinem" von Stefans Bibliotheken hin bekommen:
http://com.stschnell.de/

Aber da bin ich fachlich nicht kompetent genug... ;)

Re: Liste der installierten Fonts ermitteln

Beitrag von Nordlicht (Specialist / 304 / 8 / 3 ) »
Danke Euch Allen! Damit komme ich wohl weiter ;-)

Re: Liste der installierten Fonts ermitteln

Beitrag von Tron (Top Expert / 1327 / 35 / 331 ) »
... hier ein kleines(20kb) ausführbares Programm von mir.
Es erzeugt eine Textdatei mit den Fontnamen in das gleiche Verzeichnis, wo es ausgeführt wird.
Es sollte mit CL_GUI_FRONTEND_SERVICES=>Execute aufgerufen werden.
Den Rest überlasse ich Dir :wink:
lg Jens
<:: XING-Gruppe Tricktresor::>
Die deutsche Rechtschreibung ist Freeware, du darfst sie kostenlos nutzen –
Aber sie ist nicht Open Source, d. h. du darfst sie nicht verändern oder in veränderter Form veröffentlichen.

Re: Liste der installierten Fonts ermitteln

Beitrag von Tron (Top Expert / 1327 / 35 / 331 ) »
Ach ja...
http://www.tricktresor.de/blog/binfile2abap/
oder das kleine Progrämmchen als ABAP Extension !
Optimal !
lg Jens
<:: XING-Gruppe Tricktresor::>
Die deutsche Rechtschreibung ist Freeware, du darfst sie kostenlos nutzen –
Aber sie ist nicht Open Source, d. h. du darfst sie nicht verändern oder in veränderter Form veröffentlichen.

Re: Liste der installierten Fonts ermitteln

Beitrag von Tron (Top Expert / 1327 / 35 / 331 ) »
... Hier nun das FERTIGE ABAP !!!
Ich habe das Zielverzeichnis auf C:\temp gesetzt.
Es ist ratsam zu prüfen, ob im späteren Verlauf die EXE nicht schon im Verzeichnis ist, das erspart dann Zeit.
Dann ist auch der Virenscanner nicht "so überrascht" !

Code: Alles auswählen.

  :
  :
  DATA lv_exist(1).
*  abap_true      TYPE abap_bool VALUE 'X',
*  abap_false     TYPE abap_bool VALUE ' ',

  CONCATENATE l_workdir '\' l_filename INTO l_filepath.

  CALL METHOD cl_gui_frontend_services=>file_exist
    EXPORTING
      file                 = l_filepath
    RECEIVING
      result               = lv_exist
    EXCEPTIONS
      cntl_error           = 1
      error_no_gui         = 2
      wrong_parameter      = 3
      not_supported_by_gui = 4
      OTHERS               = 5.

  IF sy-subrc <> 0.
  ENDIF.

  IF lv_exist IS INITIAL.


    "-Store file----------------------------------------------------------
    CALL FUNCTION 'SCMS_XSTRING_TO_BINARY'
      EXPORTING
        buffer        = l_file
      IMPORTING
        output_length = l_len
      TABLES
        binary_tab    = l_dtab.

    CALL FUNCTION 'GUI_DOWNLOAD'
      EXPORTING
        bin_filesize = l_len
        filename     = l_filepath
        filetype     = 'BIN'
      TABLES
        data_tab     = l_dtab
      EXCEPTIONS
        OTHERS       = 1.

  ENDIF.


  "-Execute file--------------------------------------------------------
  CALL METHOD cl_gui_frontend_services=>execute
  :
  :
  :

Das Ergebnis ist dann in lt_fontlist.
(man sollte ggf. auch noch den Virenscanner einstellen)
lg jens
<:: XING-Gruppe Tricktresor::>
Die deutsche Rechtschreibung ist Freeware, du darfst sie kostenlos nutzen –
Aber sie ist nicht Open Source, d. h. du darfst sie nicht verändern oder in veränderter Form veröffentlichen.

Seite 1 von 1

Vergleichbare Themen

0
Antw.
1129
Views
welche Fonts sind für Texte in Trees verfügbar?
von flashback » 28.04.2005 15:00 • Verfasst in ABAP Objects®
1
Antw.
2427
Views
Dialogsteuerung Liste->Dynpro->Liste sy-ucomm
von cut1 » 08.12.2006 14:28 • Verfasst in Dialogprogrammierung
2
Antw.
4213
Views
Bilanzdaten ermitteln Bilanzpositionen ermitteln
von Blueshape » 19.01.2006 11:31 • Verfasst in Financials
0
Antw.
1339
Views
Bilanzdaten ermitteln Bilanzpositionen ermitteln
von Blueshape » 20.01.2006 09:12 • Verfasst in ABAP® Core
3
Antw.
3770
Views
Screen->Liste->Screen und dann wieder Liste???
von dimes » 19.07.2007 15:19 • Verfasst in Dialogprogrammierung

Über diesen Beitrag


Unterstütze die Community und teile den Beitrag für mehr Leser und Austausch

Newsletter Anmeldung

Keine Beiträge verpassen! Wöchentlich versenden wir lesenwerte Beiträge aus unserer Community.
Die letzte Ausgabe findest du hier.
Details zum Versandverfahren und zu Ihren Widerrufsmöglichkeiten findest du in unserer Datenschutzerklärung.

Unbeantwortete Forenbeiträge

Zwischensumme Adobe Forms
vor 3 Tagen von Lucyalison 1 / 71
Group Items auf einer Filterbar
vor einer Woche von Bright4.5 1 / 111
tRFC Transaktionen SM58
vor 4 Wochen von A6272 1 / 141