我看到之前的文章中有人寫從window 抓指定字產生bitmap, 但有沒有辦法讓程式自己把所有的字依照unicode的方式全部取出來, 然後也產生bitmap,這樣就可以讓一些其他的系統用? Best Regards, Rex Chiu Rex

------
Best Regards,
Rex Chiu

引言: 我看到之前的文章中有人寫從window 抓指定字產生bitmap, 但有沒有辦法讓程式自己把所有的字依照unicode的方式全部取出來, 然後也產生bitmap,這樣就可以讓一些其他的系統用? Best Regards, Rex Chiu Rex

突然想到,基本上我們只要Unicode 中的BMP就好,那麼我們便知道他的內碼範圍 是 0~65535,因此我們只需要一個方法,由內碼得知字,然後再加上之前的bitmap產生的方法即可. 就是有點像 chr(65)==> A的方式. 但是有人知道,unicode 的字怎麼弄嘛?有類似 chr()這種函數的方法嘛? Best Regards, Rex Chiu

http://www.Unicode.org 先去看看 可利用網站 http://delphi.ktop.com.tw/topic.php?TOPIC_ID=35464 不過 代至不是這泥ㄟ 簡單的 哈哈 ********************************************************* 哈哈&兵燹 最會的2大絕招 這個不會與那個也不會 哈哈哈 粉好 Delphi K.Top的K.Top分兩個字解釋Top代表尖端的意思,希望本討論區能提供Delphi的尖端新知 K.表Knowlege 知識,就是本站的標語:Open our mind to make knowledge together! 希望能大家敞開心胸,將知識寶庫結合一起

------
**********************************************************
哈哈&兵燹
最會的2大絕招 這個不會與那個也不會 哈哈哈 粉好

Delphi K.Top的K.Top分兩個字解釋Top代表尖端的意思,希望本討論區能提供Delphi的尖端新知
K.表Knowlege 知識,就是本站的標語:Open our mind

在Delphi 7 中 var k:widechar; i:integer; begin for i:=$4E00 to $9FA5 do begin k:=widechar(i); showmessage(k); end end 可以列出大部分的 CJK 字. 但是遺憾的事情是,showmessage()似乎是先將 unicode 的字轉成ANSI 然後才,顯示出來,因此遇到ANSI缺的字,或者是其他簡體日文韓文字時均無法 顯示出來, 不過令人讚賞的是 Delphi 7 對 unicode 終於有比較好的 support Best Regards, Rex Chiu

------
Best Regards,
Rex Chiu

看到 DWORD GetFontUnicodeRanges( HDC hdc, // handle to DC LPGLYPHSET lpgs // glyph set ); 不會用 再來用…就看到了… TextOutW(Image1.Canvas.Handle,0,0,buff,sizeof(buff)); 有人會用 GetFontUnicodeRanges 嗎…

在舊版 MSDN 中有一個範例功能和你的要求一樣 大概是在 SAMPLE/SDK/GRAPHIC/GDI/FONT/TTF 還附有說明文件…可是在 新版的 MSDN 裡我就找不到了 有點看不懂呢…有人能說明一下嗎…

綜合以上的方法... 比較簡單的方式如下 1. Canvas.Font Assign your font 2. use TextOutW(hdc, x, y, PWideChar, count) to show char procedure SelectFont; begin if (FontDialog1.Execute) then PaintBox1.Font.Assign(FontDialog1.Font); // or PaintBox1.Canvas.Font.Assign(FontDialog1.Font); end; procedure showWord(wc: WideChar) begin TextOutW(PaintBox1.Canvas.Handle, 0, 0, @wc, 1); end;