Servermodule gelen istegi tum oturumlara gonderme

[mehmet07]

Merhaba,

Servermodule'un onHTTPCommand event'i ile disaridan gelen istekleri alabiliyorum. Bir istek geldiginde bu isteği tüm oturumlara nasil iletebilirim acaba?

Servermodule istek geldiginde global bir degisken olusturup bu degiskenin degerini değiştirerek cozum buldum , ama bu durumda da main forma bir timer ekleyip surekli degiskenin degerinin değişip değişmedigini kontrol ettirmem gerekiyor.

Servermodule den tüm oturumlarin mainformuna bildiri gecmek mumkun mudur?

Teşekkürler. 

[Mehmet Emin]

Mehmet Bey

Bu kod işinizi görür mü acaba başka bir thread'e cevap olarak yazmıştım test etmedim yanlız.

  if UniServerModule <> nil then
  begin
    if UniServerModule.SessionManager <> nil then
    begin
      if UniServerModule.SessionManager.Sessions.QuerySession(thesessionidfromdb) then
      begin
        LSession := UniServerModule.GetSession(thesessionidfromdb);
        UsersMainModule := TUniMainModule(LSession.UniApplication.UniMainModule);
        
        UsersMainModule.YourGameStateUpdated := True;
        
      end;
    end;

[mehmet07]

Merhaba,

Öncelikle cevabınız için teşekkür ederim. Ne yapmak istedigimi detayli anlatayim isterseniz.

Unigui uygulamami rest server gibi de kullaniyorum. Disaridan uygulamaya bir istek geldiginde ,istegin geldigine dair tum aktif oturumlari bilgilendirmek istiyorum.

procedure TUniServerModule.UniGUIServerModuleHTTPCommand(
  ARequestInfo: TIdHTTPRequestInfo; AResponseInfo: TIdHTTPResponseInfo;
  var Handled: Boolean);
begin
 if ARequestInfo.URI='/test' then
    begin

Boylece her calisan uygulama gelen bu bilgiye gore islemler yapacak.

[Mehmet Emin]

Doğru bir kod olmadı ancak 

UniServerModule.SessionManager.Sessions yazın ve bunun üzerinde dönebilirsiniz

[Mehmet Emin]

  SessionManager.Sessions.Lock;
  try
    for I := 0 to SessionManager.Sessions.SessionList.Count -1 do
    begin
    end;
  finally
    SessionManager.Sessions.Unlock;
  end;
 

[mehmet07]

Hmm, Tüm sessionslari dongu ile dolasip onlara istek gondermek şeklinde mi?

[Mehmet Emin]

Evet try finally başında ve sonunda lock unlock var işinizi bir an önce bitirmeniz lazım tüm server'i kilitleyen bir kod

[mehmet07]

Anladim, çok teşekkür ederim. Deneyecegim.

[Hayri ASLAN]

Merhaba

Tum sessionlari dolasip istek gonderseniz bile client tarafindan bir istek gelmedigi surece herhangi bir guncelleme olmayacaktir.

Bu is icin en mantiklisi websocket kullanmak.

[Mehmet Emin]

Doğru iş yine timer'a kalıyor. Önerim yanlış oldu. @Hayri ASLANşu websoketi uniGUI 2021 içinde biran önce direk destekleseniz çok güzel olacak.

[mehmet07]

Cevaplariniz icin tesekkur ederim

[Hayri ASLAN]

49 minutes ago, Mehmet Emin said:

Doğru iş yine timer'a kalıyor. Önerim yanlış oldu. @Hayri ASLANşu websoketi uniGUI 2021 içinde biran önce direk destekleseniz çok güzel olacak.

Merhaba

Bunun için çalışıyoruz. Tek sorun server kısmı.