mORMot Open Source

procedure TForm1.Button1Click(Sender: TObject);
var
  Pdf: TPdfDocumentGDI;
begin
  Pdf := TPdfDocumentGDI.Create;
  try
// Pdf.EmbeddedTTF:=True;
    Pdf.AddPage;
    with Pdf.VCLCanvas do
    begin
      Pen.Color := clRed;
      Pen.Width := 2;
      Brush.Color := clInfoBk;
      Rectangle(100, 100, 400, 200);
      Font.Name := '宋体';
      Font.Size := 20;
 
      TextOut(200, 120, '测试内容'); {An error is reported as long as the input is a Chinese string. How to solve it? }
      //TextOut(200, 120, 'AAAA123');  {This output is normal}
      Pen.Color := clYellow;
      Pen.Width := 5;
      MoveTo(100, 250);
      LineTo(400, 250);
    end;
    Pdf.SaveToFile(ExtractFilePath(Application.ExeName) +'ceshi.pdf');
  finally
    Pdf.Free;
  end;
end;