Delphi安卓创建PDf文件并打开

uses Androidapi.JNI.GraphicsContentViewText, Androidapi.JNI.JavaTypes,

  Androidapi.JNI.Net, Androidapi.Helpers, System.IOUtils, FMX.Helpers.android,

  FMX.surfaces;

function FileNameToUri(const FileName: string): Jnet_Uri;

var

  JavaFile: JFile;

begin

  JavaFile := TJFile.JavaClass.init(StringToJString(FileName));

  Result := TJnet_Uri.JavaClass.fromFile(JavaFile);

end;

procedure TForm1.btCreatePDFClick(Sender: TObject);

var

  Document: JPdfDocument;

  PageInfo: JPdfDocument_PageInfo;

  Page: JPdfDocument_Page;

  Canvas: JCanvas;

  Paint: JPaint;

  Recto: JRect;

  Rect: JRect;

  FileName: string;

  OutputStream: JFileOutputStream;

  Intent: JIntent;

  NativeBitmap: JBitmap;

  sBitMap: TBitmapSurface;

begin

  // create Pdf document

  Document := TJP