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 字符串的分割

Delphi 获取网卡mac为软件注册机器码

Delphi分别连接ms sqlserver、oracle和access数据库的连接字符串

Delphi windows 编程[1] - 窗体生成的过程一

Delphi fmx检查应用程序状态更改

Delphi 图像操作

Delphi xe10 对 json的解析应用

Delphi将dbgrid数据导出到excel表中

Delphi中使用ado连接带密码的access

Delphi dateutils.ispm - 判断时间是否是下午

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



打赏

取消

感谢您的支持,我会继续努力的!

扫码支持
扫码打赏,您说多少就多少

打开支付宝扫一扫,即可进行扫码打赏哦

分享从这里开始,精彩与您同在

评论

管理员已关闭评论功能...