如何在Delphi中获取字符串的真实ASCII码值

当需要将包含特殊字符（如á、é、í等）的字符串转换为特定编码格式以发送给蓝牙打印机时，了解如何正确处理这些字符的编码至关重要。以下是针对Delphi环境下解决这一问题的方法。

解决方案核心

为了确保向打印机发送正确的字节数据，您需要根据目标设备支持的编码格式来转换字符串。在这个案例中，目标是使用Code Page 858（即ANSI编码的一个变体）来匹配打印机所需的输入格式。

实现步骤：

1. 确定编码格式：首先确认您的打印机支持的字符集或编码格式。在此例中，我们假设它支持Code Page 858。
2. 使用TEncoding类转换字符串：利用Delphi的TEncoding类来实现从Unicode到所需编码格式的转换。

   uses
     SysUtils;
   
   procedure SendStringToPrinter(const AText: string; FSocket: TCustomWinSocket);
   var
     LEncoding: TEncoding;
     tb: TBytes;
   begin
     // 获取Code Page 858编码
     LEncoding := TEncoding.GetEncoding(858);
     try
       // 将字符串转换为目标编码的字节数组
       tb := LEncoding.GetBytes(AText);
       
       // 发送字节数组到打印机
       FSocket.SendData(tb);
     finally
       LEncoding.Free;
     end;
   end;
   
   // 示例调用
   procedure PrintSpecialChars;
   begin
     SendStringToPrinter('áéíóú€$', YourSocketVariable); // 确保YourSocketVariable已正确定义并连接
   end;

   使用TEncoding.GetEncoding(858)方法将一个包含特殊字符的字符串转换成符合Code Page 858编码的字节数组，并通过蓝牙发送给打印机。这解决了原始问题中提到的字符被错误转换的问题。

   重要的是要注意，虽然这种方法适用于本案例中的特定打印机和编码需求，但在实际应用中，应始终参考打印机的手册以确定其支持的确切编码格式。此外，尽量避免内存泄漏，确保在使用完TEncoding实例后释放资源。如果可能的话，探索是否可以使用更现代的编码方式如Unicode，因为它们提供了更好的兼容性和扩展性。