delphi - delphi写入文件OEM编码

Question

oem编码如何写入Delphi文件？

您如何设置编码？因为字符串编码是由

setCodePage(RawBytes;Word;boolean);

Answer 1

您需要Windows API函数CharToOemBuff()。



编辑

受@Free Consulting的启发，上述API是您在较旧的非Unicode Delphi中使用的API。

正如@Free Consulting正确指出的那样，Delphi的新版本提供了广泛的代码页翻译服务。作为旧式Pascal I / O的更现代的变体，您可以使用以指定编码保存的TStringList。

Encoding := TEncoding.GetEncoding(GetOEMCP);
Try
  StringList.SaveToFile('test.txt', Encoding);
Finally
  Encoding.Free;
End;