Liste der DVD-Tonspuren

[Codewalker]

Hallo zusammen.

Ich baue mir gerade eine kleine DVD-Verwaltung und würde darin gerne die Tonspuren eintragen können. Da Freitextfelder bekanntlich meist nur Probleme machen, würde ich gerne eine Liste der möglichen Sprachen vorgeben. Ich vermute mal, dass das in irgendeiner Form genormt sein muss, schließlich zeigen manche DVD-Player beim Wecheln der Tonspur auch ohne Menü die Sprachbezeichnung an. Ich konnte aber nirgendwo einen Hinweis auf eine solche Normung bzw. eine entsprechende Liste finden.
Ich hoffe jemand kann hier weiterhelfen.

Grüße

[Cylence]

Hi,

ich hab einen Player, in dem auch ein DVD Player integriert ist und dafür hab ich das mal zusammen getragen, weiß aber nicht ob es 100 % vollständig ist.

Delphi-Quellcode:

function TMRDVD.getLanguagefromLcId(LcId : Cardinal):String;
begin
   Result := 'Unknown';
   if LcId = strtocard('0x0436') then Result := 'Afrikaans';
   if LcId = strtocard('0x041c') then Result := 'Albanian';
   if LcId = strtocard('0x1401') then Result := 'Arabic (Algeria)';
   if LcId = strtocard('0x3c01') then Result := 'Arabic (Bahrain)';
   if LcId = strtocard('0x0c01') then Result := 'Arabic (Egypt)';
   if LcId = strtocard('0x0801') then Result := 'Arabic (Iraq)';
   if LcId = strtocard('0x2c01') then Result := 'Arabic (Jordan)';
   if LcId = strtocard('0x3401') then Result := 'Arabic (Kuwait)';
   if LcId = strtocard('0x3001') then Result := 'Arabic (Lebanon)';
   if LcId = strtocard('0x1001') then Result := 'Arabic (Libya)';
   if LcId = strtocard('0x1801') then Result := 'Arabic (Morocco)';
   if LcId = strtocard('0x2001') then Result := 'Arabic (Oman)';
   if LcId = strtocard('0x4001') then Result := 'Arabic (Qatar)';
   if LcId = strtocard('0x0401') then Result := 'Arabic (Saudi Arabia)';
   if LcId = strtocard('0x2801') then Result := 'Arabic (Syria)';
   if LcId = strtocard('0x1c01') then Result := 'Arabic (Tunisia)';
   if LcId = strtocard('0x3801') then Result := 'Arabic (U.A.E.)';
   if LcId = strtocard('0x2401') then Result := 'Arabic (Yemen)';
   if LcId = strtocard('0x042d') then Result := 'Basque';
   if LcId = strtocard('0x0423') then Result := 'Belarusian';
   if LcId = strtocard('0x0402') then Result := 'Bulgarian';
   if LcId = strtocard('0x0403') then Result := 'Catalan';
   if LcId = strtocard('0x0c04') then Result := 'Chinese (Hong Kong SAR)';
   if LcId = strtocard('0x0804') then Result := 'Chinese (PRC)';
   if LcId = strtocard('0x1004') then Result := 'Chinese (Singapore)';
   if LcId = strtocard('0x0404') then Result := 'Chinese (Taiwan)';
   if LcId = strtocard('0x041a') then Result := 'Croatian';
   if LcId = strtocard('0x0405') then Result := 'Czech';
   if LcId = strtocard('0x0406') then Result := 'Danish';
   if LcId = strtocard('0x0813') then Result := 'Dutch (Belgian)';
   if LcId = strtocard('0x0413') then Result := 'Dutch (Standard)';
   if LcId = strtocard('0x0c09') then Result := 'English (Australian)';
   if LcId = strtocard('0x2809') then Result := 'English (Belize)';
   if LcId = strtocard('0x1009') then Result := 'English (Canadian)';
   if LcId = strtocard('0x2409') then Result := 'English (Caribbean)';
   if LcId = strtocard('0x1809') then Result := 'English (Ireland)';
   if LcId = strtocard('0x2009') then Result := 'English (Jamaica)';
   if LcId = strtocard('0x1409') then Result := 'English (New Zealand)';
   if LcId = strtocard('0x1c09') then Result := 'English (South Africa)';
   if LcId = strtocard('0x2c09') then Result := 'English (Trinidad)';
   if LcId = strtocard('0x0809') then Result := 'English (United Kingdom)';
   if LcId = strtocard('0x0409') then Result := 'English (United States)';
   if LcId = strtocard('0x0425') then Result := 'Estonian';
   if LcId = strtocard('0x0438') then Result := 'Faeroese';
   if LcId = strtocard('0x0429') then Result := 'Farsi';
   if LcId = strtocard('0x040b') then Result := 'Finnish';
   if LcId = strtocard('0x080c') then Result := 'French (Belgian)';
   if LcId = strtocard('0x0c0c') then Result := 'French (Canadian)';
   if LcId = strtocard('0x140c') then Result := 'French (Luxembourg)';
   if LcId = strtocard('0x040c') then Result := 'French (Standard)';
   if LcId = strtocard('0x100c') then Result := 'French (Swiss)';
   if LcId = strtocard('0x0c07') then Result := 'German (Austrian)';
   if LcId = strtocard('0x1407') then Result := 'German (Liechtenstein)';
   if LcId = strtocard('0x1007') then Result := 'German (Luxembourg)';
   if LcId = strtocard('0x0407') then Result := 'German';
   if LcId = strtocard('0x0807') then Result := 'German (Swiss)';
   if LcId = strtocard('0x0408') then Result := 'Greek';
   if LcId = strtocard('0x040d') then Result := 'Hebrew';
   if LcId = strtocard('0x040e') then Result := 'Hungarian';
   if LcId = strtocard('0x040f') then Result := 'Icelandic';
   if LcId = strtocard('0x0421') then Result := 'Indonesian';
   if LcId = strtocard('0x0410') then Result := 'Italian (Standard)';
   if LcId = strtocard('0x0810') then Result := 'Italian (Swiss)';
   if LcId = strtocard('0x0411') then Result := 'Japanese';
   if LcId = strtocard('0x0412') then Result := 'Korean';
   if LcId = strtocard('0x0812') then Result := 'Korean (Johab)';
   if LcId = strtocard('0x0426') then Result := 'Latvian';
   if LcId = strtocard('0x0427') then Result := 'Lithuanian';
   if LcId = strtocard('0x043e') then Result := 'Malay (Malaysian)';
   if LcId = strtocard('0x083e') then Result := 'Malay (Brunei)';
   if LcId = strtocard('0x0414') then Result := 'Norwegian (Bokmal)';
   if LcId = strtocard('0x0814') then Result := 'Norwegian (Nynorsk)';
   if LcId = strtocard('0x0415') then Result := 'Polish';
   if LcId = strtocard('0x0416') then Result := 'Portuguese (Brazil)';
   if LcId = strtocard('0x0816') then Result := 'Portuguese (Portugal)';
   if LcId = strtocard('0x0418') then Result := 'Romanian';
   if LcId = strtocard('0x0419') then Result := 'Russian';
   if LcId = strtocard('0x0c1a') then Result := 'Serbian (Cyrillic)';
   if LcId = strtocard('0x081a') then Result := 'Serbian (Latin)';
   if LcId = strtocard('0x041b') then Result := 'Slovak';
   if LcId = strtocard('0x0424') then Result := 'Slovenian';
   if LcId = strtocard('0x2c0a') then Result := 'Spanish (Argentina)';
   if LcId = strtocard('0x400a') then Result := 'Spanish (Bolivia)';
   if LcId = strtocard('0x340a') then Result := 'Spanish (Chile)';
   if LcId = strtocard('0x240a') then Result := 'Spanish (Colombia)';
   if LcId = strtocard('0x140a') then Result := 'Spanish (Costa Rica)';
   if LcId = strtocard('0x1c0a') then Result := 'Spanish (Dominican Republic)';
   if LcId = strtocard('0x300a') then Result := 'Spanish (Ecuador)';
   if LcId = strtocard('0x440a') then Result := 'Spanish (El Salvador)';
   if LcId = strtocard('0x100a') then Result := 'Spanish (Guatemala)';
   if LcId = strtocard('0x480a') then Result := 'Spanish (Honduras)';
   if LcId = strtocard('0x080a') then Result := 'Spanish (Mexican)';
   if LcId = strtocard('0x0c0a') then Result := 'Spanish (Modern Sort)';
   if LcId = strtocard('0x4c0a') then Result := 'Spanish (Nicaragua)';
   if LcId = strtocard('0x180a') then Result := 'Spanish (Panama)';
   if LcId = strtocard('0x3c0a') then Result := 'Spanish (Paraguay)';
   if LcId = strtocard('0x280a') then Result := 'Spanish (Peru)';
   if LcId = strtocard('0x500a') then Result := 'Spanish (Puerto Rico)';
   if LcId = strtocard('0x040a') then Result := 'Spanish (Traditional Sort)';
   if LcId = strtocard('0x380a') then Result := 'Spanish (Uruguay)';
   if LcId = strtocard('0x200a') then Result := 'Spanish (Venezuela)';
   if LcId = strtocard('0x0441') then Result := 'Swahili';
   if LcId = strtocard('0x041d') then Result := 'Swedish';
   if LcId = strtocard('0x081d') then Result := 'Swedish (Finland)';
   if LcId = strtocard('0x041e') then Result := 'Thai';
   if LcId = strtocard('0x041f') then Result := 'Turkish';
   if LcId = strtocard('0x0422') then Result := 'Ukrainian';
end;

Mfg

Cylence