16,749
社区成员
发帖
与我相关
我的任务
分享跪求日文、韩文编码转中文（GB2312）的源代码！请大虾们指教！
跪求日文、韩文编码转中文（GB2312）的源代码！请大虾们指教！
需要把日文或者韩文邮件的主题和内容正常显示，因为编码格式不同，目前公司OA系统邮件里日文和韩文显示是乱码。转换后邮件中日文显示日文，韩文显示韩文。
需要把日文或者韩文邮件的主题和内容正常显示，因为编码格式不同，目前公司OA系统邮件里日文和韩文显示是乱码。转换后邮件中日文显示日文，韩文显示韩文。
...全文
请发表友善的回复…
发表回复
tjg5202 2008-12-22
- 打赏
- 举报
僵哥 2008-12-21
- 打赏
- 举报
var
str_Korean: AnsiString; //949
str_Japanese: AnsiString; //932
str_GBK: AnsiString; //936
str_Unicode: WideString;
begin
str_Korean := 韩文;
SetLength(str_Unicode,MultiByteToWideChar(949,0,PAnsiChar(str_Korean),Length(str_Korean),Nil,0));
MultiByteToWideChar(949,0,PAnsiChar(str_Korean),Length(str_Korean),PWideChar(str_Unicode),Length(str_Unicode));
SetLength(str_GBK,WideCharToMultiByte(936,0,PWideChar(str_Unicode),Length(str_Unicode),Nil,0,Nil,Nil));
WideCharToMultiByte(936,0,PWideChar(str_Unicode),Length(str_Unicode),PAnsiChar(str_GBK),Length(str_GBK),Nil,Nil);
ShowMessage(str_GBK);
str_Japanese := 日文;
SetLength(str_Unicode,MultiByteToWideChar(932,0,PAnsiChar(str_Japanese),Length(str_Japanese),Nil,0));
MultiByteToWideChar(932,0,PAnsiChar(str_Japanese),Length(str_Japanese),PWideChar(str_Unicode),Length(str_Unicode));
SetLength(str_GBK,WideCharToMultiByte(936,0,PWideChar(str_Unicode),Length(str_Unicode),Nil,0,Nil,Nil));
WideCharToMultiByte(936,0,PWideChar(str_Unicode),Length(str_Unicode),PAnsiChar(str_GBK),Length(str_GBK),Nil,Nil);
ShowMessage(str_GBK);
end;