使用 Delphi 6/7，如何将不同字符集中的 AnsiString 转换为十六进制字符串 UTF-8？

Question

我需要用Delphi 6/7绘制条形码（QR）。该程序可以在各种Windows Locales中运行，数据来自输入框。

在此输入框上，用户可以选择一个字符集，并输入他自己的语言。这很好。输入数据仅来自同一代码。示例配置可能是：

• Windows在西欧，ANSI文本
• 输入的CodePage 1252是在Shift-Jis ANSI Charset中完成的，

我需要将Shift-JIS跨越条形码。最健壮的方法是使用十六进制编码。

因此，我的问题是：如果代码ePage与Windows Locale不同，我该如何从shift-jis转到UTF-8编码中的十六进制字符串？

例如：我有字符串能ラ。根据UTF-8，需要将其转换为E883BDE383A9。我已经尝试过，但是结果是不同且毫无意义的：

String2Hex(UTF8Encode(ftext))

不幸的是，我不能只有一个用于宽度的输入框。但是，如果我能找到一种将ANSI文本转换为宽大的方法，则条形码模块也可以与Unicode字符串一起使用。

如果是相关的：我正在使用tec-it tbarcode dll。

Answer 1

创建和访问Unicode文本控件

比您想象的要容易，并且我过去使用全新的 Windows 2000 在方便的组件（如 tnt delphi Unicode控件 。拥有有关如何在不使用 delphi 的VCL的情况下创建A Windows GUI程序的背景知识，并手动创建所有内容会有所帮助 - 否则，这也是对此的介绍。

1. 首先将属性添加到您的表格中，因此我们以后可以轻松访问新控件：

    类型
     tform1 = class（tform）
   ...
     私人的
       Hedit：Thandle； //我们的新Unicode控件
     结尾;
    

2. 现在只需在您喜欢的事件中创建它 - 我选择FormCreate：

     //创建子控制，键入“编辑”
     self.hedit：= createWIndoww（pwidechar（widestring（'edit'）），pwidechar（widestring（'myinput'）），ws_child或ws_visible，10，10，100，200，200，25，handle，0，0，hinstance，nil）;
     如果self.hedit = 0，则开始//失败。获取错误代码，因此我们知道为什么失败。
       // getlastror（）;
       出口;
     结尾;
   
     //添加一个沉没的3D边缘（从历史上讲，嗯）
     如果setWindowlong（self.hedit，gwl_exstyle，ws_ex_clientedge）= 0然后开始
       // getlastror（）;
       出口;
     结尾;
   
     //应用新的扩展样式：控件的框架已更改
     如果不是setWindowpos（self.hedit，0、0、0、0、0、0，swp_framechanged或swp_nomove或swp_nozorder或swp_nosize）然后开始
       // getlastror（）;
       出口;
     结尾;
   
     //系统的默认字体没有帮助，让我们使用此表格的字体（希望是tahoma）
     sendmessage（self.hedit，wm_setfont，self.font.handle，1）;
    

3. 在某个时候您想获得编辑的内容。再次：如果没有 delphi 的VCL，这是如何完成的，而是直接与 winapi 一起完成？这次我使用了按钮的单击事件：

     var
     Stext：宽度；
     伊伦，伊雷尔：整数；
   开始
     //要复制几个字符？
     ilen：= getWindowTextLengthW（self.hedit）;
     如果iLen = 0，则iError：= getLasterRor（）else iError：= 0; //可能是空的，可能是一个错误
     如果iError＆lt;＆gt; 0然后开始
       出口;
     结尾;
   
     Inc（Ilen）； //潜在的尾声＃0
     setLength（Stext，Ilen）; //预备空间
     如果getWindowTextw（self.hedit，@stext [1]，iLen）= 0，然后开始//复制文本
       // getlastror（）;
       出口;
     结尾;
   
     //证明非ANSI文本是通过非ANSI控制复制的
     MessageBoxw（handle，pwidechar（stext），nil，0）;
   结尾;
    

存在详细问题，例如无法通过 tab 无法达到此新控件，但是我们基本上已经重新发射<< em> delphi 的VCL，因此这些细节在其他时间都需要照顾。

转换codepages

winapi 在 codepages （字符串）或（宽度）。出于历史原因（UCS-2及以后）UTF-16 le符合所有内容，因此这始终是来自代码时的隐含目标：

// Converting an ANSI charset (String) to UTF-16 LE (Widestring)
function StringToWideString( s: AnsiString; iSrcCodePage: DWord ): WideString;
var
  iLenDest, iLenSrc: Integer;
begin
  iLenSrc:= Length( s );
  iLenDest:= MultiByteToWideChar( iSrcCodePage, 0, PChar(s), iLenSrc, nil, 0 );  // How much CHARACTERS are needed?
  SetLength( result, iLenDest );
  if iLenDest> 0 then begin  // Otherwise we get the error ERROR_INVALID_PARAMETER
    if MultiByteToWideChar( iSrcCodePage, 0, PChar(s), iLenSrc, PWideChar(result), iLenDest )= 0 then begin
      //GetLastError();
      result:= '';
    end;
  end;
end;

源代码epage取决于您：也许

• 1252 for for' Windows-1252“ = ANSI拉丁1个多语言（西欧）
• 932用于“ Shift-Jis X-0208” = IBM-PC Japan Mix（DOS/V）（DBCS）（DBCS）（897 + 301）
• <代码> 28595 “ ISO 8859-5” = Cyrillic
• 65001“ UTF-8”，

但是，如果您想将一个代码转换为另一个代码，源和目标都不应是UTF-16 LE，然后您必须向后走：

1. 从ANSI转换为从宽度
2. 转换为不同的ANSI ，

// Converting UTF-16 LE (Widestring) to an ANSI charset (String, hopefully you want 65001=UTF-8)
function WideStringToString( s: WideString; iDestCodePage: DWord= CP_UTF8 ): AnsiString;
var
  iLenDest, iLenSrc: Integer;
begin
  iLenSrc:= Length( s );
  iLenDest:= WideCharToMultiByte( iDestCodePage, 0, PWideChar(s), iLenSrc, nil, 0, nil, nil );
  SetLength( result, iLenDest );
  if iLenDest> 0 then begin  // Otherwise we get the error ERROR_INVALID_PARAMETER
    if WideCharToMultiByte( iDestCodePage, 0, PWideChar(s), iLenSrc, PChar(result), iLenDest, nil, nil )= 0 then begin
      //GetLastError();
      result:= '';
    end;
  end;
end;

根据每个 Windows 安装， 并不支持每个编码，或支持不同的编码epepage，或者支持不同的编码。因此转换尝试可能会失败。立即瞄准A Unicode 程序将更加健壮，因为这是每个 Windows 安装的确定支持（除非您仍然处理 Windows 95 ， Windows 98 或 Windows ME ）。

将所有内容组合

在一起，您可以获得将其放在一起需要的一切：

• 您可以拥有 unicode 文本控制以直接在UTF-16 LE中获取它，
• 您可以使用ANSI文本控制来将输入转换为UTF -16 LE
• 可以从UTF-16 LE（宽）转换为UTF-8（ANSI）

大小

UTF-8主要是最好的选择，但是当您的目标受众是亚洲人时，大小的Wise UTF-16可能需要更少的字节：在UTF-8中，和每个都需要3个字节，但是在UTF-16中，每个字节都只需要2个字节。我猜，根据您的QR条形码大小是一个重要因素。

同样，不要通过将二进制数据（每字节8位）转换为ASCII文本（每个字符显示4位，但本身需要1个字节= 8位）来浪费。看看 base64 ，将6位编码到每个字节中。您一生中已经遇到了无数次的概念，因为它用于电子邮件附件。