本文整理自网络，侵删。
在D2010中多了一个类TEncoding,这个类用来转换不同编码的字符串.
在看这个类的代码的时候我看见这个API函数,具体来说这个函数将一个字节数组转换PWideChar.
因为不同编码下一个字符串占的字节数是不一样的,这样转换后每个字符都只占2个字节了,这样可以统一一下.
看下这个函数在MSDN中的声明:
int MultiByteToWideChar(
UINT CodePage,
DWORD dwFlags,
LPCSTR lpMultiByteStr,
int cbMultiByte,
LPWSTR lpWideCharStr,
int cchWideChar
);
Delphi中声明:
function MultiByteToWideChar(CodePage: UINT; dwFlags: DWORD;
const lpMultiByteStr: LPCSTR; cchMultiByte: Integer;
lpWideCharStr: LPWSTR; cchWideChar: Integer): Integer; stdcall;我们看看参数的作用:
CodePage：指定执行转换的代码页，这个参数可以为系统已安装或有效的任何代码页所给定的值。具体编码的CodePage可以查MSDN.
dwFlags：一组位标记用以指出是否未转换成预作或宽字符（若组合形式存在），是否使用象形文字替代控制字符，以及如何处理无效字符。你可以指定下面是标记常量的组合，含义如下：
MB_PRECOMPOSED：通常使用预作字符――就是说，由一个基本字符和一个非空字符组成的字符只有一个单一的字符值。这是缺省的转换选择。不能与
MB_COMPOSITE值一起使用。
MB_COMPOSITE：通常使用组合字符――就是说，由一个基本字符和一个非空字符组成的字符分别有不同的字符值。这是缺省的转换选择。不能与MB_PRECOMPOSED值一起使用。
MB_ERR_INVALID_CHARS：如果函数遇到无效的输入字符，它将运行失败，且GetLastErro返回ERROR_NO_UNICODE_TRANSLATION值。
MB_USEGLYPHCHARS：使用象形文字替代控制字符。
组合字符由一个基础字符和一个非空字符构成，每一个都有不同的字符值。每个预作字符都有单一的字符值给基础/非空字符的组成。在字符è中，e就是基础字符，而重音符标记就是非空字符。
函数的缺省动作是转换成预作的形式。如果预作的形式不存在，函数将尝试转换成组合形式。
标记MB_PRECOMPOSED和MB_COMPOSITE是互斥的，而标记MB_USEGLYPHCHARS和MB_ERR_INVALID_CHARS则不管其它标记如何都可以设置。
lpMultiByteStr：指向将被转换字符串的字符。
cchMultiByte：指定由参数lpMultiByteStr指向的字符串中字节的个数。如果这个值为C1，字符串将被设定为以NULL为结束符的字符串，并且自动计算长度。
lpWideCharStr：指向接收被转换字符串的缓冲区。
cchWideChar：指定由参数lpWideCharStr指向的缓冲区的字节个数。若此值为零，函数返回缓冲区所必需的宽字符数，在这种情况下，lpWideCharStr中的缓冲区不被使用。
返回值：如果函数运行成功，并且cchWideChar不为零，返回值是由 lpWideCharStr指向的缓冲区中写入的宽字符数；如果函数运行成功，并且cchMultiByte为零，返回值是接收到待转换字符串的缓冲区所需求的宽字符数大小。
有了上面的介绍,我们来看一下怎么确定一个多字节数组中有多少个字符呢?
function TUTF7Encoding.GetCharCount(Bytes: PByte; ByteCount: Integer): Integer;
begin
{$IF DEFINED(UNICODE)}
Result := inherited GetCharCount(Bytes, ByteCount);
{$ELSE}
Result := MultiByteToWideChar(FCodePage, FWCharToMBFlags,
PAnsiChar(Bytes), ByteCount, nil, 0);
{$IFEND}
end;如上面所说,只需要把第五个参数设置成nil,第六个参数为0,那么返回值就是字符的个数.
现在有了字符个数了,我们看怎么把字节数组转成相应的字符数组:
function TMBCSEncoding.GetChars(Bytes: PByte; ByteCount: Integer; Chars: PChar;
CharCount: Integer): Integer;
begin
{$IF DEFINED(UNICODE)}
Result := MultiByteToWideChar(FCodePage, FMBToWCharFlags,
PAnsiChar(Bytes), ByteCount, PChar(Chars), CharCount);
{$ELSE}
Result := CharCount;
Move(Bytes^, Chars^, CharCount * SizeOf(AnsiChar));
{$IFEND}
end;与之相反的函数就是WideCharToMultiByte.
上面的例子都是来自VCL中的代码.
好了,就说这个API.我是DH.
相关阅读 >>
Delphi fdconnection1.gettablenames 查看所有表包含用户表和系统表
Delphi 利用tidencodermime tiddecodermime 组件字符串加密解密
Delphi dateof、timeof、yearof、monthof、weekof、dayof、hourof、minuteof、secondof、millisecondof �c 提取时间成分
更多相关阅读请进入《Delphi》频道 >>
