Ländername für ISO-Code auslesen

[philipp.hofmann]

Hi,

gibt es eine Möglichkeit für einen ISO-Ländercode den Namen in der jeweiligen Systemsprache zu ermitteln (FMX, also Cross-Plattform)?

Grüße, Philipp

[Der schöne Günther]

Iso 639?

Und wenn ja, welche Version? Grade der Wechsel von 639-1 auf 639-2 war ja nicht ohne.

[philipp.hofmann]

Nach Möglichkeit ISO 3166-1 alpha2, also DE, FR, ...

[Rollo62]

Ich habe das mal mit KI zusammenfassen lassen, nicht sicher ob es funktioniert,
sieht aber ganz sinnvoll aus, zeigt zumindest die relevanten Funktionen.

Delphi-Quellcode:

unit CountryUtils;

interface

uses
  System.SysUtils;

/// <summary>
///   Gibt den im aktuellen Systemsprache lokalisierten Namen für den ISO-Ländercode zurück.
///   Beispiel: 'DE' &#8594; 'Deutschland' (wenn Systemsprache Deutsch).
/// </summary>
/// <param name="ACountryCode">ISO 3166-1 Alpha-2 Ländercode (z.B. 'DE', 'US')</param>
function GetCountryName(const ACountryCode: string): string;

implementation

uses
  {$IF defined(ANDROID)}
  Androidapi.JNI.Java.Util, Androidapi.Helpers;
  {$ELSEIF defined(IOS)}
  iOSapi.Foundation, Macapi.ObjectiveC, iOSapi.Helpers;
  {$ELSEIF defined(MSWINDOWS)}
  Winapi.Windows;
  {$ELSEIF defined(MACOS)}
  iOSapi.Foundation, Macapi.ObjectiveC, iOSapi.Helpers;
  {$ENDIF}

{$IF defined(ANDROID)}
function GetCountryNameAndroid(const ACountryCode: string): string;
var
  SysLocale, CountryLocale: JLocale;
begin
  SysLocale := TJLocale.JavaClass.getDefault;
  CountryLocale := TJLocale.JavaClass.init(
    StringToJString(''), 
    StringToJString(ACountryCode.ToUpper)
  );
  Result := JStringToString(CountryLocale.getDisplayCountry(SysLocale));
end;
{$ENDIF}

{$IF defined(IOS) or defined(MACOS)}
function GetCountryNameApple(const ACountryCode: string): string;
var
  Locale: NSLocale;
  Name: NSString;
begin
  Locale := TNSLocale.Wrap(TNSLocale.OCClass.currentLocale);
  Name := Locale.displayNameForKeyValue(
    NSLocaleCountryCode, 
    StrToNSStr(ACountryCode.ToUpper)
  );
  Result := NSStrToStr(Name);
end;
{$ENDIF}

{$IF defined(MSWINDOWS)}
function GetCountryNameWindows(const ACountryCode: string): string;
var
  LocaleName: string;
  Buf: PChar;
  Len: Integer;
begin
  LocaleName := 'und-' + ACountryCode.ToUpper;
  // Puffergröße ermitteln
  Len := GetLocaleInfoEx(PChar(LocaleName),
                        LOCALE_SLOCALIZEDCOUNTRYNAME,
                        nil, 0);
  if Len > 0 then
  begin
    GetMem(Buf, Len * SizeOf(Char));
    try
      if GetLocaleInfoEx(PChar(LocaleName),
                         LOCALE_SLOCALIZEDCOUNTRYNAME,
                         Buf, Len) > 0 then
        Result := Buf
      else
        Result := '';
    finally
      FreeMem(Buf);
    end;
  end
  else
    Result := '';
end;
{$ENDIF}

function GetCountryName(const ACountryCode: string): string;
begin
  if ACountryCode.Trim.IsEmpty then
    Exit('');
  {$IF defined(ANDROID)}
    Result := GetCountryNameAndroid(ACountryCode);
  {$ELSEIF defined(IOS) or defined(MACOS)}
    Result := GetCountryNameApple(ACountryCode);
  {$ELSEIF defined(MSWINDOWS)}
    Result := GetCountryNameWindows(ACountryCode);
  {$ELSE}
    Result := '';
  {$ENDIF}
end;

end.

[philipp.hofmann]

Mit ein bißchen Arbeit war dieses KI generierte Beispiel nutzbar:
- unter Android nur Anpassung der Klassennamen
- unter MacOS/iOS musste es eine andere Methode sein
- die Windows-Lösung ist etwas komplexer geworden, da ich bisher nicht weiß, wie man nur für einen zweistelligen Code unter Windows den Ländernamen erhält; da probiere ich jetzt verschiedene Locales durch, in dem ich zuerst [Ländercode]_[Ländercode], dann en_[Ländercode], fr_[Ländercode], es_[Ländercode], de_[Ländercode], pt_[Ländercode], ar_[Ländercode], ru_[Ländercode] und wenn damit nichts gefunden wird, suche ich in folgender Liste nach dem richtigen Locale:

Delphi-Quellcode:

    var helpCC:String:='az_AZ be_BY bg_BG bm_ML bn_BD ca_AD ce_RU cs_CZ da_DK dz_BT ee_TG el_CY el_GR ne_NP et_EE fa_AF fa_IR ff_CM '+
         'ff_GN ff_MR ff_SN fy_NL gd_GB gv_IM hr_BA hr_HR hy_AM it_SM it_VA ja_JP ka_GE kk_KZ kl_GL km_KH ko_KP ko_KR ky_KG lb_LU '+
         'lv_LV lg_UG mk_MK mt_MT ro_RO sl_SI sq_AL sr_CS sr_ME sr_RS sv_SE ta_MM ta_MU ta_SL ta_SG th_TH tr_TR uk_UA vi_VN zh_HK zu_ZA';

[Rollo62]

Interessant, ich hätte mal angenommen Windows wäre der einfachere Teil ...
Es gibt noch andere Optionen unter Windows
https://learn.microsoft.com/de-de/wi...s-getgeoinfoex
https://learn.microsoft.com/de-de/wi...ls-getgeoinfow
https://learn.microsoft.com/de-de/wi...ed-apis-sample

Aber tatsächlich, eine eindeutige Lösung scheint es nicht zu geben.
Am Ende solllte es ein Fallback zu Deiner statischen Lösung geben, dann kannst Du auch direkt dabei bleiben.
Der einzige Vorteil der OS Lösung wäre es, wenn sich mal Countries und -CountryCodes ändern,
dass dann das OS immer aktuell bleibt und die statische Liste mal veraltet sein könnte.
Ich hoffe mal, dass es dazu nicht kommt :stupid:

Delphi-Quellcode:

function GetCountryNameFromLocaleFallback(const Iso: string): string;
const
  StaticLangs: array[0..6] of string = ('en', 'fr', 'es', 'de', 'pt', 'ar', 'ru');
var
  UILang: array[0..LOCALE_NAME_MAX_LENGTH-1] of WideChar;
  LangCode: string;
  Candidate: string;
  Buf: array[0..127] of WideChar;
  Len: Integer;
begin
  Result := '';

  // 1) ISO-639-Sprache der UI holen
  if GetLocaleInfoEx(LOCALE_NAME_USER_DEFAULT,
                     LOCALE_SISO639LANGNAME,
                     @UILang, LOCALE_NAME_MAX_LENGTH) > 0 then
    LangCode := PChar(@UILang)
  else
    LangCode := 'en';   // Fallback

  // 2) zuerst UI-Sprache testen
  Candidate := LangCode + '-' + Iso;
  Len := GetLocaleInfoEx(PChar(Candidate),
                         LOCALE_SLOCALIZEDCOUNTRYNAME,
                         @Buf, Length(Buf));
  if Len > 0 then
    Exit(Buf);

  // 3) danach statische Sprachenliste
  for LangCode in StaticLangs do
  begin
    Candidate := LangCode + '-' + Iso;
    Len := GetLocaleInfoEx(PChar(Candidate),
                           LOCALE_SLOCALIZEDCOUNTRYNAME,
                           @Buf, Length(Buf));
    if Len > 0 then
      Exit(Buf);
  end;
end;