{"id":73,"date":"2007-05-11T21:33:20","date_gmt":"2007-05-11T19:33:20","guid":{"rendered":" http:\/\/www.nsonic.de\/blog\/2007\/05\/display-chinese-character\/"},"modified":"2007-05-11T21:33:24","modified_gmt":"2007-05-11T19:33:24","slug":"display-chinese-character","status":"publish","type":"post","link":"https:\/\/www.nsonic.de\/blog\/2007\/05\/display-chinese-character\/","title":{"rendered":"Display Chinese Character"},"content":{"rendered":"

> currently i gave up (because of no time) but i’ll try the suggestions from
\n> Vincent Yip. He has posted some chinese text here and if i’m able to copy
\nit
\n> to delphi… well then all that i need is an “input-interface” smile<\/span> <\/em><\/p>\n

I think you’ll find it doesn’t work like that. The reason is that the VCL
\ncomponents all use the SBCS string writing functions. I have now succeeded
\nin displaying Chinese characters from the MS Song and MS Hei TT fonts.<\/p>\n

To do this, you must convert the GB2312 string to Unicode, then pass the
\nUnicode wide string to the OutTextW function.<\/p>\n

The following code will display the characters, if you pass it a string such
\nas the GB one that Vincent Yip provided (thanks Vincent!).<\/p>\n

[code lang=”delphi”]{—-XieHanZi—————————————————————
\n———————-}
\n\/\/ The Font property of the canvas parameter MUST be set to a UNICODE
\n\/\/ Chinese font, such as MS-Hei or MS-Song
\nprocedure XieHanZi(Canvas:TCanvas; x,y:integer; GB:string);
\nvar W:PWideChar;
\n GBlength, UNILength, WSize:integer;
\nbegin
\n GBLength:=Length(GB);<\/p>\n

\/\/ Horrible things happened when I used a PWideChar cast on
\n \/\/ a WideString, and this is the only reliable way I found:<\/p>\n

\/\/ Each single char in GB could become two bytes
\n \/\/ Also might need two bytes for the zero terminator.
\n WSize:=GBLength*2 + 2;
\n GetMem(W, WSize);<\/p>\n

\/\/ It seems that MultiByteToWideChar doesn’t put in a 0 terminator
\n ZeroMemory(W,WSize);<\/p>\n

\/\/ Convert from code page 936 (PRC, Singapore) to UNICODE
\n MultiByteToWideChar(936,0,PChar(GB),GBLength,W,WSize);<\/p>\n

\/\/ Get length of UNICODE string
\n UNILength:=LStrLenW(W);<\/p>\n

\/\/ Write the text
\n TextOutW(Canvas.Handle, x,y,W,UNILength);<\/p>\n

\/\/ Clean up
\n FreeMem(W, GBLength*2+2);
\nend;<\/p>\n

{—————————————————————————
\n————————–}[\/code]<\/p>\n

This can easily be modified to display MingLiu in Big5, just change the
\ncode page 936 to 950, and pass a big5 string instead of GB.<\/p>\n

[tags]Delphi, Chinese[\/tags]<\/p>\n","protected":false},"excerpt":{"rendered":"

> currently i gave up (because of no time) but i’ll try the suggestions from > Vincent Yip. He has posted some chinese…<\/p>\n","protected":false},"author":2,"featured_media":0,"comment_status":"open","ping_status":"open","sticky":false,"template":"","format":"standard","meta":{"spay_email":""},"categories":[11],"tags":[89,75],"jetpack_featured_media_url":"","jetpack_shortlink":"https:\/\/wp.me\/p71Tml-1b","_links":{"self":[{"href":"https:\/\/www.nsonic.de\/blog\/wp-json\/wp\/v2\/posts\/73"}],"collection":[{"href":"https:\/\/www.nsonic.de\/blog\/wp-json\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/www.nsonic.de\/blog\/wp-json\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/www.nsonic.de\/blog\/wp-json\/wp\/v2\/users\/2"}],"replies":[{"embeddable":true,"href":"https:\/\/www.nsonic.de\/blog\/wp-json\/wp\/v2\/comments?post=73"}],"version-history":[{"count":0,"href":"https:\/\/www.nsonic.de\/blog\/wp-json\/wp\/v2\/posts\/73\/revisions"}],"wp:attachment":[{"href":"https:\/\/www.nsonic.de\/blog\/wp-json\/wp\/v2\/media?parent=73"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/www.nsonic.de\/blog\/wp-json\/wp\/v2\/categories?post=73"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/www.nsonic.de\/blog\/wp-json\/wp\/v2\/tags?post=73"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}