Delphi XE6 FireMonkey移动应用程序获取Android设备屏幕信息

本文整理自网络，侵删。

 
该代码使用Delphi XE6的FireMonkey移动应用程序获取Android终端的屏幕信息。

Android_Display_Delphi

uses
  Androidapi.JNI.GraphicsContentViewText,
  Androidapi.JNI.Util,
  FMX.Helpers.Android;

procedure TForm1.Button1Click(Sender: TObject);
var
  Display: JDisplay;
  DisplayMetrics: JDisplayMetrics;
begin
  Display := GetJDisplay();
  DisplayMetrics := GetJDisplayMetrics();
  Display.getMetrics(DisplayMetrics);

  Memo1.Lines.Add(Format('Display.getWidth = %d', [Display.getWidth]));
  Memo1.Lines.Add(Format('Display.getHeight = %d', [Display.getHeight]));
  Memo1.Lines.Add(Format('Display.getOrientation = %d', [Display.getOrientation]));
  Memo1.Lines.Add(Format('Display.getRefreshRate = %f', [Display.getRefreshRate]));
  Memo1.Lines.Add(Format('Display.getPixelFormat = %d', [Display.getPixelFormat]));

  Memo1.Lines.Add(Format('DisplayMetrics.xdpi(画面x轴方向每英寸准确的物理像素数) = %f', [DisplayMetrics.xdpi]));
  Memo1.Lines.Add(Format('DisplayMetrics.ydpi(画面y轴方向每英寸准确的物理像素数) = %f', [DisplayMetrics.ydpi]));
  Memo1.Lines.Add(Format('DisplayMetrics.widthPixels(显示器的绝对宽度) = %d', [DisplayMetrics.widthPixels]));
  Memo1.Lines.Add(Format('DisplayMetrics.heightPixels(像素显示器的绝对高度) = %d', [DisplayMetrics.heightPixels]));
  Memo1.Lines.Add(Format('DisplayMetrics.density(显示器逻辑密度) = %f', [DisplayMetrics.density]));
  Memo1.Lines.Add(Format('DisplayMetrics.density(用每英寸点数表示的画面密度) = %d', [DisplayMetrics.densityDpi]));
  Memo1.Lines.Add(Format('DisplayMetrics.scaledDensity(显示在显示器上的字体显示比例) = %f',s [DisplayMetrics.scaledDensity]));
end;
 

相关阅读 >>

Delphi xe8 form.onshow的一个小问题

Delphi intraweb 在iis下发布的web.config

Delphi access 数据库压缩

Delphi 间隔时间

Delphi 之 对话框组件

Delphi 控制鼠标按坐标点击

Delphi 切换大小写的例子

Delphi删除文件

Delphi-改进获取文件md5 hash方法

Delphi 检测文件数字签名

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

转载请注明出处：木庄网络博客 » Delphi XE6 FireMonkey移动应用程序获取Android设备屏幕信息