如何将rtf格式转为二进制格式?

Question

如题

Answer 1

我在
http://expert.csdn.net/Expert/topic/1881/1881120.xml?temp=.6545069
中写了一个将rtf文件转换为二进制流的函数，你可以参考一下

Answer 2

procedure RtfToBin(ARtfFile, ABinFile: String);
var
  vRE: TRichEdit;
  vMS: TMemoryStream;
begin
  vRE := TRichEdit.Create(nil);
  try
    RichEdit1.Lines.LoadFromFile(ARtfFile);
    vMS := TMemoryStream.Create;
    try
      RichEdit1.Lines.SaveToStream(vMS);
      vMS.SaveToFile(ABinFile);
    finally
      vMS.Free;
    end;
  finally
    vRE.Free;
  end;
end;

Answer 3

上面的程序未经编译，有错误，下面为修正的
procedure RtfToBin(ARtfFile, ABinFile: String);
var
  vRE: TRichEdit;
  vMS: TMemoryStream;
begin
  vRE := TRichEdit.Create(Application);
  try
    vRE.Visible := False;
    vRE.Parent := Application.MainForm;
    vRE.Lines.LoadFromFile(ARtfFile);
    vMS := TMemoryStream.Create;
    try
      vRE.Lines.SaveToStream(vMS);
      vMS.SaveToFile(ABinFile);
    finally
      vMS.Free;
    end;
  finally
    vRE.Free;
  end;
end;