unicode编码转韩文编码

Question

有谁知道unicode转韩文编码吗？最近需要用到unicode转韩文编码，但不知道其具体怎么转换的，求解答

Answer 1

你呀，打开记事本，另存为时选择有一个“编码”选项的，选择Unicode保存即可
给分吧

Answer 2

我是要把数据库的数据从unicode转换成韩文的编码，你这个是什么答案？没看懂

Answer 3

噢，这样子呀，那你的数据库中也必须是UNICODE编码的，
当然也可以进步“编码转换”的

Answer 4

在详细说、我现在要写一个delphi程序、实现的功能就是把数据库的unicode转韩文编码，

Answer 5

编码转换
function   GBToUnicode(wGB:   word):   word; 
var 
    WideChars:   array[0..1]   of   WideChar; 
    AnsiChars:   array[0..3]   of   Char; 
begin 
    AnsiChars[0]   :=   Char(Hi(wGB)); 
    AnsiChars[1]   :=   Char(Lo(wGB)); 
    AnsiChars[2]   :=   #0; 
    AnsiChars[3]   :=   #0;     MultiByteToWideChar(936,0,AnsiChars,2,WideChars,1);     Move(WideChars,   AnsiChars,   2);     result   :=   Byte(AnsiChars[0])   *   $100   +   Byte(AnsiChars[1]); 
end; function   UnicodeToGB(wUnicode:   word):   word; 
var 
    WideChars:   array[0..1]   of   WideChar; 
    AnsiChars:   array[0..3]   of   Char; 
    bUseDefault:   Bool; 
    CharDefault:   Char; 
    iCount:   integer; 
begin 
    Move(wUnicode,   wideChars[0],   2); 
    WideChars[1]   :=   WideChar(0); 
    CharDefault   :=   #0;     iCount   :=   WideCharToMultiByte(936,   0,   WideChars,   2, 
        AnsiChars,   4,   @CharDefault,@bUseDefault);     if   not   bUseDefault   then 
    begin 
        if   AnsiChars[1]   =   #0   then 
        begin 
            AnsiChars[1]   :=   AnsiChars[0]; 
            Ansichars[0]   :=   #0; 
        end;         result   :=   Byte(AnsiChars[0])   *   $100   +   Byte(AnsiChars[1]);     end 
    else 
        result   :=   byte(CharDefault); end; 

Answer 6

无语了，我要的是unicode编码转成韩文编码，是韩文，你把别人发的中文转unicode复制过来

Answer 7

对你也是“无语”了
其实“韩文编码”在某些系统也会显示乱码的，必须转换成“Unicode”