API – MultiByteToWideChar的用法

技术交流,DH讲解.

在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.