Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: Общие вопросы > Как узнать имя шрифта, если известно имя файла ?

Автор: p0s0l 1.5.2004, 14:47

Вот пример кода:

Код


  AddFontResourceEx(FileName, FR_PRIVATE, 0);
  Image1.Picture.Bitmap.Canvas.Font.Name := ???;
  Image1.Picture.Bitmap.Canvas.Font.Size := 14;
  Image1.Picture.Bitmap.Canvas.TextOut(0, 0, 'ABC abc 123 АБВ абв');
  RemoveFontResourceEx(FileName, FR_PRIVATE, 0);

Во второй строке надо указать имя фонта (но не имя файла)... Как его узнать ?
Я заранее не знаю имя шрифта...

Автор: Vit 1.5.2004, 22:17

Приходит на ум - сделать список шрифтов до добавления и после и сравнить... дегенератизм но похоже в MS специально сделали поддержку шрифтов так чтоб не добраться...

Автор: p0s0l 2.5.2004, 15:53

Но как-то же fontview.exe показывает шрифт ? Посмотрел в импорте - есть AddFontResource, но никаких FontEnum*'ов нет... Есть и RemoveFontResource... И самое интересное - есть какая-то GetFontResourceInfo, описание которой специально опустили в MSDN'е (что-то они там с авторскими правами закрутили...)... Где бы надыбать описаловку этой функции ?

Автор: x77 4.5.2004, 11:17

p0s0l, по-моему, FontView работает через EnumFont, или, скорее, через EnumFontFamilies. ему то не надо знать конкретное имя.

может, тебе выделить загрузку шрифтов отдельно, потом генерить их список, и уже потом пусть юзверь выбирает из этого списка имя и этим шрифтом рисует?

ты бы сказал про задачку подробнее. как-то же можно наверняка обойти.

Автор: p0s0l 6.5.2004, 12:53

x77, у меня есть 4000 шрифтов, и надо найти среди них покрасивее. Т.к. винда английская FontView в примере пишет только английскими буквами. А мне надо русские шрифты... ACDSEE пишет "Font" - тоже не то...
Но проблему уже решил двумя способами:
1) в FontView поменял выводимую строку на свою
2) Искал в инете инфу об GetFontResourceInfo - находились только аналогичные вопросы в других форумах (и почему-то без ответов)... Методом дебагера и тыка выяснил кол-во и назначение параметров этой функции. Мало ли, кому в будущем пригодится:
function GetFontResourceInfoW (FontPath : PWideChar; var BufSize : DWORD; FontName : PWideChar; dwFlags : DWORD) : DWORD; stdcall; external 'GDI32.DLL';
1-ый параметр - указатель на Wide-строку, содержащую путь к файлу шрифта;
2-ой параметр - указатель на DWORD-переменную, содержащую размер выходного буфера. После выполнения функции в этой переменной будет содержаться необходимая длина буфера;
3-ий параметр - указатель на буфер, в случае успешного выполнения будет содержать Wide-строку имени шрифта;
4-ый параметр - какие-то флаги, если рыться в функции GetFontResourceInfoW особым случаем является когда dwFlags=4, но зачем это, я так и не понял - в результате будет возвращен тот же путь к файлу; ну а для получения имени шрифта флаг должен быть равен 1.

Код

function GetFontName (FontFileA : PChar) : String;
type
  TGetFontResourceInfoW = function (FontPath : PWideChar; var BufSize : DWORD; FontName : PWideChar; dwFlags : DWORD) : DWORD; stdcall;
var
  GetFontResourceInfoW : TGetFontResourceInfoW;
  FontFileW : PWideChar;
  FontNameW : PWideChar;
  FontFileWSize, FontNameSize : DWORD;

begin
  Result := '';
  GetFontResourceInfoW := GetProcAddress(GetModuleHandle('gdi32.dll'), 'GetFontResourceInfoW');
  if @GetFontResourceInfoW = nil then Exit;
  if AddFontResource(FontFileA) = 0 then Exit;

  FontFileWSize := (Length(FontFileA)+1)*2;
  GetMem(FontFileW, FontFileWSize);
  StringToWideChar(FontFileA, FontFileW, FontFileWSize);

  FontNameSize := 0;
  FontNameW := nil;
  GetFontResourceInfoW (FontFileW, FontNameSize, FontNameW, 1);
  GetMem (FontNameW, FontNameSize);
  FontNameW^ := #0; // на случай какого-нибудь облома
  GetFontResourceInfoW (FontFileW, FontNameSize, FontNameW, 1);

  Result := FontNameW;
  FreeMem (FontFileW);
  FreeMem (FontNameW);

  RemoveFontResource(FontFileA);
end;

Пример вызова: GetFontName('C:\MyFonts\FUTURA.TTF') - возвратит 'FuturaEugenia'.

PS: Всё бы хорошо, но эта функция хоть и есть в Win9x, только её там вызывать нельзя - пишет "This function is only valid in Windows NT mode."...
FontView в Win9x использует EnumFontFamiliesEx (видимо по предложенному Vit'ом и x77 способу)...
FontView в WinNT использует GetFontResourceInfo (в импорте вообще нет EnumFontFamiliesEx или других Enum*)...

Автор: -Сергей- 8.5.2004, 15:16

Ну ты определяй тип винды. Если 9х - то юзай EnumFontFamiliesEx, а если НТ, то GetFontResourceInfo.
Или я не то понял?

Автор: Medved 8.5.2004, 21:59

Да это и ёжику понятно -Сергей-, Посол просто сетует на то, что в Win9x эта функция неработает.

Автор: Igor_thief 7.8.2008, 22:02

p0s0l, dwFlgs

Specifies the type of resouce information to return. This parameter can be one of the following values.
Value    Meaning
QFR_0
0    DWORD or LPVOID
unknown
QFR_DESCRIPTION
1    The function provides a string that an NT-based operating system will use to describe the font file. A null-terminated Unicode string is written to the buffer pointed to by lpBuffer.
QFR_LOGFONT
2    Array of LOGFONT
QFR_PDEV
3    PDEV ?
QFR_FONTFILE
4    scalable font file name
QFR_5
5    DWORD
Windows XP: Always returns 0

Спасибо большое за невероятно полезную функцию!