如何在.NET中创建子集字体？

Question

我有一个Silverlight应用程序，我需要嵌入一些不常见的字体。这对我来说很简单，只需复制TTF / OTF并用我的应用程序编译。 但是，在许多情况下，实际上只使用了5-10个字符。 在其他情况下，一些字体文件非常大（例如Arial Unicode MS Regular是22.1 MB）。 我的应用程序的快速下载时间非常重要，因此优化使用的字体至关重要。

所以，我在想的是我在Expression Blend等应用程序中看到过， <Glyph/> 用于创建只读字体 ，你也可以选择只嵌入某些字符。 在其他情况下，我看到人们使用仅包含某些字符的字体作为完整字体的子集（而不是在Silverlight中使用<Glyph/> ，而只是使用子集.TTF作为<FontFamily/> 。）这就是我所追求的，除了我没有使用表达式。

我不是在寻找偷偷摸摸的解决方法，比如导出到XPS文件并抓取.odtff文件。

是否有一种编程方式（.NET / GDI +）来创建只包含某些字符的字体子集并将其编译为.TTF / .OTF？ 此外，这也需要适用于.TTC文件。

Answer 1

原生API CreateFontPackage可能正是您要寻找的。 您可以传递TTF和要保留的字符列表。 如果您为usSubsetFormat传递TTFCFP_SUBSET ，那么您将获得仅包含这些字符的工作TTF。

这是一个线程 ，看似是一个工作示例的代码（不幸的是在C中）。

Answer 2

在WPF中，字体有静态和动态链接。 这一切都可以在Blend中定义。 使用字体的静态链接，只需编译所需的字符并将其嵌入到程序集中。 通过动态链接，嵌入了所有字体集。 因此，尝试为所选字体设置静态链接，并尝试它是否有效。

UPD

尝试将以下代码添加到.csproj文件中。 这里我们包括Tahoma字体。 AutoFill属性设置为true表示我们将嵌入仅用于控件的汇编中使用的字符。 <Charachters/>的字符集标记填充点以将这些字符包含到汇编中。 所有其他标签设置为false，因为我们不需要它们。

<ItemGroup>
    <BlendEmbeddedFont Include="Fonts\tahoma.ttf">
      <IsSystemFont>True</IsSystemFont>
      <All>False</All>
      <AutoFill>True</AutoFill>
      <Characters>dasf</Characters>
      <Uppercase>False</Uppercase>
      <Lowercase>False</Lowercase>
      <Numbers>False</Numbers>
      <Punctuation>False</Punctuation>
    </BlendEmbeddedFont>
    <BlendEmbeddedFont Include="Fonts\tahomabd.ttf">
      <IsSystemFont>True</IsSystemFont>
      <All>False</All>
      <AutoFill>True</AutoFill>
      <Characters>dasf</Characters>
      <Uppercase>False</Uppercase>
      <Lowercase>False</Lowercase>
      <Numbers>False</Numbers>
      <Punctuation>False</Punctuation>
    </BlendEmbeddedFont>
  </ItemGroup>
  <Import Project="$(MSBuildToolsPath)\Microsoft.CSharp.targets" />

  <Import Project="$(MSBuildExtensionsPath)\Microsoft\Expression\Blend\3.0\WPF\Microsoft.Expression.Blend.WPF.targets" />

Answer 3

将接受的答案更改为此答案，因为它是纯.NET而没有外部引用。 使用.NET 4.0：

Imports System.Windows.Media
Imports System.Text.Encoding
Imports System.Collections

Public Sub CreateSubSet(sourceText As String, fontURI As Uri)
    Dim gt As FontEmbeddingManager = New FontEmbeddingManager

    Dim glyphTypeface As GlyphTypeface = New GlyphTypeface(fontURI)
    Dim Index As Generic.ICollection(Of UShort)
    Index = New Generic.List(Of UShort)
    Dim sourceTextBytes As Byte() = Unicode.GetBytes(sourceText)
    Dim sourceTextChars As Char() = Unicode.GetChars(sourceTextBytes)
    Dim sourceTextCharVal As Integer
    Dim glyphIndex As Integer
    For sourceTextCharPos = 0 To UBound(sourceTextChars)
        sourceTextCharVal = AscW(sourceTextChars(sourceTextCharPos))
        glyphIndex = glyphTypeface.CharacterToGlyphMap(sourceTextCharVal)
        Index.Add(glyphIndex)
    Next
    Dim filebytes() As Byte = glyphTypeface.ComputeSubset(Index)
    Using fileStream As New System.IO.FileStream("C:\Users\Me\new-subset.ttf", System.IO.FileMode.Create)
        fileStream.Write(filebytes, 0, filebytes.Length)
    End Using
End Sub

Answer 4

我知道这是一个老问题，但我发现很难使用C＃的CreateFontPackage API（正如@josh3736的回答所提到的）所以我想分享我的代码。

我正在使用带有glyphIndices的API，您可以通过删除TTFCFP_FLAGS_GLYPHLIST标志直接将其与字符一起使用。

这是我的代码：

public byte[] CreateSubset(byte[] inputData, IEnumerable<ushort> glyphIndices)
{
    AllocProc allocProc = Marshal.AllocHGlobal;
    ReallocProc reallocProc = (p, c) =>
        p == IntPtr.Zero
            ? Marshal.AllocHGlobal(c)
            : Marshal.ReAllocHGlobal(p, c);
    FreeProc freeProc = Marshal.FreeHGlobal;

    var resultCode = CreateFontPackage(
        inputData, (uint) inputData.Length,
        out var bufferPtr,
        out _,
        out var bytesWritten,
        TTFCFP_FLAGS_SUBSET | TTFCFP_FLAGS_GLYPHLIST,
        0,
        TTFMFP_SUBSET,
        0,
        TTFCFP_MS_PLATFORMID,
        TTFCFP_UNICODE_CHAR_SET,
        glyphIndices,
        (ushort)glyphIndices.Length,
        allocProc, reallocProc, freeProc, (IntPtr)0);

    if (resultCode != 0 || bufferPtr == IntPtr.Zero)
    {
        return null;
    }

    try
    {
        var buffer = new byte[bytesWritten];
        Marshal.Copy(bufferPtr, buffer, 0, buffer.Length);
        return buffer;
    }
    finally
    {
        freeProc(bufferPtr);
    }
}

internal const ushort TTFCFP_FLAGS_SUBSET = 0x0001;
internal const ushort TTFCFP_FLAGS_COMPRESS = 0x0002;
internal const ushort TTFCFP_FLAGS_TTC = 0x0004;
internal const ushort TTFCFP_FLAGS_GLYPHLIST = 0x0008;

internal const ushort TTFMFP_SUBSET = 0x0000;

internal const ushort TTFCFP_UNICODE_PLATFORMID = 0x0000;
internal const ushort TTFCFP_MS_PLATFORMID = 0x0003;

internal const ushort TTFCFP_UNICODE_CHAR_SET = 0x0001;

[UnmanagedFunctionPointer(CallingConvention.Cdecl, CharSet = CharSet.Unicode)]
private delegate IntPtr AllocProc(Int32 size);

[UnmanagedFunctionPointer(CallingConvention.Cdecl, CharSet = CharSet.Unicode)]
private delegate IntPtr ReallocProc(IntPtr memBlock, IntPtr size);

[UnmanagedFunctionPointer(CallingConvention.Cdecl, CharSet = CharSet.Unicode)]
private delegate void FreeProc(IntPtr memBlock);

[DllImport("FontSub.dll", CallingConvention = CallingConvention.Cdecl, CharSet = CharSet.Ansi, ExactSpelling = true)]
private static extern uint CreateFontPackage(
    [In, MarshalAs(UnmanagedType.LPArray, SizeParamIndex = 1)]
    byte[] puchSrcBuffer,
    uint ulSrcBufferSize,
    out IntPtr puchFontPackageBufferPtr,
    out uint pulFontPackageBufferSize,
    out uint pulBytesWritten,
    ushort usFlags,
    ushort usTtcIndex,
    ushort usSubsetFormat,
    ushort usSubsetLanguage,
    ushort usSubsetPlatform,
    ushort usSubsetEncoding,
    [In, MarshalAs(UnmanagedType.LPArray, SizeParamIndex = 12)]
    ushort[] pusSubsetKeepList,
    ushort usSubsetKeepListCount,
    AllocProc lpfnAllocate,
    ReallocProc lpfnReAllocate,
    FreeProc lpfnFree,
    IntPtr lpvReserved
);

我只使用代码与TTF文件，对于TTC（字体集合）你必须改变一些东西，但它应该工作。

Answer 5

FontForge（ http://fontforge.sourceforge.net/ ）是一个开源字体编辑器，允许自动格式转换。 看起来它只是Python，但可能值得一试。