Using Delphi to get OS version, device name, language on iOS/Android

android | Embarcadero RAD Studio Delphi C++Builder Blogs

Author: Nikolas M41894

<span class="hljs-keyword" style="color: #000080; font-weight: bold;">unit</span> uOSVersionAndLocale;

<span class="hljs-keyword" style="color: #000080; font-weight: bold;">interface</span>

<span class="hljs-keyword" style="color: #000080; font-weight: bold;">uses</span>
  System.SysUtils, System.Types, System.UITypes, System.Classes, System.Variants,
  FMX.Types, FMX.Controls, FMX.Forms, FMX.Graphics, FMX.Dialogs, FMX.StdCtrls,
  FMX.Controls.Presentation, FMX.ScrollBox, FMX.Memo, FMX.Platform
<span class="hljs-comment" style="color: #008000; font-weight: bold;">{$IFDEF Android}</span>
  ,Androidapi.JNI.Os  <span class="hljs-comment" style="color: #008000; font-weight: bold;">//TJBuild</span>
  ,Androidapi.Helpers <span class="hljs-comment" style="color: #008000; font-weight: bold;">// StringToJString</span>
<span class="hljs-comment" style="color: #008000; font-weight: bold;">{$ENDIF}</span>
<span class="hljs-comment" style="color: #008000; font-weight: bold;">{$IFDEF IOS}</span>
  ,iOSapi.UIKit
  ,Posix.SysSysctl
  ,Posix.StdDef
<span class="hljs-comment" style="color: #008000; font-weight: bold;">{$ENDIF}</span>
  ;

<span class="hljs-keyword" style="color: #000080; font-weight: bold;">type</span>
  <span class="hljs-title" style="color: #0000ff; font-weight: bold;">TForm1</span> = <span class="hljs-keyword" style="color: #000080; font-weight: bold;">class</span>(TForm)
    Memo1: TMemo;
    ToolBar1: TToolBar;
    Button1: TButton;
    <span class="hljs-function"><span class="hljs-keyword" style="color: #000080; font-weight: bold;">procedure</span> <span class="hljs-title" style="color: #0000ff; font-weight: bold;">Button1Click</span><span class="hljs-params">(Sender: TObject)</span>;</span>
  <span class="hljs-keyword" style="color: #000080; font-weight: bold;">private</span>
<span class="hljs-comment" style="color: #008000; font-weight: bold;">{$IFDEF IOS}</span>
    <span class="hljs-function"><span class="hljs-keyword" style="color: #000080; font-weight: bold;">function</span> <span class="hljs-title" style="color: #0000ff; font-weight: bold;">GetDeviceModelString</span>:</span> <span class="hljs-keyword" style="color: #000080; font-weight: bold;">String</span>;
<span class="hljs-comment" style="color: #008000; font-weight: bold;">{$ENDIF}</span>
    <span class="hljs-comment" style="color: #008000; font-weight: bold;">{ private 宣言 }</span>
  <span class="hljs-keyword" style="color: #000080; font-weight: bold;">public</span>
    <span class="hljs-comment" style="color: #008000; font-weight: bold;">{ public 宣言 }</span>
  <span class="hljs-keyword" style="color: #000080; font-weight: bold;">end</span>;

<span class="hljs-keyword" style="color: #000080; font-weight: bold;">var</span>
  Form1: TForm1;

<span class="hljs-keyword" style="color: #000080; font-weight: bold;">implementation</span>

<span class="hljs-comment" style="color: #008000; font-weight: bold;">{$R *.fmx}</span>

<span class="hljs-comment" style="color: #008000; font-weight: bold;">{$IFDEF IOS}</span>
<span class="hljs-function"><span class="hljs-keyword" style="color: #000080; font-weight: bold;">function</span> <span class="hljs-title" style="color: #0000ff; font-weight: bold;">TForm1</span>.<span class="hljs-title" style="color: #0000ff; font-weight: bold;">GetDeviceModelString</span>:</span> <span class="hljs-keyword" style="color: #000080; font-weight: bold;">String</span>;
<span class="hljs-keyword" style="color: #000080; font-weight: bold;">var</span>
  Size: size_t;
  DeviceModelBuffer: <span class="hljs-keyword" style="color: #000080; font-weight: bold;">array</span> <span class="hljs-keyword" style="color: #000080; font-weight: bold;">of</span> Byte;
<span class="hljs-keyword" style="color: #000080; font-weight: bold;">begin</span>
  sysctlbyname(<span class="hljs-string" style="color: #0000ff; font-weight: bold;">'hw.machine'</span>, <span class="hljs-keyword" style="color: #000080; font-weight: bold;">nil</span>, @Size, <span class="hljs-keyword" style="color: #000080; font-weight: bold;">nil</span>, <span class="hljs-number">0</span>);

  <span class="hljs-keyword" style="color: #000080; font-weight: bold;">if</span> Size > <span class="hljs-number">0</span> <span class="hljs-keyword" style="color: #000080; font-weight: bold;">then</span>
  <span class="hljs-keyword" style="color: #000080; font-weight: bold;">begin</span>
    SetLength(DeviceModelBuffer, Size);
    sysctlbyname(<span class="hljs-string" style="color: #0000ff; font-weight: bold;">'hw.machine'</span>, @DeviceModelBuffer[<span class="hljs-number">0</span>], @Size, <span class="hljs-keyword" style="color: #000080; font-weight: bold;">nil</span>, <span class="hljs-number">0</span>);
    Result := UTF8ToString(MarshaledAString(DeviceModelBuffer));
  <span class="hljs-keyword" style="color: #000080; font-weight: bold;">end</span>
  <span class="hljs-keyword" style="color: #000080; font-weight: bold;">else</span>
    Result := EmptyStr;
<span class="hljs-keyword" style="color: #000080; font-weight: bold;">end</span>;
<span class="hljs-comment" style="color: #008000; font-weight: bold;">{$ENDIF}</span>

<span class="hljs-function"><span class="hljs-keyword" style="color: #000080; font-weight: bold;">procedure</span> <span class="hljs-title" style="color: #0000ff; font-weight: bold;">TForm1</span>.<span class="hljs-title" style="color: #0000ff; font-weight: bold;">Button1Click</span><span class="hljs-params">(Sender: TObject)</span>;</span>
<span class="hljs-keyword" style="color: #000080; font-weight: bold;">var</span>
  OSVersion: TOSVersion;
  OSLang: <span class="hljs-keyword" style="color: #000080; font-weight: bold;">String</span>;
  LocaleService: IFMXLocaleService;

  ModelName: <span class="hljs-keyword" style="color: #000080; font-weight: bold;">String</span>;
<span class="hljs-keyword" style="color: #000080; font-weight: bold;">begin</span>
  ModelName := <span class="hljs-string" style="color: #0000ff; font-weight: bold;">'unknown'</span>;
<span class="hljs-comment" style="color: #008000; font-weight: bold;">{$IFDEF Android}</span>
  ModelName := JStringToString(TJBuild.JavaClass.MODEL);
<span class="hljs-comment" style="color: #008000; font-weight: bold;">{$ENDIF}</span>
<span class="hljs-comment" style="color: #008000; font-weight: bold;">{$IFDEF IOS}</span>
  ModelName := GetDeviceModelString;
<span class="hljs-comment" style="color: #008000; font-weight: bold;">{$ENDIF}</span>

  Memo1.Lines.Add(Format(<span class="hljs-string" style="color: #0000ff; font-weight: bold;">'ModelName=%s'</span>, [ ModelName ] ));
  Memo1.Lines.Add(Format(<span class="hljs-string" style="color: #0000ff; font-weight: bold;">'OSName=%s'</span>, [OSVersion.Name]));
  Memo1.Lines.Add(Format(<span class="hljs-string" style="color: #0000ff; font-weight: bold;">'Platform=%d'</span>, [Ord(OSVersion.Platform)]));
  Memo1.Lines.Add(Format(<span class="hljs-string" style="color: #0000ff; font-weight: bold;">'Version=%d.%d'</span>, [OSVersion.Major,OSVersion.Minor]));

  OSLang := <span class="hljs-string" style="color: #0000ff; font-weight: bold;">''</span>;
  <span class="hljs-keyword" style="color: #000080; font-weight: bold;">if</span> TPlatformServices.Current.SupportsPlatformService(IFMXLocaleService, IInterface(LocaleService)) <span class="hljs-keyword" style="color: #000080; font-weight: bold;">then</span>
  <span class="hljs-keyword" style="color: #000080; font-weight: bold;">begin</span>
    OSLang := LocaleService.GetCurrentLangID();

    <span class="hljs-comment" style="color: #008000; font-weight: bold;">// if set Japanese on Android, LocaleService returns "jp", but other platform returns "ja"</span>
    <span class="hljs-comment" style="color: #008000; font-weight: bold;">// so I think it is better to change "jp" to "ja"</span>
    <span class="hljs-keyword" style="color: #000080; font-weight: bold;">if</span> (OSLang = <span class="hljs-string" style="color: #0000ff; font-weight: bold;">'jp'</span>) <span class="hljs-keyword" style="color: #000080; font-weight: bold;">then</span> OSLang := <span class="hljs-string" style="color: #0000ff; font-weight: bold;">'ja'</span>;
  <span class="hljs-keyword" style="color: #000080; font-weight: bold;">end</span>;
  Memo1.Lines.Add(Format(<span class="hljs-string" style="color: #0000ff; font-weight: bold;">'Lang=%s'</span>, [ OSLang ] ));

<span class="hljs-keyword" style="color: #000080; font-weight: bold;">end</span>;

<span class="hljs-keyword" style="color: #000080; font-weight: bold;">end</span>.

unit uOSVersionAndLocale;

interface

uses

System.SysUtils, System.Types, System.UITypes, System.Classes, System.Variants,

FMX.Types, FMX.Controls, FMX.Forms, FMX.Graphics, FMX.Dialogs, FMX.StdCtrls,

FMX.Controls.Presentation, FMX.ScrollBox, FMX.Memo, FMX.Platform

{$IFDEF Android}

,Androidapi.JNI.Os //TJBuild

,Androidapi.Helpers // StringToJString

{$ENDIF}

{$IFDEF IOS}

,iOSapi.UIKit

,Posix.SysSysctl

,Posix.StdDef

{$ENDIF}

;

type

TForm1 = class(TForm)

Memo1: TMemo;

ToolBar1: TToolBar;

Button1: TButton;

procedure Button1Click(Sender: TObject);

private

{$IFDEF IOS}

function GetDeviceModelString: String;

{$ENDIF}

{ private 宣言 }

public

{ public 宣言 }

end;

var

Form1: TForm1;

implementation

{$R *.fmx}

{$IFDEF IOS}

function TForm1.GetDeviceModelString: String;

var

Size: size_t;

DeviceModelBuffer: array of Byte;

begin

sysctlbyname('hw.machine', nil, @Size, nil, 0);

if Size > 0 then

begin

SetLength(DeviceModelBuffer, Size);

sysctlbyname('hw.machine', @DeviceModelBuffer[0], @Size, nil, 0);

Result := UTF8ToString(MarshaledAString(DeviceModelBuffer));

end

else

Result := EmptyStr;

end;

{$ENDIF}

procedure TForm1.Button1Click(Sender: TObject);

var

OSVersion: TOSVersion;

OSLang: String;

LocaleService: IFMXLocaleService;

ModelName: String;

begin

ModelName := 'unknown';

{$IFDEF Android}

ModelName := JStringToString(TJBuild.JavaClass.MODEL);

{$ENDIF}

{$IFDEF IOS}

ModelName := GetDeviceModelString;

{$ENDIF}

Memo1.Lines.Add(Format('ModelName=%s', [ ModelName ] ));

Memo1.Lines.Add(Format('OSName=%s', [OSVersion.Name]));

Memo1.Lines.Add(Format('Platform=%d', [Ord(OSVersion.Platform)]));

Memo1.Lines.Add(Format('Version=%d.%d', [OSVersion.Major,OSVersion.Minor]));

OSLang := '';

if TPlatformServices.Current.SupportsPlatformService(IFMXLocaleService, IInterface(LocaleService)) then

begin

OSLang := LocaleService.GetCurrentLangID();

// if set Japanese on Android, LocaleService returns "jp", but other platform returns "ja"

// so I think it is better to change "jp" to "ja"

if (OSLang = 'jp') then OSLang := 'ja';

end;

Memo1.Lines.Add(Format('Lang=%s', [ OSLang ] ));

end;

end.

RAD Studio 無料トライアル版

RAD Studio キャンペーン情報

Do you want to build an Android app? Try the Android App Builder Software , which will assist you in developing apps in the Delphi or C++ environments.

Reduce development time and get to market faster with RAD Studio, Delphi, or C++Builder.
Design. Code. Compile. Deploy.
Start Free Trial Upgrade Today

Free Delphi Community Edition Free C++Builder Community Edition

Using Delphi to get OS version, device name, language on iOS/Android

Leave a ReplyCancel reply

Search

Something Fresh

How Does Reliable Delphi Keep This Wonderland Running 365 Days A Year?

How To Use WebStencils To EASILY Create Modern, Professional, Superfast Websites

Meet The Developer: FontCreator - Erwin Denissen

Popular Posts

RAD Studio 12.2 Athens Inline Patch 1 Available

Announcing the Availability of RAD Studio 12.2 Athens

Delphi 12 And C++Builder 12 Community Editions Released!

InterBase ODBC Driver on GitHub

Embarcadero Partners with Raize Software for KSVC Maintenance

Categories

Unknown Feed

Unknown Feed

Categories

Useful Links

Follow us

Using Delphi to get OS version, device name, language on iOS/Android

Leave a ReplyCancel reply

Join Our Global Developer Community

Search

Something Fresh

Popular Posts

Categories

Categories

Useful Links

Follow us