使用tmsfncricheditor将某个路径下的jpg图片批量生成pdf文件

如题。

步骤。

1、放置tmsfncricheditor，popmenu组件。

2、编写代码。

procedure TForm1.pdf1Click(Sender: TObject);
begin
  Self.TMSFNCRichEditor1.Clear;
  Self.TMSFNCRichEditor1.AddImage('C:\Users\zhang\Pictures\2019-12-02\001.jpg', 525, 743);
  Self.TMSFNCRichEditor1.AddLineBreak;
  Self.TMSFNCRichEditor1.AddImage('C:\Users\zhang\Pictures\2019-12-02\002.jpg', 525, 743);
  Self.TMSFNCRichEditor1.AddLineBreak;
  Self.TMSFNCRichEditor1.AddImage('C:\Users\zhang\Pictures\2019-12-02\003.jpg', 525, 743);
  Self.TMSFNCRichEditor1.AddLineBreak;
  self.TMSFNCRichEditorPDFIO1.Save('d:\1.pdf');
end;

3、结果。