用BCB如何生成Unicode编码的程序？

[zhenyu362]

在VC里面可以预定义UNICODE，在BCB里面怎么做？

[skphoebe]

void __fastcall TfrmMian::Button1Click(TObject *Sender)
{

if (Edit1->Text.IsEmpty())
return;
char M[1024];
char MU[1024];
memset(M,0,1024);
memset(MU,0,1024);
memcpy(M,Edit1->Text.c_str(),Edit1->Text.Length());
//转化为Unicode String
::MultiByteToWideChar(CP_ACP,0,M,-1,reinterpret_cast<wchar_t *>(MU),1024);

//如果MU头/0则LEN1为0
char Len1 = strlen(MU);


AnsiString s,S;
AnsiString str;
char tmp[2];
//转化为Unicode Hex
for(int i = 0;i < Len1;i++)
{

str = s.sprintf("%x",MU[i]&0x00ff);
int L = str.Length();

//缺位补0
if ( L == 1)
{
str = "0"+str;
}

S = S + str;

}
S=S.UpperCase();

//高2位与低2位交换
char P[1024];
memset(P,0,1024);
memcpy(P,S.c_str(),S.Length());
char C1,C2;
for (int i = 0; i < Len1/2; i++)
{
C1 = P[4*i];
C2 = P[4*i + 1];
P[4*i] = P[4*i + 2];
P[4*i+1] = P[4*i + 3];
P[4*i + 2] = C1;
P[4*i + 3] = C2;
}
Edit2->Text = P;
}

[僵哥]

另一种就是自己全部使用API去写……

[zhenyu362]

那这样的话就必须在所有CPP顶上添加#define UNICODE，挺麻烦的
如果我的Form上面有一个TEdit控件,那么我在里面输入的内容是ANSI还是Unicode?

[zhenyu362]

To cczlp(不惑):找到了一个更好的方法
菜单-->Project-->Option--->Directories/Conditionals
在Conditional define上面添加一个UNICODE标示符就可以了
定义字符串用 TCHAR szText[]=TEXT("Unicode String");
TEXT是一个宏

[weill]

收下。

[constantine]

up

[僵哥]

to 楼上各位

麻烦直接使用
#define UNICODE
编译程序到Win9x下运行一下先，然后再上来……

[cczlp]

to 楼上:
在Win9x下可以使用 #define UNICODE, 我的程序就没问题.
在Win9x下,对Unicode支持不是太好是肯定的, 但还不到所有程序不能运行的地步,如果不能用,我想应该和使用的API有关.

另外, 楼上升星了不散分?

[yhec]

wchar_t wch; // 两字节

[yesry]

wchar_t *str=L"哈哈，这些字符将被编译成Unicode走遍全世界都是一个效果";

[cczlp]

在.h前面定义
#define UNICODE
然后编程时用 TCHAR 代替char , 其它类似

[zhenyu362]

To skphoebe(小鲨鱼) :这么多，看了就怕
To cczlp(不惑):在哪个.h地方定义#define UNICODE ？
如果是在自己的unit1.h里面定义的话，那调用API的时候比如MessageBox那还是会调用MessageBoxA

[僵哥]

下载TntUnicode支持包。使用里面的TntUnicode控件。
http://iemis.vicp.net/TntUnicodeControls.zip

[cczlp]

在.cpp的所有头文件之前,就是最上面添加#define UNICODE

如果没有这个定义, 你的MessageBox 实际是MessageBoxA,
如果有这个定义, MessageBox 就实际调用MessageBoxW,
其它很多的API都是这样.

再说TCHAR, 如果定义UNICODE,等同WCHAR, 否则等同char.

[szfgf]

TntUnicodeControls 中的TntLabel为何不能显示朝鲜语?(用ADO从数据库中取得后在TntLabel显示)