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

我有一个包含dos元素的文本文件-例如hex(00)。我需要阅读并进行转换。我尝试使用utf8toansi，但这会用hex(00)删除整行。有什么办法可以转换成整个文件中的文本？
我正在使用win32，RadStudio2007和Delphi。

最佳答案

这应该做...

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;