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 := TJPdfDocument.JavaClass.init;  try    // create page  1    PageInfo := TJPageInfo_Builder.JavaClass.init(100, 100, 1).create;    Page := Document.startPage(PageInfo);
    Canvas := Page.getCanvas;    Paint := TJPaint.JavaClass.init;
    Paint.setARGB($FF, 0, 0, $FF);    Canvas.drawText(StringToJString('Page 1'), 10, 50, Paint);
    Document.finishPage(Page);
    // create page 2    PageInfo := TJPageInfo_Builder.JavaClass.init(100, 100, 2).create;    Page := Document.startPage(PageInfo);
    Canvas := Page.getCanvas;    Paint := TJPaint.JavaClass.init;
    Paint.setARGB($FF, $FF, 0, 0);    Canvas.drawLine(10, 10, 90, 10, Paint);
    Paint.setStrokeWidth(1);    Paint.setARGB($FF, 0, $FF, 0);    Canvas.drawLine(10, 20, 90, 20, Paint);
    Paint.setStrokeWidth(2);    Paint.setARGB($FF, 0, 0, $FF);    Canvas.drawLine(10, 30, 90, 30, Paint);
    Paint.setARGB($FF, $FF, $FF, 0);    Canvas.drawRect(10, 40, 90, 60, Paint);
    Rect := TJRect.JavaClass.init;    Rect.&set(15, 50, 65, 100);    Recto := TJRect.JavaClass.init;    Recto.&set(0, 0, Image1.Bitmap.Width, Image1.Bitmap.Height);    Paint.setARGB($FF, $FF, 0, $FF);
    NativeBitmap := TJBitmap.JavaClass.createBitmap(Image1.Bitmap.Width,      Image1.Bitmap.Height, TJBitmap_Config.JavaClass.ARGB_8888);    sBitMap := TBitmapSurface.create;    sBitMap.Assign(Image1.Bitmap);    SurfaceToJBitmap(sBitMap, NativeBitmap);
    Canvas.drawBitmap(NativeBitmap, Recto, Rect, Paint);
    Document.finishPage(Page);
    // write PDF document to file    FileName := TPath.Combine(TPath.GetSharedDocumentsPath, 'demo.pdf');    OutputStream := TJFileOutputStream.JavaClass.init      (StringToJString(FileName));    try      Document.writeTo(OutputStream);    finally      OutputStream.close;    end;  finally    Document.close;  end;
  // start PDF viewer  Intent := TJIntent.JavaClass.init;  Intent.setAction(TJIntent.JavaClass.ACTION_VIEW);  Intent.setDataAndType(FileNameToUri(FileName),    StringToJString('application/pdf'));  Intent.setFlags(TJIntent.JavaClass.FLAG_ACTIVITY_NO_HISTORY or    TJIntent.JavaClass.FLAG_ACTIVITY_CLEAR_TOP);  SharedActivity.StartActivity(Intent);end;
来源：https://www.amingstudio.com/delphi/543.html 

相关阅读 >>

winapi 字符及字符串函数(9): lstrcat - 合并字符串

Delphi 从 exe 或 dll 中获取图标的函数

Delphi mailurlmaybeinvalid 检测邮箱地址有效性

aes.pas 和 elaes.pas

Delphi 10 下提示sharedactivitycontext错误的解决方法

Delphi 中的常用事件

Delphi 动画窗体

Delphi 关于禁止程序重复启动的另一种需要与实现

Delphi 正则表达式在每行开头插入行号

Delphi 判断文件类型函数

更多相关阅读请进入《Delphi》频道 >>