KaFu 193 Posted January 13, 2011 (edited) Hiho Forum ,after reading this excellent article on how to embed TrueType Fonts in your script by eukalyptus in the German Board I wondered how to acquire the font's name for the subsequent operations in the example file (setting the font). It seems there is no solution available for that up to now (except the manual way by opening the font file with a respective viewer and note down the name ).expandcollapse popup#include <WinApi.au3> $sFile = FileOpenDialog("Select True Type Font", @ScriptDir, "All (*.*)", 1) If @error Then Exit $sFontname = _TrueType_Font_Extract_FontFamilyName($sFile) If @error Then ConsoleWrite(@CRLF & "! Function returned error: " & @error & @CRLF & @CRLF) Else ConsoleWrite(@CRLF & "+ Fontname extracted: " & $sFontname & @CRLF & @CRLF) EndIf Func _TrueType_Font_Extract_FontFamilyName($sFile, $bDebug = False) ; =============================================================================================================================== ; ; Function to extract the "Font Family Name" from a TrueType 1.0 font ; ; References: ; Based on this article: ; http://www.codeproject.com/KB/GDI/fontnamefromfile.aspx ; ; MS OpenType Font Specificatons: ; http://www.microsoft.com/typography/otspec/default.htm ; http://www.microsoft.com/typography/otspec/name.htm ; ; Author: KaFu ; ; =============================================================================================================================== If Not FileExists($sFile) Then Return SetError(1, 0, 0) Local $hFile, $sFontname $hFile = FileOpen($sFile, 16) #cs typedef struct _tagTT_OFFSET_TABLE{ USHORT uMajorVersion; USHORT uMinorVersion; USHORT uNumOfTables; USHORT uSearchRange; USHORT uEntrySelector; USHORT uRangeShift; }TT_OFFSET_TABLE; #ce If $bDebug Then ConsoleWrite("+ $str_TT_OFFSET_TABLE" & @CRLF & "=================" & @CRLF) Local $tag_TT_OFFSET_TABLE = "USHORT uMajorVersion;USHORT uMinorVersion;USHORT uNumOfTables;USHORT uSearchRange;USHORT uEntrySelector;USHORT uRangeShift;" Local $str_TT_OFFSET_TABLE = DllStructCreate($tag_TT_OFFSET_TABLE) DllStructSetData($str_TT_OFFSET_TABLE, "uMajorVersion", _SwapWord(FileRead($hFile, 2))) DllStructSetData($str_TT_OFFSET_TABLE, "uMinorVersion", _SwapWord(FileRead($hFile, 2))) DllStructSetData($str_TT_OFFSET_TABLE, "uNumOfTables", _SwapWord(FileRead($hFile, 2))) DllStructSetData($str_TT_OFFSET_TABLE, "uSearchRange", _SwapWord(FileRead($hFile, 2))) DllStructSetData($str_TT_OFFSET_TABLE, "uEntrySelector", _SwapWord(FileRead($hFile, 2))) DllStructSetData($str_TT_OFFSET_TABLE, "uRangeShift", _SwapWord(FileRead($hFile, 2))) If $bDebug Then ConsoleWrite("uMajorVersion: " & DllStructGetData($str_TT_OFFSET_TABLE, "uMajorVersion") & @CRLF) If $bDebug Then ConsoleWrite("uMinorVersion :" & DllStructGetData($str_TT_OFFSET_TABLE, "uMinorVersion") & @CRLF) If $bDebug Then ConsoleWrite("uNumOfTables :" & DllStructGetData($str_TT_OFFSET_TABLE, "uNumOfTables") & @CRLF) If $bDebug Then ConsoleWrite("uSearchRange :" & DllStructGetData($str_TT_OFFSET_TABLE, "uSearchRange") & @CRLF) If $bDebug Then ConsoleWrite("uEntrySelector :" & DllStructGetData($str_TT_OFFSET_TABLE, "uEntrySelector") & @CRLF) If $bDebug Then ConsoleWrite("uRangeShift :" & DllStructGetData($str_TT_OFFSET_TABLE, "uRangeShift") & @CRLF & @CRLF) ; //check is this is a true type font and the version is 1.0 If not ((DllStructGetData($str_TT_OFFSET_TABLE, "uMajorVersion") = 1) AND (DllStructGetData($str_TT_OFFSET_TABLE, "uMinorVersion") = 0)) Then FileClose($hFile) Return SetError(2, 0, 0) EndIf #cs typedef struct _tagTT_TABLE_DIRECTORY{ char szTag[4]; //table name ULONG uCheckSum; //Check sum ULONG uOffset; //Offset from beginning of file ULONG uLength; //length of the table in bytes }TT_TABLE_DIRECTORY; #ce If $bDebug Then ConsoleWrite(@CRLF & "+ $str_TT_TABLE_DIRECTORY_Name" & @CRLF & "=================" & @CRLF) Local $tag_TT_TABLE_DIRECTORY = "char szTag[4];ULONG uChecksum;ULONG uOffset;ULONG uLength" Local $str_TT_TABLE_DIRECTORY_Name = DllStructCreate($tag_TT_TABLE_DIRECTORY) Local $a_TT_TABLE_DIRECTORY[DllStructGetData($str_TT_OFFSET_TABLE, "uNumOfTables")] For $i = 0 To DllStructGetData($str_TT_OFFSET_TABLE, "uNumOfTables") - 1 $a_TT_TABLE_DIRECTORY[$i] = DllStructCreate($tag_TT_TABLE_DIRECTORY) DllStructSetData($a_TT_TABLE_DIRECTORY[$i], 1, BinaryToString(FileRead($hFile, 4))) If $bDebug Then ConsoleWrite("szTag: " & DllStructGetData($a_TT_TABLE_DIRECTORY[$i], 1) & @CRLF) If DllStructGetData($a_TT_TABLE_DIRECTORY[$i], 1) = "name" Then DllStructSetData($str_TT_TABLE_DIRECTORY_Name, "szTag", DllStructGetData($a_TT_TABLE_DIRECTORY[$i], 1)) DllStructSetData($str_TT_TABLE_DIRECTORY_Name, "uChecksum", _WinAPI_SwapLong(FileRead($hFile, 4))) DllStructSetData($str_TT_TABLE_DIRECTORY_Name, "uOffset", _WinAPI_SwapLong(FileRead($hFile, 4))) DllStructSetData($str_TT_TABLE_DIRECTORY_Name, "uLength", _WinAPI_SwapLong(FileRead($hFile, 4))) $a_TT_TABLE_DIRECTORY[$i] = 0 ExitLoop EndIf $a_TT_TABLE_DIRECTORY[$i] = 0 FileRead($hFile, 12) #cs DllStructSetData($a_TT_TABLE_DIRECTORY[$i], 2, FileRead($hFile, 4)) DllStructSetData($a_TT_TABLE_DIRECTORY[$i], 3, FileRead($hFile, 4)) DllStructSetData($a_TT_TABLE_DIRECTORY[$i], 4, FileRead($hFile, 4)) #ce Next $a_TT_TABLE_DIRECTORY = 0 If $bDebug Then ConsoleWrite("szTag: " & DllStructGetData($str_TT_TABLE_DIRECTORY_Name, "szTag") & @CRLF) If $bDebug Then ConsoleWrite("uChecksum: " & DllStructGetData($str_TT_TABLE_DIRECTORY_Name, "uChecksum") & @CRLF) If $bDebug Then ConsoleWrite("uOffset: " & DllStructGetData($str_TT_TABLE_DIRECTORY_Name, "uOffset") & @CRLF) If $bDebug Then ConsoleWrite("uLength: " & DllStructGetData($str_TT_TABLE_DIRECTORY_Name, "uLength") & @CRLF) #cs typedef struct _tagTT_NAME_TABLE_HEADER{ USHORT uFSelector; //format selector. Always 0 USHORT uNRCount; //Name Records count USHORT uStorageOffset; //Offset for strings storage, //from start of the table }TT_NAME_TABLE_HEADER; #ce If $bDebug Then ConsoleWrite(@CRLF & "+ $str_TT_NAME_TABLE_HEADER" & @CRLF & "=================" & @CRLF) Local $tag_TT_NAME_TABLE_HEADER = "USHORT uFSelector; USHORT uNRCount;USHORT uStorageOffset" Local $str_TT_NAME_TABLE_HEADER = DllStructCreate($tag_TT_NAME_TABLE_HEADER) FileSetPos($hFile, DllStructGetData($str_TT_TABLE_DIRECTORY_Name, "uOffset"), 0) DllStructSetData($str_TT_NAME_TABLE_HEADER, "uFSelector", _SwapWord(FileRead($hFile, 2))) DllStructSetData($str_TT_NAME_TABLE_HEADER, "uNRCount", _SwapWord(FileRead($hFile, 2))) DllStructSetData($str_TT_NAME_TABLE_HEADER, "uStorageOffset", _SwapWord(FileRead($hFile, 2))) If $bDebug Then ConsoleWrite("uFSelector: " & DllStructGetData($str_TT_NAME_TABLE_HEADER, "uFSelector") & @CRLF) If $bDebug Then ConsoleWrite("uNRCount: " & DllStructGetData($str_TT_NAME_TABLE_HEADER, "uNRCount") & @CRLF) If $bDebug Then ConsoleWrite("uStorageOffset: " & DllStructGetData($str_TT_NAME_TABLE_HEADER, "uStorageOffset") & @CRLF) #cs typedef struct _tagTT_NAME_RECORD{ USHORT uPlatformID; USHORT uEncodingID; USHORT uLanguageID; USHORT uNameID; USHORT uStringLength; USHORT uStringOffset; //from start of storage area }TT_NAME_RECORD; #ce Local $tag_TT_NAME_RECORD = "USHORT uPlatformID;USHORT uEncodingID;USHORT uLanguageID;USHORT uNameID;USHORT uStringLength;USHORT uStringOffset" For $i = 0 To DllStructGetData($str_TT_NAME_TABLE_HEADER, "uNRCount") - 1 If $bDebug Then ConsoleWrite(@CRLF & "+ $str_TT_NAME_RECORD #" & $i + 1 & @CRLF & "=================" & @CRLF) $str_TT_NAME_RECORD = DllStructCreate($tag_TT_NAME_RECORD) DllStructSetData($str_TT_NAME_RECORD, "uPlatformID", _SwapWord(FileRead($hFile, 2))) DllStructSetData($str_TT_NAME_RECORD, "uEncodingID", _SwapWord(FileRead($hFile, 2))) DllStructSetData($str_TT_NAME_RECORD, "uLanguageID", _SwapWord(FileRead($hFile, 2))) DllStructSetData($str_TT_NAME_RECORD, "uNameID", _SwapWord(FileRead($hFile, 2))) DllStructSetData($str_TT_NAME_RECORD, "uStringLength", _SwapWord(FileRead($hFile, 2))) DllStructSetData($str_TT_NAME_RECORD, "uStringOffset", _SwapWord(FileRead($hFile, 2))) If $bDebug Then ConsoleWrite("uPlatformID: " & DllStructGetData($str_TT_NAME_RECORD, "uPlatformID") & @CRLF) If $bDebug Then ConsoleWrite("uEncodingID: " & DllStructGetData($str_TT_NAME_RECORD, "uEncodingID") & @CRLF) If $bDebug Then ConsoleWrite("uLanguageID: " & DllStructGetData($str_TT_NAME_RECORD, "uLanguageID") & @CRLF) If $bDebug Then ConsoleWrite("uNameID: " & DllStructGetData($str_TT_NAME_RECORD, "uNameID") & @CRLF) If $bDebug Then ConsoleWrite("uStringLength: " & DllStructGetData($str_TT_NAME_RECORD, "uStringLength") & @CRLF) If $bDebug Then ConsoleWrite("uStringOffset: " & DllStructGetData($str_TT_NAME_RECORD, "uStringOffset") & @CRLF & @CRLF) If DllStructGetData($str_TT_NAME_RECORD, "uNameID") = 1 Then ; Should contain the "Font Family name" => look under "Name IDs" at http://www.microsoft.com/typography/otspec/name.htm $iFileReadPosition_Save = FileGetPos($hFile) If $bDebug Then ConsoleWrite("- Offset #1: " & DllStructGetData($str_TT_TABLE_DIRECTORY_Name, "uOffset") & @CRLF) If $bDebug Then ConsoleWrite("- Offset #1: " & DllStructGetData($str_TT_NAME_TABLE_HEADER, "uStorageOffset") & @CRLF) If $bDebug Then ConsoleWrite("- Offset #1: " & DllStructGetData($str_TT_NAME_RECORD, "uStringOffset") & @CRLF) If $bDebug Then ConsoleWrite("! Offset Total: " & DllStructGetData($str_TT_TABLE_DIRECTORY_Name, "uOffset") + DllStructGetData($str_TT_NAME_TABLE_HEADER, "uStorageOffset") + DllStructGetData($str_TT_NAME_RECORD, "uStringOffset") & @CRLF) FileSetPos($hFile, DllStructGetData($str_TT_TABLE_DIRECTORY_Name, "uOffset") + DllStructGetData($str_TT_NAME_TABLE_HEADER, "uStorageOffset") + DllStructGetData($str_TT_NAME_RECORD, "uStringOffset"), 0) $sFontname = BinaryToString(FileRead($hFile, DllStructGetData($str_TT_NAME_RECORD, "uStringLength")), 4) If StringIsASCII($sFontname) Then If $bDebug Then ConsoleWrite(@CRLF & "+ sFontName found: " & $sFontname & @CRLF) If $bDebug Then ConsoleWrite(@CRLF) $str_TT_NAME_RECORD = 0 ExitLoop ; according to the article the loop can be exited here... if the Fontname is found... EndIf $sFontname = "" FileSetPos($hFile, $iFileReadPosition_Save, 0) EndIf $str_TT_NAME_RECORD = 0 Next FileClose($hFile) If $sFontname Then Return $sFontname Return SetError(3, 0, 0) EndFunc ;==>_TrueType_Font_Extract_FontFamilyName ; #define SWAPWORD(x) MAKEWORD(HIBYTE(x), LOBYTE(x)) Func _SwapWord($iValue) Return _MakeWord(BitShift($iValue, 8), BitAND($iValue, 0xFF)) EndFunc ;==>_SwapWord Func _MakeWord($LoByte, $HiByte) Return BitOR($LoByte, 0x100 * $HiByte) EndFunc ;==>_MakeWord Func _WinAPI_SwapLong($iValue) ; #define SWAPLONG(x) MAKELONG(SWAPWORD(HIWORD(x)), SWAPWORD(LOWORD(x))) Return _WinAPI_MakeLong(_SwapWord(_WinAPI_HiWord($iValue)), _SwapWord(_WinAPI_LoWord($iValue))) EndFunc ;==>_WinAPI_SwapLongEdit: Corrected spelling typosRegards Edited January 13, 2011 by KaFu OS: Win10-1803 - 64bit - German, AutoIt Version: 3.3.14.5, AutoIt Editor: SciTE, Website: http://www.funk.eu, My unsolved Questions: Get default Window Size and Position, Rotate display by 270 degrees, Get Systray Icons, ... AMT - Auto-Movie-Thumbnailer (2018-Sep-21) COP - Color Picker (2009-May-21) HMW - Hide my Windows (2018-Sep-16) HRC - HotKey Resolution Changer (2012-May-16) ICU - Icon Configuration Utility (2018-Sep-16) SMF - Search my Files (2018-Sep-16) - THE file info and duplicates search tool SSD - Set Sound Device (2017-Sep-16) Share this post Link to post Share on other sites
Yashied 203 Posted January 13, 2011 (edited) Why not use the API?expandcollapse popup#Include <FontConstants.au3> #Include <WinAPIEx.au3> $sFile = FileOpenDialog('Browse Font File', @ScriptDir, 'Font Files (*.ttf;*.ttc;*.otf;*.otc;*.pfm;*.pfb)|All Files (*.*)', 1 + 2) If Not $sFile Then Exit EndIf Switch StringRegExpReplace($sFile, '^.*\.', '') Case 'pfm', 'pfb' $sFile = StringRegExpReplace($sFile, '\.[^.]*\Z', '.pfm') & '|' & StringRegExpReplace($sFile, '\.[^.]*\Z', '.pfb') Case Else EndSwitch $sFont = _WinAPI_GetFontResourceInfo($sFile, 1) If Not $sFont Then Exit EndIf _WinAPI_AddFontResourceEx($sFile, $FR_PRIVATE) $hFont = _WinAPI_CreateFont(12, 0, 0, 0, $FW_NORMAL , 0, 0, 0, $DEFAULT_CHARSET, $OUT_DEFAULT_PRECIS, $CLIP_DEFAULT_PRECIS, $ANTIALIASED_QUALITY, $DEFAULT_PITCH, $sFont) $hDC = _WinAPI_GetDC(0) $hSv = _WinAPI_SelectObject($hDC, $hFont) $tOLTM = _WinAPI_GetOutlineTextMetrics($hDC) _WinAPI_SelectObject($hDC, $hSv) _WinAPI_ReleaseDC(0, $hDC) _WinAPI_DeleteObject($hFont) _WinAPI_RemoveFontResourceEx($sFile, $FR_PRIVATE) ConsoleWrite('Family name: ' & _otm($tOLTM, 'otmFamilyName') & @CR) ConsoleWrite('Style name ' & _otm($tOLTM, 'otmStyleName') & @CR) ConsoleWrite('Typeface name: ' & _otm($tOLTM, 'otmFaceName') & @CR) ConsoleWrite('Full name: ' & _otm($tOLTM, 'otmFullName') & @CR) ConsoleWrite('Nature: ' & DllStructGetData($tOLTM, 'otmSelection') & @CR) ConsoleWrite('License: ' & DllStructGetData($tOLTM, 'otmType') & @CR) Func _otm(ByRef $tOLTM, $sName) Return DllStructGetData(DllStructCreate('wchar[' & (_WinAPI_StrLen(DllStructGetPtr($tOLTM) + DllStructGetData($tOLTM, $sName)) + 1) & ']', DllStructGetPtr($tOLTM) + DllStructGetData($tOLTM, $sName)), 1) EndFunc ;==>_otmOr#Include <Array.au3> #Include <File.au3> #Include <WinAPIEx.au3> Global $FileList = _FileListToArray(_WinAPI_ShellGetSpecialFolderPath($CSIDL_FONTS), '*.ttf', 1) Global $FontList[UBound($FileList) - 1][2] For $i = 1 To $FileList[0] $FontList[$i - 1][0] = $FileList[$i] $FontList[$i - 1][1] = _WinAPI_GetFontResourceInfo($FileList[$i], 1) Next _ArrayDisplay($FontList) Edited January 13, 2011 by Yashied My UDFs:iKey | FTP Uploader | Battery Checker | Boot Manager | Font Viewer | UDF Keyword Manager | Run Dialog Replacement | USBProtect | 3D Axis | Calculator | Sleep | iSwitcher | TM | NetHelper | File Types Manager | Control Viewer | SynFolders | DLL HelperAnimated Tray Icons UDF Library | Hotkeys UDF Library | Hotkeys Input Control UDF Library | Caret Shape UDF Library | Context Help UDF Library | Most Recently Used List UDF Library | Icons UDF Library | FTP UDF Library | Script Communications UDF Library | Color Chooser UDF Library | Color Picker Control UDF Library | IPHelper (Vista/7) UDF Library | WinAPI Extended UDF Library | WinAPIVhd UDF Library | Icon Chooser UDF Library | Copy UDF Library | Restart UDF Library | Event Log UDF Library | NotifyBox UDF Library | Pop-up Windows UDF Library | TVExplorer UDF Library | GuiHotKey UDF Library | GuiSysLink UDF Library | Package UDF Library | Skin UDF Library | AITray UDF Library | RDC UDF LibraryAppropriate path | Button text color | Gaussian random numbers | Header's styles (Vista/7) | ICON resource enumeration | Menu & INI | Tabbed string size | Tab's skin | Pop-up circular menu | Progress Bar without animation (Vista/7) | Registry export | Registry path jumping | Unique hardware ID | Windows alignmentMore... Share this post Link to post Share on other sites
KaFu 193 Posted January 13, 2011 Why not use the API?Because I like it the hard way ... and I didn't knew about these api calls ... thanks for the heads-up ! OS: Win10-1803 - 64bit - German, AutoIt Version: 3.3.14.5, AutoIt Editor: SciTE, Website: http://www.funk.eu, My unsolved Questions: Get default Window Size and Position, Rotate display by 270 degrees, Get Systray Icons, ... AMT - Auto-Movie-Thumbnailer (2018-Sep-21) COP - Color Picker (2009-May-21) HMW - Hide my Windows (2018-Sep-16) HRC - HotKey Resolution Changer (2012-May-16) ICU - Icon Configuration Utility (2018-Sep-16) SMF - Search my Files (2018-Sep-16) - THE file info and duplicates search tool SSD - Set Sound Device (2017-Sep-16) Share this post Link to post Share on other sites
trancexx 941 Posted January 13, 2011 Fonts were on my menu some time ago. because it's just me showing off since KaFu you said "up to now". ♡♡♡ . eMyvnE Share this post Link to post Share on other sites
KaFu 193 Posted January 13, 2011 Fonts were on my menu some time ago. because it's just me showing off since KaFu you said "up to now".Seeing your name as the last respondent I would have bet to read a bitchy comment on "the hard way" ... Okay, seems like I reinvented the wheel... again . But at least I've learned a lot doing it on my own ... and added some more useful tags for others to search for. OS: Win10-1803 - 64bit - German, AutoIt Version: 3.3.14.5, AutoIt Editor: SciTE, Website: http://www.funk.eu, My unsolved Questions: Get default Window Size and Position, Rotate display by 270 degrees, Get Systray Icons, ... AMT - Auto-Movie-Thumbnailer (2018-Sep-21) COP - Color Picker (2009-May-21) HMW - Hide my Windows (2018-Sep-16) HRC - HotKey Resolution Changer (2012-May-16) ICU - Icon Configuration Utility (2018-Sep-16) SMF - Search my Files (2018-Sep-16) - THE file info and duplicates search tool SSD - Set Sound Device (2017-Sep-16) Share this post Link to post Share on other sites
trancexx 941 Posted January 13, 2011 But at least I've learned a lot doing it on my own That's great thing.You really hurt my feelings with that "bitchy" remark. ♡♡♡ . eMyvnE Share this post Link to post Share on other sites
KaFu 193 Posted January 13, 2011 No offense meant (well, at least no really offending offense ), that's what my translator spat out for "bissig" > "acid-tongued"... OS: Win10-1803 - 64bit - German, AutoIt Version: 3.3.14.5, AutoIt Editor: SciTE, Website: http://www.funk.eu, My unsolved Questions: Get default Window Size and Position, Rotate display by 270 degrees, Get Systray Icons, ... AMT - Auto-Movie-Thumbnailer (2018-Sep-21) COP - Color Picker (2009-May-21) HMW - Hide my Windows (2018-Sep-16) HRC - HotKey Resolution Changer (2012-May-16) ICU - Icon Configuration Utility (2018-Sep-16) SMF - Search my Files (2018-Sep-16) - THE file info and duplicates search tool SSD - Set Sound Device (2017-Sep-16) Share this post Link to post Share on other sites
trancexx 941 Posted January 14, 2011 Tell that to little angel who died because of you. ♡♡♡ . eMyvnE Share this post Link to post Share on other sites
