Liste der installierten Fonts ermitteln
9 Beiträge
•
Seite 1 von 1
9 Beiträge
Seite 1 von 1
gesponsert ⓘ
Stellenangebote auf ABAPforum.com schalten
kostenfrei für Ausbildungsberufe und Werksstudenten
kostenfrei für Ausbildungsberufe und Werksstudenten
Hallo Burkhart
Schau dir mal folgendes an. Gibt dir eine Liste aller Files ( also schrift.ttf ) zurück.
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.
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
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.
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.
Die Verbindung kann man "irgendwie" mit "irgendeinem" von Stefans Bibliotheken hin bekommen:
http://com.stschnell.de/
Aber da bin ich fachlich nicht kompetent genug...
http://com.stschnell.de/
Aber da bin ich fachlich nicht kompetent genug...
... 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
lg Jens
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
lg Jens
Du hast keine ausreichende Berechtigung, um die Dateianhänge dieses Beitrags anzusehen.
<:: 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.
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.
Ach ja...
http://www.tricktresor.de/blog/binfile2abap/
oder das kleine Progrämmchen als ABAP Extension !
Optimal !
lg Jens
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.
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.
... 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" !
Das Ergebnis ist dann in lt_fontlist.
(man sollte ggf. auch noch den Virenscanner einstellen)
lg jens
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
Du hast keine ausreichende Berechtigung, um die Dateianhänge dieses Beitrags anzusehen.
<:: 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.
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.
Antw.
1226
Views
Views
welche Fonts sind für Texte in Trees verfügbar?
von flashback » 28.04.2005 15:00 • Verfasst in ABAP Objects®
von flashback » 28.04.2005 15:00 • Verfasst in ABAP Objects®
1
Antw.
Antw.
2704
Views
Views
Dialogsteuerung Liste->Dynpro->Liste sy-ucomm
von cut1 » 08.12.2006 14:28 • Verfasst in Dialogprogrammierung
von cut1 » 08.12.2006 14:28 • Verfasst in Dialogprogrammierung
0
Antw.
Antw.
1566
Views
Views
Bilanzdaten ermitteln Bilanzpositionen ermitteln
von Blueshape » 20.01.2006 09:12 • Verfasst in ABAP® Core
von Blueshape » 20.01.2006 09:12 • Verfasst in ABAP® Core
2
Antw.
Antw.
4526
Views
Views
Bilanzdaten ermitteln Bilanzpositionen ermitteln
von Blueshape » 19.01.2006 11:31 • Verfasst in Financials
von Blueshape » 19.01.2006 11:31 • Verfasst in Financials
3
Antw.
Antw.
3978
Views
Views
Screen->Liste->Screen und dann wieder Liste???
von dimes » 19.07.2007 15:19 • Verfasst in Dialogprogrammierung
von dimes » 19.07.2007 15:19 • Verfasst in Dialogprogrammierung
Frage die ABAP Experten
Über diesen Beitrag
Unterstütze die Community und teile den Beitrag für mehr Leser und Austausch
Aktuelle Forenbeiträge
Nach Transport von Stellen über RHMOVE30 nur Planvariante "nie verwenden"
vor 3 Stunden von DeathAndPain 4 / 529
vor 3 Stunden von DeathAndPain 4 / 529
Newsletter Anmeldung
Keine Beiträge verpassen! Wöchentlich versenden wir lesenwerte Beiträge aus unserer Community.Die letzte Ausgabe findest du hier.
Aktuelle Forenbeiträge
Nach Transport von Stellen über RHMOVE30 nur Planvariante "nie verwenden"
vor 3 Stunden von DeathAndPain 4 / 529
vor 3 Stunden von DeathAndPain 4 / 529