[移动开发]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;