TM1 Forum

Code: Select all

        protected int tm1Main()
        {
            String adminHost, tm1Svr, tm1Uid, tm1Pwd;
            adminHost = TextBox1.Text;
            tm1Svr = TextBox2.Text;
            tm1Uid = TextBox3.Text;
            tm1Pwd = TextBox4.Text;
            int nRtn = 0;

            // Start by creating an Admin Server object 
            TM1AdminServer admin = new TM1AdminServer(adminHost, "tm1adminserver");

            try
            {
                // Obtain "sdata" server info object and then login 
                TM1Server server = admin.Servers[tm1Svr].Login(tm1Uid, tm1Pwd);

                if (server != null)
                {
                    Session["Default_txtAdminHost"] = TextBox1.Text;
                    Session["Default_txtServer"] = TextBox2.Text;
                    Session["Default_tm1Uid"] = TextBox3.Text;
                    Session["Default_tm1Pwd"] = TextBox4.Text;
                    string[] cs = {tm1Uid, "Web Home Page Object"};
                    TM1Cell cCell = server.Cubes["}ClientSettings"].Cells[cs];
                    Session["Default_Page"] = cCell.Value;
                }
                else
                {
                    // Handle failure to login 
                    nRtn = -1;

                    admin.LogoutAll();
                    admin.Dispose();
                    return nRtn;
                }
            }
            catch (Exception exc)
            {
                // Handle exception 
                nRtn = -2;
                admin.LogoutAll();
                admin.Dispose();
                string MainString = exc.Message;
                string SearchString = "-";
                string str1 = string.Empty;
                int FirstChr = MainString.IndexOf(SearchString);
                str1 = MainString.Substring(FirstChr + 1);
                if (str1.Substring(0, 6) != "Object")
                {
                    lblMessage.Text = str1;
                }
                else
                {
                    lblMessage.Text = "Invalid Host/Server";
                }
                return nRtn;
                //Response.Write("<script language='javascript'>window.alert('Connection Error - " +exc.Message +" ' );</script>");
                //MessageBox.Show("Login Failed:\n" + exc.Message, "TM1 API Exception", MessageBoxButtons.OK, MessageBoxIcon.Error);
            }

            // We're done with all database servers and the Admin Server object 
            admin.LogoutAll();
            admin.Dispose();
            return nRtn;
        }