Ограничение количества одновременных подключений под одним логином

[polygris]

На axforum вроде уже подымалась тема subj. Поиск не дал результатов. Может кто нить поделится проектиком по данному вопросу. Спасибо!

[Lucky13]

Примерно так:

   for ( counter = 1; counter <= xSession::maxSessionId(); counter++ ) {
            session = new xSession( counter, true );
            if ( session ) {
                if ( session.sessionId() != sessionid() && this.excludeUser() ) {
                    if ( curuserid() == session.userId() ) {
                        warning = strfmt( "Пользователь %1 уже зарегистрирован в системе!!!", session.userId() );
                        Box::warning( warning, "Проблемы с регистрацией" );
                        InfoLog.shutDown( true );
                    }
                }
            }
        }

Этот код нужно написать в Application.startupPost. Метод ExcludeUser возвращает false для пользователей на которых данное ограничение не действует

[polygris]

спасибо попробую

[polygris]

    xSession session = new xSession();
    int i;
    int counter;
    SysUserInfo userInfo;
    ;

    userInfo = SysUserInfo::find(curUserId());
    for (i = 1; i <= xSession::maxSessionId(); i++)
    {
        session = new xSession(i, true);
        if (session && session.userId() == curUserId())
        {
            counter++;
        }
    }

    if ((userInfo.CountSessionFromOneLogin != 0) && (userInfo.CountSessionFromOneLogin < counter))
        checkFailed(strfmt('%1', counter));

[somebody]

Цитата:

i <= xSession::maxSessionId()

Вообще-то i <= xSession::maxSessionId() + 1 из-за АОСа...
Я проверяю в цикле до Info::licensedUsersTotal() + 1.

А что, в 4-ке появился параметр

userInfo.CountSessionFromOneLogin

? В 3.0 такого нет...

[aidsua]

Цитата:

Сообщение от somebody

А что, в 4-ке появился параметр

userInfo.CountSessionFromOneLogin

? В 3.0 такого нет...

В DAX 4.0 SP1 EE нет этого поля.. вероятно оно добавлено polygris

[_A_]

если на Box нажать ctrl+break Ваш shutdown не отработает

[Lucky13]

Цитата:

Сообщение от _A_

если на Box нажать ctrl+break Ваш shutdown не отработает

Изобретать телескоп пока никто не разрешал http://bayanov.net/text-komp/genesis.php