getServiceValues(adrWSDL, adrURL, adrSvc, adrPrt, usr, pass);
   web_servis := GetIPostBoxService(False, adrWSDL);

   m_login           := Login.Create;
   m_login_type2     := LoginType2.Create;
   m_getUserListNew  := getUserListNew.Create;

   m_login_type2.appStr   := ownerFatura.Database.FirmaBilgileri.eFtrAppStr;
   m_login_type2.userName := ownerFatura.Database.FirmaBilgileri.eFtrUserName;
   m_login_type2.passWord := ownerFatura.Database.FirmaBilgileri.eFtrPassWord;
   m_login_type2.version  := ownerFatura.Database.FirmaBilgileri.eFtrVersion;

   m_login.login := m_login_type2;
   m_login_response := web_servis.Login(m_login);

   //sessionID al
   m_sessionID := m_login_response.sessionID;

   m_getUserListNew.login := m_login.login;

   //tip bilgisini PKList(Posta Kutusu) / GBList(Gönderici Bilgisi) için ayarla
   if is_pk_list then
     m_getUserListNew.listType  := UserListType.PKLIST
   else
     m_getUserListNew.listType  := UserListType.GBLIST;

    m_userListNewResponse      := web_servis.getUserListNew(m_getUserListNew);
    //gelen base64 bilgiyi binary dosyaya çevir
    TGenel.Base64BinaryToFile(TArray<Byte>(m_userListNewResponse.getUserListNewResult.binaryData.Value),
                              m_userListNewResponse.getUserListNewResult.fileName,
                              ExtractFilePath(Application.ExeName));

 WebHttpRequest3.URL := 'https://www.delphican.com';
 WebHttpRequest3.Execute;

 WebHttpRequest3.URL := 'http://91.151.95.210:8080/test';
 WebHttpRequest3.Execute;

object WebHttpRequest3: TWebHttpRequest
 OnResponse = WebHttpRequest3Response
 Left = 624
 Top = 560
end

WebMemo2.Lines.Add('server response: ' + AResponse);

  WebHttpRequest3.URL := 'https://dummy.restapiexample.com/api/v1/employees';
  WebHttpRequest3.Execute;

procedure TWebModule1.WebModule1WebActionItem1Action(Sender: TObject;
 Request: TWebRequest; Response: TWebResponse; var Handled: Boolean);
var
 CustomersController: TCustomersController;
 ControllerResult: TControllerResult;
 ActionPath, id, field: String;
 PathSections: TArray<String>;
begin
 if Request.MethodType in [mtGet, mtPost, mtPut, mtDelete, mtPatch] then
 begin

   CustomersController := TCustomersController.Create;
   try
     ActionPath := TWebActionItem(Sender).PathInfo.Replace('*', '');
     PathSections := Request.PathInfo.Replace(ActionPath, '').Replace('/', '', [rfIgnoreCase]).Split(['/']);
     if Length(PathSections) > 0 then
       id := PathSections[0];
     if Length(PathSections) > 1 then
       field := PathSections[1];

     case Request.MethodType of
       mtGet:
         ControllerResult := CustomersController.Select(id, field);

       mtPut:
         ControllerResult := CustomersController.Update(id, Request.Content);

       mtPost:
         if Request.Files.Count = 0 then
           ControllerResult := CustomersController.Insert(Request.Content)
         else
           ControllerResult := CustomersController.UpdateWithField(id, field, Request.Files[0].FileName, Request.Files[0].Stream);

       mtDelete:
         ControllerResult := CustomersController.Delete(id);

       mtPatch:
         ControllerResult := CustomersController.UpdateWithField(id, field, Request.Content);
     end;

     Response.StatusCode := ControllerResult.StatusCode;
     Response.ContentType := ControllerResult.ResponseType;
     Response.ContentStream := ControllerResult.Response;
   finally
     CustomersController.Free;
   end;

 end
 else
   Response.StatusCode := 405;
end;

procedure TForm1.WebFilePicker1Change(Sender: TObject);
begin
 if WebFilePicker1.Files.Count > 0 then
 begin
   WebFilePicker1.Files[0].Upload(FURI + '/' + GetId + '/picture');
 end;
end;

  
var
  S : TUniGUISessions;
  U : TUniGUISession;
  I : Integer;
begin
S := UniServerModule.SessionManager.Sessions;
 S.Lock; 
 try
   SetLength(ASessionList, S.SessionList.Count);

   for I := 0 to S.SessionList.Count - 1  do
   begin
     U := S.SessionList[I];
     ASessionList[I].ASessionId := U.SessionId;
     ASessionList[I].AIP := U.RemoteIP;
     ASessionList[I].ALastTime := U.LastTimeStamp;
     if U.UniMainModule <> nil then 
       ASessionList[I].AMyVar := (U.UniMainModule as TUniMainModule).FMyStringVar;
   end;
 finally
   S.Unlock; 
 end;