Как обновить IP адрес во время сессии?

[x11]

Я так понял, что свойство RemoteHost заполняется только при входе, а потом, даже если IP адрес меняется на устройстве, то свойстве RemoteHost остается старый адрес.

Как принудительно обновить адрес в RemoteHost?

Спасибо.

[Tokay]

Насколько я представляю TCP, если IP меняется на устройстве, то будет повторное соединение, IP должен быть актуальным всегда.

[x11]

нет, ID сессии не меняется, поэтому сервер uniGUI ни о чем не подозревает

[Sherzod]

23 hours ago, x11 said:

Я так понял, что свойство RemoteHost заполняется только при входе, а потом, даже если IP адрес меняется на устройстве, то свойстве RemoteHost остается старый адрес.

Как принудительно обновить адрес в RemoteHost?

Используйте

UniSession.ARequest.RemoteIP

 

[x11]

Использовать как? Читать из этого свойства? Или его самому принудительно обновить?

 

[Sherzod]

Читать.

[x11]

Проблема в другом.

Я пытаюсь создать монитор пользователей, кто подключен и какая форма открыта.

На основе вашего примера, где используется UniServerModule.SessionManager.Sessions

      // Here we do a fast copy of list to another array for later use.
      for I := 0 to Pred(S.SessionList.Count)  do
      begin
        U := S.SessionList[I];
        fSessionList[I].ASessionId  := U.SessionId;
        fSessionList[I].AIP         := U.RemoteIP;

и вот здесь IP не меняется, не актуализируется

 

[Sherzod]

2 hours ago, x11 said:

U.RemoteIP;

U.ARequest.RemoteIP;

 

[x11]

Сессии себя ведут странно. Я уже на смартфоне закрыл браузер 28 минут назад, а сессии все еще живут.

Как такое может быть?

SessionTimeuot 15 минут.

Откуда в UniServerModule.SessionManager.Sessions до сих пор живут сессии, которые были пол часа назад прекращены?

Что я делаю не так?

 

Добавлю еще, что у меня есть код для автоматического продления сессии:

procedure TUniMainModule.UniGUIMainModuleSessionTimeout(ASession: TObject; var  ExtendTimeOut: Integer);
begin
  if not AllowTerminate then
    ExtendTimeOut := UniServerModule.SessionTimeout;// продлеваем сессию
end;

Но ведь я закрыл браузер на смартфоне. Почему сессия продлевается?

[x11]

20 hours ago, Sherzod said:

U.ARequest.RemoteIP;

 

на этой строке получаю исключение (ошибку) AV - Access violation

 fSessionList[I].AIP         := U.ARequest.RemoteIP;

 

Но ошибка только, если запустить монитор сессии еще раз параллельно с другого браузера.

Т.е. когда один пользователь уже работает, то ошибки нет. Когда второй пользователь тоже хочет открыть монитор сессий, то U.ARequest возвращает nil.

 

[x11]

При этом строка

fSessionList[I].AIP         := U.RemoteIP;

не вызывает ни каких исключений и ошибок

[x11]

up

[Sherzod]

On 12/6/2021 at 5:52 PM, x11 said:

Но ошибка только, если запустить монитор сессии еще раз параллельно с другого браузера.

Т.е. когда один пользователь уже работает, то ошибки нет. Когда второй пользователь тоже хочет открыть монитор сессий, то U.ARequest возвращает nil.

 

2 hours ago, x11 said:

up

Пожалуйста, создайте тестовый проект. 

[x11]

1 hour ago, Sherzod said:

Пожалуйста, создайте тестовый проект. 

Возьмите свой пример (\Demos\Desktop\Session List) из Demo и замените там 72 строку

ASessionList[I].AIP := U.ARequest.RemoteIP;// U.RemoteIP;

и запустите в разных браузерах

[Sherzod]

1 minute ago, x11 said:

Возьмите свой пример (\Demos\Desktop\Session List) из Demo и замените там 72 строку

Ok, я проверю на этом примере.

[Sherzod]

On 12/6/2021 at 5:52 PM, x11 said:

на этой строке получаю исключение (ошибку) AV - Access violation

 fSessionList[I].AIP         := U.ARequest.RemoteIP;

Попробуйте такой подход:

1.  fSessionList[I].AIP         := U.ARequest.RemoteIP; используйте 

U.RemoteIP

2. 

procedure TUniMainModule.UniGUIMainModuleHandleRequest(ASession: TObject;
  var Handled: Boolean);
begin
  with (ASession as TUniGUISession) do
    RemoteIP := ARequest.RemoteIP
end;

 

[x11]

Спасибо, вроде получилось.

Было бы хорошо, если бы это исправили в uniGUI, чтобы не использовать данный костыль.