ISO 639-1 Sprachcode auslesen

[3_of_8]

Morgen.

Ich will den ISO 639-1 Sprachcode der momentanen Systemsprache ermitteln. Mit GetSystemDefaultLangID kriegt man ja einen Word-Wert, aber der hilft mir ned wirklich weiter...

[3_of_8]

Es sind zwar noch nicht ganz 24 Stunden, aber ich erlaube es mir trotzdem mal, zu *push*en.

[Der_Unwissende]

Hi,
ich glaube mit dem ISO Standard dürfte es etwas schwer werden. Der ist erst in .Net verfügbar. Da musst du nur mal auf den MSDN Seiten nach dem NLS SDK gucken, dürfte eine Funktion GetSystemDefaultLocaleName geben, die arbeitet (imho) nach ISO 639, weiß aber nicht genau ob -1 oder -2.
Unter Win32 glaube ich nicht, dass der schon so verfügbar war. Aber auch dort denke ich wirst du eher bei MSDN fündig. Sorry dass ich dir nicht direkt helfen kann.

Gruß Der Unwissende

[marabu]

Hallo Manuel,

wenn du die ersten 2 Buchstaben des Funktionsergebnisses abgreifst, dann solltest du nach Windows-Konvention die zweistellige Sprachkennung nach ISO 639-1 erhalten.

Delphi-Quellcode:

function AbbrevLangName: String;
var
  buffer: array [0..5] of Char;
begin
  SetString(Result, buffer,
    GetLocaleInfo(LOCALE_USER_DEFAULT, LOCALE_SABBREVLANGNAME, @buffer, sizeOf(buffer))
  );
end;

Grüße vom marabu

[3_of_8]

Also einfach die ersten zwei Zeichen nehmen geht nicht, da das bei vielen Sprachen nicht so ist.

Aber ich habe jetzt eine andere Möglichkeit gefunden.

Dafür bräuchte ich aber die Eigenbezeichnung der Sprache ODER die englische Bezeichnung. Aber nicht Deutsch (Deutschland) sondern nur Deutsch.

[marabu]

Oft liefert der Code das richtige Ergebnis, aber leider nicht immer. Wenn du mehr Sicherheit brauchst, dann hilft es das CissoUtil Automationsobjekt aus der Bibliothek IXSSO.DLL zu importieren. Danach geht sowas:

Delphi-Quellcode:

// uses Cisso;
ShowMessage(CissoUtil.LocaleIDToISO(GetUserDefaultLCID));

marabu

[3_of_8]

Wo finde ich diese DLL?

[Sir Rufo]

Schau mal unter C:\WINDOWS\system32 oder besser %systemroot%\system32 :mrgreen:

[3_of_8]

Ich hab nicht genau gelesen.

OK, woher bekomme ich die Header für diese DLL?

[marabu]

So erzeugst du dir die Unit CISSO, die du dann in ein Package deiner Wahl installieren kannst:

Code:

c:
cd \Programme\Borland\Delphi7\Imports\Source
tlibimp -Fe- %windir%\system32\ixsso.dll

Danach ziehst du die Komponente CissoUtil aus der Palettenseite Servers auf eine Form und los geht es.

Grüße vom marabu

[3_of_8]

Da gibts keine tlibimp.exe.

[Christian Seehase]

Moin Manuel,

hast Du mal im Delphi\Bin-Verzeichnis nachgesehen?

[3_of_8]

Da ist auch nur ne tlibimp.sym, die nicht sehr ausführbar aussieht.

[Christian Seehase]

Moin Manuel,

dann ist die bei der PE wohl nicht mit dabei.
Schau doch mal, ob Du die DLL nicht über "Komponenten\ActiveX Control importieren" hinzufügen kannst.

[marabu]

Cisso.pas im Anhang.

marabu

[3_of_8]

:thumb: