Results 1 to 2 of 2

Thread: language ID

  1. #1

    language ID

    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");

  2. #2
    SillyMember
    Join Date
    May 2003
    Location
    Gent
    Posts
    7,725
    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.

Thread Information

Users Browsing this Thread

There are currently 1 users browsing this thread. (0 members and 1 guests)

Similar Threads

  1. MessageDlg : vertalingen
    By bava in forum Algemeen
    Replies: 10
    Last Post: 15-Oct-03, 14:46
  2. Language
    By Eduardo in forum Algemeen
    Replies: 4
    Last Post: 25-Sep-03, 16:58
  3. Multi Language (login scherm)
    By Darco in forum Algemeen
    Replies: 18
    Last Post: 07-May-03, 10:33
  4. Replies: 0
    Last Post: 02-Mar-03, 23:53
  5. Using Delphi as a script language for ASP.NET
    By Marcel in forum Delphi.NET / Web services
    Replies: 0
    Last Post: 19-Sep-02, 13:45

Bookmarks

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •