从 TStream 输出中删除 UTF-8 BOM-解网

问：

我正在使用 Delphi 11。我必须使用对象编写一个没有 BOM 的 UTF-8 文件，但使用会生成一个带有 BOM 的 UTF-8 文件，所以我尝试直接使用编码但没有成功：.csvTStreamTEncoding.UTF8

function TfMain.generateCsvFile(pathname : String ; outStr : String; create : boolean; append:boolean; close:boolean) : Boolean;
var
  //Writer: TStreamWriter;
  UTF8withoutBOM: TEncoding;
begin
  Result := False;
  UTF8withoutBOM := TEncoding.GetEncoding(65001);
  try
    if create then begin
      Writer := TStreamWriter.Create(pathname, False, UTF8WithoutBOM);
    end;
    if append then begin
      Writer.WriteLine(outStr);
      Writer.Flush;
      Result := True;
    end;
    if close then begin
      Writer.Close;
      Writer.Free;
    end;
  except
    on e : Exception do begin
      ShowMessage('Errore '+e.Message);
      lbConsole.Items.Add('Errore '+e.Message);
    end;
  end;
end;

有没有办法告诉 Delphi 删除 BOM 使用？TStreamWriter

UTF-8 字符编码字节顺序标记 Delphi-11-Alexandria

type
  TUTF8EncodingNoBOM = class(TUTF8Encoding)
  public
    function GetPreamble: TBytes; override;
  end;

function TUTF8EncodingNoBOM.GetPreamble: TBytes;
begin
  Result := nil;
end;

function TfMain.generateCsvFile(pathname : String ; outStr : String; create : boolean; append: boolean; close: boolean) : Boolean;
var
  ... 
  UTF8withoutBOM: TEncoding;
begin
  Result := False;
  UTF8withoutBOM := TUTF8EncodingNoBOM.Create;
  try
    ...
  finally    
    UTF8withoutBOM.Free;
  end;
end;

附带说明：您需要返回的对象，否则它将被泄露。Free()TEncodingTEncoding.GetEncoding()

上一个：UnicodeDecodeError：“utf-8”编解码器无法解码位置 0 中的字节0xeb：无效的延续字节

下一个：OpenCV：有没有办法用二进制而不是字符串来解码二进制二进制代码？

从 TStream 输出中删除 UTF-8 BOM

Remove UTF-8 BOM from TStream output

评论