windows - 读取带有空字节的文本文件

Question

我有一个包含 dos 元素的文本文件 - 例如 hex(00)。我需要阅读并转换它。我曾尝试使用 utf8toansi，但这会删除带有 hex(00) 的整行。有没有办法将整个文件转换为文本？我正在使用 win32、RadStudio2007、Delphi。

Answer 1

这应该做...

procedure ConvertFileToDos(const aInFile,aOutFile:String);
var
  FileIn,FileOut:TextFile;
  C:AnsiChar;
  LineBreak:String;
begin
  LineBreak := #13#10;

  AssignFile(FileIn,aInFile);
  Reset(FileIn);

  AssignFile(FileOut,aOutFile);
  ReWrite(FileOut);

  while not EOF(FileIn) do
  begin
    Read(FileIn,C);
    if C=#0 then
      Write(FileOut,LineBreak)
    else
      Write(FileOut,C)
  end;

  CloseFile(FileIn);
  CloseFile(FileOut);
end;