Имя: Пароль:
1C
1С v8
Как программно определить что 1С запущена в режиме Веб-клиент?
, , ,
0 popcorn
 
04.10.11
09:58
Сабдж
1 banco
 
04.10.11
09:59
#ЕСЛИ ВебКлиент ТОГДА
2 popcorn
 
04.10.11
10:04
(1) Ооооо крутяк!
3 Vladal
 
04.10.11
11:09
недавно было такое:
v8: Как определить в каком режиме запущена программа(тонкий, толстый, web-клиент)?

Функция ПолучитьРежимКлиента() Экспорт
РежимКлиента = Неопределено;
#Если ТолстыйКлиентУправляемоеПриложение Тогда

РежимКлиента = "Толстый";
#КонецЕсли

#Если ТонкийКлиент Тогда

РежимКлиента = "Тонкий";
#КонецЕсли

#Если ВебКлиент Тогда

РежимКлиента = "Веб";
#КонецЕсли

Возврат РежимКлиента;
КонецФункции
4 Vladal
 
04.10.11
11:11
Вот еще из другой ветки на эту тему:
v8: Как определить, что запущен тонкий клиент или толстый?

Функция ПолучитьТекущуюСредуВыполнения() Экспорт
 
  #Если ТолстыйКлиентОбычноеПриложение ИЛИ ТолстыйКлиентУправляемоеПриложение Тогда
       Возврат "Толстый клиент";
   #ИначеЕсли Сервер Тогда
       Возврат "Сервер";
   #ИначеЕсли ВнешнееСоединение Тогда
       Возврат "Внешнее соединение";
   #ИначеЕсли ТонкийКлиент Тогда
       Возврат "Тонкий клиент";
   #ИначеЕсли ВебКлиент Тогда
       Возврат "Веб-клиент";
   #Иначе
       Возврат "Ошибка определения среды выполнения";
   #КонецЕсли
   
КонецФункции    //ПолучитьТекущуюСредуВыполнения
5 popcorn
 
04.10.11
11:12
(3) Спасибо!
6 popcorn
 
04.10.11
11:13
(4) Вот теперь я точно понял как это сделать!
7 Maxus43
 
04.10.11
11:17
ИмяПриложения ещё в 8.2 вроде возвращает "Толстый клиент" и т.д.
8 popcorn
 
04.10.11
11:18
(7) Интересно... Надо будет проверить
9 Maxus43
 
04.10.11
11:19
(8) в СП надо уточнить, щас не могу посмотреть
10 popcorn
 
04.10.11
11:22
(9) Да там нет ничего:

Содержит имя приложения, начавшего сеанс.
Доступность:
Сервер, толстый клиент, внешнее соединение.
11 Maxus43
 
04.10.11
11:24
(10) по доступности не взлетает уже, делай (3)(4) тогда...
12 H A D G E H O G s
 
04.10.11
11:27
ППЦ
13 popcorn
 
04.10.11
11:30
(11) Ок
14 H A D G E H O G s
 
04.10.11
11:36
&НаСервереБезКонтекста
Функция ПолучитьТипКлиента()
   Соединения=ПолучитьСоединенияИнформационнойБазы();
   ТекущееСоединение=Соединения.Получить(НомерСоединенияИнформационнойБазы()-1);
   Если ТекущееСоединение=Неопределено Тогда
       Возврат "";
   КонецЕсли;
   Возврат (ПредставлениеПриложения(ТекущееСоединение.ИмяПриложения));
КонецФункции

&НаКлиенте
Процедура Тест(Команда)
    Сообщить(ПолучитьТипКлиента());
КонецПроцедуры
15 H A D G E H O G s
 
04.10.11
11:37
16 Maxus43
 
04.10.11
11:39
ыть, я даж угадал с ИмяПриложения
17 popcorn
 
04.10.11
11:50
Ого, всегда бы было столько ответов на вопросы как сегодня!