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

Cookie	Duration	Description
cookielawinfo-checkbox-analytics	11 months	This cookie is set by GDPR Cookie Consent plugin. The cookie is used to store the user consent for the cookies in the category "Analytics".
cookielawinfo-checkbox-functional	11 months	The cookie is set by GDPR cookie consent to record the user consent for the cookies in the category "Functional".
cookielawinfo-checkbox-necessary	11 months	This cookie is set by GDPR Cookie Consent plugin. The cookies is used to store the user consent for the cookies in the category "Necessary".
cookielawinfo-checkbox-others	11 months	This cookie is set by GDPR Cookie Consent plugin. The cookie is used to store the user consent for the cookies in the category "Other.
cookielawinfo-checkbox-performance	11 months	This cookie is set by GDPR Cookie Consent plugin. The cookie is used to store the user consent for the cookies in the category "Performance".
viewed_cookie_policy	11 months	The cookie is set by the GDPR Cookie Consent plugin and is used to store whether or not user has consented to the use of cookies. It does not store any personal data.

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

Leave a ReplyCancel reply

Search

Something Fresh

What Are The Container Adapters in Modern C++?

Delphi App For Go-Kart Racing Tops Both App Stores!

RAD Studio 12.1 Athens Patch 1 Available

Popular Posts

RAD Studio 12.1 Athens Patch 1 Available

Announcing the Availability of RAD Studio 12.1 Athens

Is Delphi A Memory Safe Language?

GetIt Update: RAD Studio 11 GetIt Online Installation along with Delphi and C++Builder Community Edition Are Now Available

GetIt Update: RAD Studio 12 GetIt Online Installation Is Now Available

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