0

如何在 Delphi 中使用 Uniscribe Dll (usp10.dll) 中的 ScriptGetProperties API

我在C++中找到了一个例子，但我不知道如何翻译它，因为我不擅长C。

const SCRIPT_PROPERTIES **g_ppScriptProperties;
int g_iMaxScript;

WCHAR *pwcInChars = L"Unicode string to itemize";
int cInChars = wcslen(pwcInChars);
const int cMaxItems = 20;
SCRIPT_ITEM si[cMaxItems + 1];
SCRIPT_ITEM *pItems = si;
int cItems;

ScriptGetProperties(&g_ppScriptProperties,
                    &g_iMaxScript);

HRESULT hResult = ScriptItemize(pwcInChars,
                                cInChars,
                                cMaxItems,
                                NULL,
                                NULL,
                                pItems,
                                &cItems);
if (hResult == 0) {
    for (int i=0; i<cItems; i++) {
        if (g_ppScriptProperties[pItems[i].a.eScript]->fComplex) {

            // Item [i] is complex script text
            // requiring glyph shaping.

        } else {

            // The text may be rendered legibly without using Uniscribe. 
            // However, Uniscribe may still be used as a means of accessing 
            // font typographic features. 
        }
    }
} else {
    // Handle the error.
}

Delphi 代码应符合 Turbo Delphi 2006 或更高版本。

4

1 回答 1

1

在开始使用该库之前，您需要将其头文件转换为 .pas 文件。请参阅Dr. Bob 的标头转换器作为起点。被转换的标头应该只有结构、函数、枚举、简单类型等。如果有类声明、全局变量、宏等，您很可能需要一个中间 .h 来转换为 Delphi。

祝你好运。

于 2010-05-05T16:58:19.303 回答