在Delphi TMS Web Core中获取用户屏幕分辨率-Delphi 大神网

欢迎加入全网最大Delphi 技术交流群 682628230

在TMS Web Core中，由于其基于Web技术，无法直接使用FMX中的TScreen类来获取屏幕分辨率。不过，TMS Web Core提供了与浏览器交互的接口，可以通过这些接口获取屏幕分辨率。

方法1：使用`window.screen`对象

TMS Web Core提供了对浏览器window.screen对象的访问，可以直接通过Delphi代码获取屏幕宽度和高度。

delphi复制

function GetScreenResolution: String;
begin
  Result := String(window.screen['width']) + 'x' + String(window.screen['height']);
end;

window.screen['width']：获取浏览器窗口的屏幕宽度。
window.screen['height']：获取浏览器窗口的屏幕高度。
String()：将JavaScript中的数值类型转换为Delphi字符串。

方法2：使用`TJSWindow`和`TJSScreen`对象

TMS Web Core的WEB单元提供了对JavaScript对象的封装，可以通过这些封装对象访问浏览器的屏幕信息。

delphi复制

uses
  WEB;

function GetScreenResolution: String;
var
  ScreenObj: TJSScreen;
begin
  ScreenObj := TJSWindow.Window.Screen;
  Result := ScreenObj.Width.ToString + 'x' + ScreenObj.Height.ToString;
end;

TJSWindow.Window.Screen：获取浏览器的屏幕对象。
ScreenObj.Width和ScreenObj.Height：分别获取屏幕的宽度和高度。
ToString：将数值转换为字符串。

方法3：直接使用JavaScript（混合方式）

如果你更倾向于直接使用JavaScript代码，也可以在Delphi中嵌入JavaScript。这种方式虽然简单，但不如纯Delphi方式优雅。

delphi复制

function GetScreenResolution: String;
begin
  asm
    Result = screen.width + "x" + screen.height;
  end;
end;

screen.width和screen.height：JavaScript中获取屏幕分辨率的标准方式。
Result：将JavaScript表达式的结果直接赋值给Delphi函数的返回值。

示例代码

以下是一个完整的示例，展示如何在按钮点击事件中调用GetScreenResolution函数并显示屏幕分辨率：

delphi复制

procedure TForm1.WebButton1Click(Sender: TObject);
var
  Resolution: String;
begin
  Resolution := GetScreenResolution;
  WebLabel1.Text := 'Screen Resolution: ' + Resolution;
end;

在TMS Web Core中，获取屏幕分辨率可以通过多种方式实现。推荐使用TJSWindow和TJSScreen对象的方式，因为它完全基于Delphi语法，避免了混合使用两种语言，使得代码更加清晰和易于维护。

文章版权归作者所有，未经允许请勿转载。

THE END