weet iemaand hoe kan ik OS language ID achterhalen
ik heb al wat maar dit is voor explorer language ID
Page.Request.ServerVariables.Get("HTTP_ACCEPT_LANG UAGE");
weet iemaand hoe kan ik OS language ID achterhalen
ik heb al wat maar dit is voor explorer language ID
Page.Request.ServerVariables.Get("HTTP_ACCEPT_LANG UAGE");
Het is mij niet duidelijk of je iets aan de Server of Client kant wil?
Hier een voorbeeldje waar waarschijnlijk wel een antwoord voor jou in zit. Zoek de verschillende methods op in de help voor meer info.
Code:implementation uses System.Globalization, System.Threading, System.Text; //... procedure TWebForm1.Page_Load(sender: System.Object; e: System.EventArgs); const CNewLine = '<br>'; var CI: CultureInfo; S: StringBuilder; begin S := StringBuilder.Create; CI := CultureInfo.CurrentUICulture; S.Append('CurrentUiCulture:'); S.Append(CNewLine); S.Append(CI.ToString); S.Append(CNewLine); S.Append(CI.LCID.ToString); S.Append(CNewLine); S.Append(CI.DisplayName); S.Append(CNewLine); S.Append(DateTime.Now.ToLongDateString); S.Append(CNewLine); S.Append(System.String.Create('-',80)); S.Append(CNewLine); CI := CultureInfo.InstalledUICulture; S.Append('InstalledUiCulture:'); S.Append(CNewLine); S.Append(CI.ToString); S.Append(CNewLine); S.Append(CI.LCID.ToString); S.Append(CNewLine); S.Append(CI.DisplayName); S.Append(CNewLine); S.Append(DateTime.Now.ToLongDateString); S.Append(CNewLine); S.Append(System.String.Create('-',80)); S.Append(CNewLine); CI := Thread.CurrentThread.CurrentCulture; Thread.CurrentThread.CurrentCulture := CI; S.Append('Thread.CurrentThread.CurrentCulture'); S.Append(CNewLine); S.Append(CI.ToString); S.Append(CNewLine); S.Append(CI.LCID.ToString); S.Append(CNewLine); S.Append(DateTime.Now.ToLongDateString); S.Append(CNewLine); S.Append(CI.DisplayName); S.Append(CNewLine); S.Append(System.String.Create('-',80)); S.Append(CNewLine); CI := CultureInfo.Create('af-ZA'); Thread.CurrentThread.CurrentCulture := CI; S.Append('Thread.CurrentThread.CurrentCulture'); S.Append(CNewLine); S.Append(CI.ToString); S.Append(CNewLine); S.Append(CI.LCID.ToString); S.Append(CNewLine); S.Append(DateTime.Now.ToLongDateString); S.Append(CNewLine); S.Append(CI.DisplayName); S.Append(CNewLine); S.Append(System.String.Create('-',80)); S.Append(CNewLine); // Client S.Append('Request.UserLanguages'); S.Append(CNewLine); with System.Array(Request.UserLanguages).GetEnumerator do while MoveNext do S.Append(Current); S.Append(CNewLine); S.Append(System.String.Create('-',80)); S.Append(CNewLine); if Length(Request.UserLanguages) > 0 then begin CI := CultureInfo.Create(Request.UserLanguages[0]); Thread.CurrentThread.CurrentCulture := CI; S.Append('Request.Userlanguages[0]'); S.Append(CNewLine); S.Append(CI.ToString); S.Append(CNewLine); S.Append(CI.LCID.ToString); S.Append(CNewLine); S.Append(DateTime.Now.ToLongDateString); S.Append(CNewLine); S.Append(CI.DisplayName); S.Append(CNewLine); S.Append(System.String.Create('-',80)); S.Append(CNewLine); end; Response.Write(S.ToString); S.Free; end;
All methodologies are based on fear. -- Kent Beck.
There are currently 1 users browsing this thread. (0 members and 1 guests)
Bookmarks