主要是對getfontunicoderanges的使用
// 獲取選擇的字型的所有unicode範圍
procedure tmarkersymform.dogetunicoderange;
var
size : dword;
lpgs : pglyphset;
i, j : integer;
nstart, nend : integer;
oldfont : string;
begin
m_unicode := ' ';
oldfont := dgcmcharacter.canvas.font.name;
dgcmcharacter.canvas.font.name := fcbocmfont.fontname;
size := getfontunicoderanges(dgcmcharacter.canvas.handle, nil);
if size < > 0 then begin
getmem(lpgs, size);
getfontunicoderanges(dgcmcharacter.canvas.handle, lpgs);
for i := 0 to lpgs.cranges do begin
nstart := integer(lpgs.ranges[i].wclow);
nend := nstart + lpgs.ranges[i].cglyphs;
for j := nstart to nend do begin
m_unicode := m_unicode + wchar(j);
end;
end;
dispose(lpgs);
end;
dgcmcharacter.canvas.font.name := oldfont;
end;
// m_unicode儲存字型中所有的unicode寬字元
C 獲取字型點陣
cmatrix copenglfont getmatrix uint nchar lpbyte lpvbuffer new byte cbbuffer lpvbuffer cbbuffer getglyphoutline m hdc nchar ggo bitmap gm cbbuffer lpvb...
C 獲取字型點陣
cmatrix copenglfont getmatrix uint nchar lpbyte lpvbuffer new byte cbbuffer lpvbuffer cbbuffer getglyphoutline m hdc nchar ggo bitmap gm cbbuffer lpvb...
獲取字串的unicode編碼
平時我們在開發移動終端應用程式的時候，經常需要把字串資源轉化為unicode編碼。本文來介紹乙個較為簡單的方法，將整個字串的unicode編碼轉化出來。方便演示 只是寫了個控制台的程式，大家需要的話，可以根據下面的方法，寫個mfc的應用程式。具體的 如下 在vc6上執行，測試ok。輸入 please...