bool FreeTypeSysFontData::Init(LPCTSTR name, int weight, bool italic)
{
const CGdippSettings* pSettings = CGdippSettings::GetInstance();
void* pNameFromGDI = NULL; // Windows 偐傜庢摼偟偨 name 僞僌偺撪梕
void* pNameFromFreeType = NULL; // FreeType 偐傜庢摼偟偨 name 僞僌偺撪梕
HFONT hf = NULL;
DWORD cbNameTable;
DWORD cbFontData;
int index;
DWORD buf;
FT_StreamRec& fsr = m_ftStream;
m_name.assign(name);
m_hdc = CreateCompatibleDC(NULL);
if(m_hdc == NULL) {
return false;
}
// 柤慜埲奜揔摉
if (pSettings->FontSubstitutes() < SETTING_FONTSUBSTITUTE_ALL)
{
hf = CreateFont(
12, 0, 0, 0, weight,
italic, FALSE, FALSE,
DEFAULT_CHARSET,
OUT_DEFAULT_PRECIS,
FONT_MAGIC_NUMBER,
DEFAULT_QUALITY,
DEFAULT_PITCH | FF_DONTCARE,
name);
}
else
hf = CreateFont(
12, 0, 0, 0, weight,
italic, FALSE, FALSE,
DEFAULT_CHARSET,
OUT_DEFAULT_PRECIS,
CLIP_DEFAULT_PRECIS,
DEFAULT_QUALITY,
DEFAULT_PITCH | FF_DONTCARE,
name);
if(hf == NULL){
return false;
}
m_hOldFont = SelectFont(m_hdc, hf);
// 僼僅儞僩僨乕僞偑摼傜傟偦偆偐僠僃僢僋
cbNameTable = ::GetFontData(m_hdc, TVP_TT_TABLE_name, 0, NULL, 0);
if(cbNameTable == GDI_ERROR){
goto ERROR_Init;
}
pNameFromGDI = malloc(cbNameTable);
if (!pNameFromGDI) {
goto ERROR_Init;
}
pNameFromFreeType = malloc(cbNameTable);
if (!pNameFromFreeType) {
goto ERROR_Init;
}
//- name 僞僌偺撪梕傪儊儌儕偵撉傒崬傓
if(GetFontData(m_hdc, TVP_TT_TABLE_name, 0, pNameFromGDI, cbNameTable) == GDI_ERROR){
goto ERROR_Init;
}
// 僼僅儞僩僒僀僘庢摼張棟
cbFontData = ::GetFontData(m_hdc, TVP_TT_TABLE_ttcf, 0, &buf, 1);
if(cbFontData == 1){
// TTC 僼傽僀儖偩偲巚傢傟傞
cbFontData = ::GetFontData(m_hdc, TVP_TT_TABLE_ttcf, 0, NULL, 0);
m_isTTC = true;
}
else{
cbFontData = ::GetFontData(m_hdc, 0, 0, NULL, 0);
}
if(cbFontData == GDI_ERROR){
// 僄儔乕; GetFontData 偱偼埖偊側偐偭偨
goto ERROR_Init;
}
if (pSettings->UseMapping()) {
HANDLE hmap = CreateFileMapping(INVALID_HANDLE_VALUE, NULL, PAGE_READWRITE | SEC_COMMIT | SEC_NOCACHE, 0, cbFontData, NULL);
if (!hmap) {
goto ERROR_Init;
}
m_pMapping = MapViewOfFile(hmap, FILE_MAP_ALL_ACCESS, 0, 0, cbFontData);
m_dwSize = cbFontData;
CloseHandle(hmap);
if (m_pMapping) {
::GetFontData(m_hdc, m_isTTC ? TVP_TT_TABLE_ttcf : 0, 0, m_pMapping, cbFontData);
}
}
// FT_StreamRec 偺奺僼傿乕儖僪傪杽傔傞
fsr.base = 0;
fsr.size = cbFontData;
fsr.pos = 0;
fsr.descriptor.pointer = this;
fsr.pathname.pointer = NULL;
fsr.read = IoFunc;
fsr.close = CloseFunc;
index = 0;
m_locked = true;
if(!OpenFaceByIndex(index)){
goto ERROR_Init;
}
for(;;) {
// FreeType 偐傜丄name 僞僌偺僒僀僘傪庢摼偡傞
FT_ULong length = 0;
FT_Error err = FT_Load_Sfnt_Table(m_ftFace, TTAG_name, 0, NULL, &length);
if(err){
goto ERROR_Init;
}
// FreeType 偐傜摼偨 name 僞僌偺挿偝傪 Windows 偐傜摼偨挿偝偲斾妑
if(length == cbNameTable){
// FreeType 偐傜 name 僞僌傪庢摼
err = FT_Load_Sfnt_Table(m_ftFace, TTAG_name, 0, (unsigned char*)pNameFromFreeType, &length);
if(err){
goto ERROR_Init;
}
// FreeType 偐傜撉傒崬傫偩 name 僞僌偺撪梕偲丄Windows 偐傜撉傒崬傫偩
// name 僞僌偺撪梕傪斾妑偡傞丅
// 堦抳偟偰偄傟偽偦偺 index 偺僼僅儞僩傪巊偆丅
if(!memcmp(pNameFromGDI, pNameFromFreeType, cbNameTable)){
// 堦抳偟偨
// face 偼奐偄偨傑傑
break; // 儖乕僾傪敳偗傞
}
}
// 堦抳偟側偐偭偨
// 僀儞僨僢僋僗傪堦偮憹傗偟丄偦偺 face 傪奐偔
index ++;
if(!OpenFaceByIndex(index)){
// 堦抳偡傞 face 偑側偄傑傑 僀儞僨僢僋僗偑斖埻傪挻偊偨偲尒傜傟傞
// index 傪 0 偵愝掕偟偰偦偺 index 傪奐偒丄儖乕僾傪敳偗傞
index = 0;
if(!OpenFaceByIndex(index)){
goto ERROR_Init;
}
break;
}
}
free(pNameFromGDI);
free(pNameFromFreeType);
m_locked = false;
return true;
ERROR_Init:
m_locked = false;
if (hf) {
SelectFont(m_hdc, m_hOldFont);
DeleteFont(hf);
m_hOldFont = NULL;
}
free(pNameFromGDI);
free(pNameFromFreeType);
return false;
}
/**
* コンストラクタ
* @param fontname フォント名
* @param options オプション
*/
tNativeFreeTypeFace::tNativeFreeTypeFace(const std::wstring &fontname,
tjs_uint32 options)
{
// フィールドのクリア
FaceName = fontname;
Face = NULL;
memset(&Stream, 0, sizeof(Stream));
DC = NULL;
OldFont = NULL;
IsTTC = false;
unsigned char *name_content = NULL; // Windows から取得した name タグの内容
unsigned char *name_content_ft = NULL; // FreeType から取得した name タグの内容
tjs_int name_content_size;
// TrueType ライブラリをフック
try
{
// 指定のフォントを持ったデバイスコンテキストを作成する
// TODO: Italic, Bold handling
DC = GetDC(0);
LOGFONT l;
l.lfHeight = -12;
l.lfWidth = 0;
l.lfEscapement = 0;
l.lfOrientation = 0;
l.lfWeight = 400;
l.lfItalic = FALSE;
l.lfUnderline = FALSE;
l.lfStrikeOut = FALSE;
l.lfCharSet = DEFAULT_CHARSET;
l.lfOutPrecision = OUT_DEFAULT_PRECIS;
l.lfQuality = DEFAULT_QUALITY;
l.lfPitchAndFamily = DEFAULT_PITCH | FF_DONTCARE;
_tcscpy( l.lfFaceName, fontname.c_str() );
l.lfFaceName[LF_FACESIZE-1] = TJS_W('\0');
HFONT newfont = CreateFontIndirect(&l);
OldFont = static_cast<HFONT>(SelectObject(DC, newfont));
// このフォントが GetFontData API で扱えるかどうかを
// 'name' タグの内容を取得しようとすることでチェックする
// (name タグは GetFontData が扱うような TrueType/OpenType フォントには
// 必ず入っている)
DWORD result = GetFontData(DC, TVP_TT_TABLE_name, 0, NULL, 0);
if(result == GDI_ERROR)
{
// エラー; GetFontData では扱えなかった
TVPThrowExceptionMessage( TJS_W("Font '%1$s' cannot be used"), fontname );
}
//- この時点で result は name タグの内容が入るのに必要なバイト数
name_content_size = result;
name_content = new unsigned char [name_content_size]; // メモリを確保
name_content_ft = new unsigned char [name_content_size]; // メモリを確保
//- name タグの内容をメモリに読み込む
result = GetFontData(DC, TVP_TT_TABLE_name, 0, name_content, name_content_size);
if(result == GDI_ERROR)
{
// エラー; メモリに読み込むことが出来なかった
TVPThrowExceptionMessage( TJS_W("Font '%1$s' cannot be used"), fontname );
}
// フォントファイルのサイズを取得する
tjs_int fontsize;
//- TTC (True Type Collection) ファイルのチェック
//- GetFontData API の仕様では、TTC ファイルに対しては、現在選択されている
//- フォントに対する情報しか返さない。しかし FreeType は TTC ファイル全体の
//- 情報を必要とする。この場合、GetFontData に 'ttcf' を得るように指示すると
//- ファイル全体の情報を得ることが出来る。
//- 参照 : microsoft.public.win32.programmer.gdi GetFontData and TTC fonts
unsigned char buf[4];
result = GetFontData(DC, TVP_TT_TABLE_ttcf, 0, &buf, 1);
if(result == 1)
{
// TTC ファイルだと思われる
result = GetFontData(DC, TVP_TT_TABLE_ttcf, 0, NULL, 0);
IsTTC = true;
}
else
{
result = GetFontData(DC, 0, 0, NULL, 0);
}
if(result == GDI_ERROR)
{
// エラー; GetFontData では扱えなかった
TVPThrowExceptionMessage( TJS_W("Font '%1$s' cannot be used"), fontname );
}
fontsize = result;
// FT_StreamRec の各フィールドを埋める
FT_StreamRec * fsr = &Stream;
fsr->base = 0;
fsr->size = fontsize;
fsr->pos = 0;
fsr->descriptor.pointer = this;
fsr->pathname.pointer = NULL;
fsr->read = IoFunc;
fsr->close = CloseFunc;
// FreeType で開く
// 試しに 0 番の Face を開く
// (この時点で開くことが出来なければ例外を発生させる)
int index = 0;
if(!OpenFaceByIndex(index))
{
TVPThrowExceptionMessage( TJS_W("Font '%1$s' cannot be used"), fontname );
}
// GDIが現在選択しているファイルとFreeTypeがアクセスしているファイルが
// 実際に合致しているかどうかを、name タグの一致で見る。
// とくに TTC ファイルの場合は、name タグの一致を見ながら、face のインデッ
// クスを一つずつ増やしながら、対象とするフォントを探さなければならない。
while(true)
{
// FreeType から、name タグのサイズを取得する
FT_ULong length = 0;
FT_Error err = FT_Load_Sfnt_Table(Face, TTAG_name, 0, NULL, &length);
if(err)
{
TVPThrowExceptionMessage( TJS_W("Font '%1$s' cannot be used"), fontname );
}
// FreeType から得た name タグの長さを Windows から得た長さと比較
if(length == name_content_size)
{
// FreeType から name タグを取得
err = FT_Load_Sfnt_Table(Face, TTAG_name, 0, name_content_ft, &length);
if(err)
{
TVPThrowExceptionMessage( TJS_W("Font '%1$s' cannot be used"), fontname );
}
// FreeType から読み込んだ name タグの内容と、Windows から読み込んだ
// name タグの内容を比較する。
// 一致していればその index のフォントを使う。
if(!memcmp(name_content, name_content_ft, name_content_size))
{
// 一致した
// face は開いたまま
break; // ループを抜ける
}
}
// 一致しなかった
// インデックスを一つ増やし、その face を開く
index ++;
if(!OpenFaceByIndex(index))
{
// 一致する face がないまま インデックスが範囲を超えたと見られる
// index を 0 に設定してその index を開き、ループを抜ける
index = 0;
if(!OpenFaceByIndex(index))
{
TVPThrowExceptionMessage( TJS_W("Font '%1$s' cannot be used"), fontname );
}
break;
}
}
}
catch(...)
{
Clear();
if(name_content) delete [] name_content;
if(name_content_ft) delete [] name_content_ft;
throw;
}
delete [] name_content;
delete [] name_content_ft;
}
