Skip to content

Commit 2992475

Browse files
ahyahyahyahy
committed
Релиз 2.0.1.0
1 parent 2409b55 commit 2992475

13 files changed

Lines changed: 104 additions & 21 deletions

‎docs/OSClientServerRu/OSClientServer.ServiceClient.ClientName.html‎

Lines changed: 38 additions & 2 deletions
Original file line numberDiff line numberDiff line change
@@ -24,20 +24,56 @@ <H4 class=dtH4>Примечание</H4>
2424
<H4 class=dtH4>Пример</H4>
2525
<P><PRE class=code>
2626
ПриложениеКлиент1.ИмяКлиента = "Клиент";
27+
Сообщить("ИмяКлиента = " + ПриложениеКлиент1.ИмяКлиента);
2728
</PRE>
2829
<details><summary>Полный пример кода</summary>
2930
<P><PRE class=code>
3031
<a id="copy1" href="jаvascript://" title="Выделяет код, копирует и снимает выделение.">Копировать</a> <a id="select1" href="jаvascript://" title="Выделяет код.">Выделить всё</a>
3132
<hr style="border-color: lightgray;"><DIV id="cont1">
32-
//== Файл Клиент.os == начало
33+
//== Файл Сервер.os == начало
34+
Перем КС;
35+
36+
Процедура ПриложениеСервис_ПриПодключенииКлиента() Экспорт
37+
ПриложениеКлиентАрг = КС.АргументыСобытия;
38+
ПриложениеСервисКлиент = ПриложениеКлиентАрг.Клиент;
39+
Сообщить("Подключен клиент. ГуидКлиента клиента = " + ПриложениеСервисКлиент.ГуидКлиента);
40+
Сообщить("========================================");
41+
КонецПроцедуры
42+
3343
ПодключитьВнешнююКомпоненту("C:\444\111\OneScriptClientServer\OneScriptClientServer\bin\Debug\OneScriptClientServer.dll");
3444
КС = Новый КлиентСерверДляОдноСкрипта();
45+
ПриложениеСервис1 = КС.ПриложениеСервис(10085, ЭтотОбъект);
46+
ПриложениеСервис1.ПриПодключенииКлиента = КС.Действие(ЭтотОбъект, "ПриложениеСервис_ПриПодключенииКлиента");
3547

48+
ПриложениеСервис1.Начать();
49+
Сообщить("ПриложениеСервис запущен");
50+
51+
Пока КС.Продолжать Цикл
52+
КС.ПолучитьСобытие().Выполнить();
53+
КонецЦикла;
54+
//== Файл Сервер.os == конец
55+
56+
//== Файл Клиент.os == начало
57+
Перем ПриложениеКлиент1;
58+
59+
Процедура ПриложениеКлиент1_ПриПодключении() Экспорт
60+
Сообщить("Я подключился. Гуид = " + ПриложениеКлиент1.ГуидКлиента);
61+
КонецПроцедуры
62+
63+
ПодключитьВнешнююКомпоненту("C:\444\111\OneScriptClientServer\OneScriptClientServer\bin\Debug\OneScriptClientServer.dll");
64+
КС = Новый КлиентСерверДляОдноСкрипта();
3665
ПриложениеКлиент1 = КС.ПриложениеКлиент(КС.TCPКонечнаяТочка("127.0.0.1", 10085), ЭтотОбъект);
66+
ПриложениеКлиент1.ПриПодключении = КС.Действие(ЭтотОбъект, "ПриложениеКлиент1_ПриПодключении");
3767

3868
ПриложениеКлиент1.ИмяКлиента = "Клиент";
69+
Сообщить("ИмяКлиента = " + ПриложениеКлиент1.ИмяКлиента);
70+
71+
ПриложениеКлиент1.Подключить();
72+
Приостановить(1000);
3973

40-
Сообщить("ПриложениеКлиент1.ИмяКлиента = " + ПриложениеКлиент1.ИмяКлиента);
74+
Пока КС.Продолжать Цикл
75+
КС.ПолучитьСобытие().Выполнить();
76+
КонецЦикла;
4177
//== Файл Клиент.os == конец
4278
</DIV>
4379
</PRE>

‎docs/OSClientServerRu/OSClientServer.ServiceClient.CommunicationState.html‎

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -41,7 +41,7 @@ <H4 class=dtH4>Пример</H4>
4141
ПодключитьВнешнююКомпоненту("C:\444\111\OneScriptClientServer\OneScriptClientServer\bin\Debug\OneScriptClientServer.dll");
4242
КС = Новый КлиентСерверДляОдноСкрипта();
4343
ПриложениеСервис1 = КС.ПриложениеСервис(10085, ЭтотОбъект);
44-
ПриложениеСервис1.ПриПодключенииКлиента = Новый Действие(ЭтотОбъект, "ПриложениеСервис_ПриПодключенииКлиента");
44+
ПриложениеСервис1.ПриПодключенииКлиента = КС.Действие(ЭтотОбъект, "ПриложениеСервис_ПриПодключенииКлиента");
4545

4646
ПриложениеСервис1.Начать();
4747
Сообщить("ПриложениеСервис запущен");

‎docs/OSClientServerRu/OSClientServer.ServiceClient.Connect.html‎

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -43,7 +43,7 @@ <H4 class=dtH4>Пример</H4>
4343
ПодключитьВнешнююКомпоненту("C:\444\111\OneScriptClientServer\OneScriptClientServer\bin\Debug\OneScriptClientServer.dll");
4444
КС = Новый КлиентСерверДляОдноСкрипта();
4545
ПриложениеСервис1 = КС.ПриложениеСервис(10085, ЭтотОбъект);
46-
ПриложениеСервис1.ПриПодключенииКлиента = Новый Действие(ЭтотОбъект, "ПриложениеСервис_ПриПодключенииКлиента");
46+
ПриложениеСервис1.ПриПодключенииКлиента = КС.Действие(ЭтотОбъект, "ПриложениеСервис_ПриПодключенииКлиента");
4747

4848
ПриложениеСервис1.Начать();
4949
Сообщить("ПриложениеСервис запущен");

‎docs/OSClientServerRu/OSClientServer.ServiceClient.Connected.html‎

Lines changed: 3 additions & 3 deletions
Original file line numberDiff line numberDiff line change
@@ -23,7 +23,7 @@ <H4 class=dtH4>Примечание</H4>
2323
<P>Процедура обработки события должна быть объявлена с ключевым словом <B>Экспорт</B>.</P>
2424
<H4 class=dtH4>Пример</H4>
2525
<P><PRE class=code>
26-
ПриложениеКлиент1.ПриПодключении = Новый Действие(ЭтотОбъект, "ПриложениеКлиент1_ПриПодключении");
26+
ПриложениеКлиент1.ПриПодключении = КС.Действие(ЭтотОбъект, "ПриложениеКлиент1_ПриПодключении");
2727
</PRE>
2828
<details><summary>Полный пример кода</summary>
2929
<P><PRE class=code>
@@ -42,7 +42,7 @@ <H4 class=dtH4>Пример</H4>
4242
ПодключитьВнешнююКомпоненту("C:\444\111\OneScriptClientServer\OneScriptClientServer\bin\Debug\OneScriptClientServer.dll");
4343
КС = Новый КлиентСерверДляОдноСкрипта();
4444
ПриложениеСервис1 = КС.ПриложениеСервис(10085, ЭтотОбъект);
45-
ПриложениеСервис1.ПриПодключенииКлиента = Новый Действие(ЭтотОбъект, "ПриложениеСервис_ПриПодключенииКлиента");
45+
ПриложениеСервис1.ПриПодключенииКлиента = КС.Действие(ЭтотОбъект, "ПриложениеСервис_ПриПодключенииКлиента");
4646

4747
ПриложениеСервис1.Начать();
4848
Сообщить("ПриложениеСервис запущен");
@@ -62,7 +62,7 @@ <H4 class=dtH4>Пример</H4>
6262
ПодключитьВнешнююКомпоненту("C:\444\111\OneScriptClientServer\OneScriptClientServer\bin\Debug\OneScriptClientServer.dll");
6363
КС = Новый КлиентСерверДляОдноСкрипта();
6464
ПриложениеКлиент1 = КС.ПриложениеКлиент(КС.TCPКонечнаяТочка("127.0.0.1", 10085), ЭтотОбъект);
65-
ПриложениеКлиент1.ПриПодключении = Новый Действие(ЭтотОбъект, "ПриложениеКлиент1_ПриПодключении");
65+
ПриложениеКлиент1.ПриПодключении = КС.Действие(ЭтотОбъект, "ПриложениеКлиент1_ПриПодключении");
6666

6767
ПриложениеКлиент1.Подключить();
6868
Приостановить(1000);

‎docs/OSClientServerRu/OSClientServer.ServiceClient.Disconnect.html‎

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -43,7 +43,7 @@ <H4 class=dtH4>Пример</H4>
4343
ПодключитьВнешнююКомпоненту("C:\444\111\OneScriptClientServer\OneScriptClientServer\bin\Debug\OneScriptClientServer.dll");
4444
КС = Новый КлиентСерверДляОдноСкрипта();
4545
ПриложениеСервис1 = КС.ПриложениеСервис(10085, ЭтотОбъект);
46-
ПриложениеСервис1.ПриОтключенииКлиента = Новый Действие(ЭтотОбъект, "ПриложениеСервис_ПриОтключенииКлиента");
46+
ПриложениеСервис1.ПриОтключенииКлиента = КС.Действие(ЭтотОбъект, "ПриложениеСервис_ПриОтключенииКлиента");
4747

4848
ПриложениеСервис1.Начать();
4949
Сообщить("ПриложениеСервис запущен");

‎docs/OSClientServerRu/OSClientServer.ServiceClient.Disconnected.html‎

Lines changed: 3 additions & 3 deletions
Original file line numberDiff line numberDiff line change
@@ -23,7 +23,7 @@ <H4 class=dtH4>Примечание</H4>
2323
<P>Процедура обработки события должна быть объявлена с ключевым словом <B>Экспорт</B>.</P>
2424
<H4 class=dtH4>Пример</H4>
2525
<P><PRE class=code>
26-
ПриложениеКлиент1.ПриОтключении = Новый Действие(ЭтотОбъект, "ПриложениеКлиент1_ПриОтключении");
26+
ПриложениеКлиент1.ПриОтключении = КС.Действие(ЭтотОбъект, "ПриложениеКлиент1_ПриОтключении");
2727
</PRE>
2828
<details><summary>Полный пример кода</summary>
2929
<P><PRE class=code>
@@ -42,7 +42,7 @@ <H4 class=dtH4>Пример</H4>
4242
ПодключитьВнешнююКомпоненту("C:\444\111\OneScriptClientServer\OneScriptClientServer\bin\Debug\OneScriptClientServer.dll");
4343
КС = Новый КлиентСерверДляОдноСкрипта();
4444
ПриложениеСервис1 = КС.ПриложениеСервис(10085, ЭтотОбъект);
45-
ПриложениеСервис1.ПриОтключенииКлиента = Новый Действие(ЭтотОбъект, "ПриложениеСервис_ПриОтключенииКлиента");
45+
ПриложениеСервис1.ПриОтключенииКлиента = КС.Действие(ЭтотОбъект, "ПриложениеСервис_ПриОтключенииКлиента");
4646

4747
ПриложениеСервис1.Начать();
4848
Сообщить("ПриложениеСервис запущен");
@@ -62,7 +62,7 @@ <H4 class=dtH4>Пример</H4>
6262
ПодключитьВнешнююКомпоненту("C:\444\111\OneScriptClientServer\OneScriptClientServer\bin\Debug\OneScriptClientServer.dll");
6363
КС = Новый КлиентСерверДляОдноСкрипта();
6464
ПриложениеКлиент1 = КС.ПриложениеКлиент(КС.TCPКонечнаяТочка("127.0.0.1", 10085), ЭтотОбъект);
65-
ПриложениеКлиент1.ПриОтключении = Новый Действие(ЭтотОбъект, "ПриложениеКлиент1_ПриОтключении");
65+
ПриложениеКлиент1.ПриОтключении = КС.Действие(ЭтотОбъект, "ПриложениеКлиент1_ПриОтключении");
6666

6767
ПриложениеКлиент1.Подключить();
6868
Приостановить(1000);

‎docs/OSClientServerRu/OSClientServer.ServiceClient.GetClientsInfo.html‎

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -44,7 +44,7 @@ <H4 class=dtH4>Пример</H4>
4444
ПодключитьВнешнююКомпоненту("C:\444\111\OneScriptClientServer\OneScriptClientServer\bin\Debug\OneScriptClientServer.dll");
4545
КС = Новый КлиентСерверДляОдноСкрипта();
4646
ПриложениеСервис1 = КС.ПриложениеСервис(10085, ЭтотОбъект);
47-
ПриложениеСервис1.ПриПодключенииКлиента = Новый Действие(ЭтотОбъект, "ПриложениеСервис_ПриПодключенииКлиента");
47+
ПриложениеСервис1.ПриПодключенииКлиента = КС.Действие(ЭтотОбъект, "ПриложениеСервис_ПриПодключенииКлиента");
4848

4949
ПриложениеСервис1.Начать();
5050
Сообщить("ПриложениеСервис запущен");

‎docs/OSClientServerRu/OSClientServer.ServiceClient.Resalt.html‎

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -57,7 +57,7 @@ <H4 class=dtH4>Пример</H4>
5757
ПодключитьВнешнююКомпоненту("C:\444\111\OneScriptClientServer\OneScriptClientServer\bin\Debug\OneScriptClientServer.dll");
5858
КС = Новый КлиентСерверДляОдноСкрипта();
5959
ПриложениеСервис1 = КС.ПриложениеСервис(10085, ЭтотОбъект);
60-
ПриложениеСервис1.ПриПодключенииКлиента = Новый Действие(ЭтотОбъект, "ПриложениеСервис_ПриПодключенииКлиента");
60+
ПриложениеСервис1.ПриПодключенииКлиента = КС.Действие(ЭтотОбъект, "ПриложениеСервис_ПриПодключенииКлиента");
6161

6262
ПриложениеСервис1.Начать();
6363
Сообщить("ПриложениеСервис запущен");

‎docs/OSClientServerRu/OSClientServer.ServiceClient.Tag.html‎

Lines changed: 9 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -31,9 +31,18 @@ <H4 class=dtH4>Пример</H4>
3131
<a id="copy1" href="jаvascript://" title="Выделяет код, копирует и снимает выделение.">Копировать</a> <a id="select1" href="jаvascript://" title="Выделяет код.">Выделить всё</a>
3232
<hr style="border-color: lightgray;"><DIV id="cont1">
3333
//== Файл Сервер.os == начало
34+
Перем КС;
35+
36+
Процедура ПриложениеСервис_ПриПодключенииКлиента() Экспорт
37+
ПриложениеКлиентАрг = КС.АргументыСобытия;
38+
Сообщить("Клиент подключен! Гуид клиента = " + ПриложениеКлиентАрг.Клиент.ГуидКлиента);
39+
Сообщить("========================================");
40+
КонецПроцедуры
41+
3442
ПодключитьВнешнююКомпоненту("C:\444\111\OneScriptClientServer\OneScriptClientServer\bin\Debug\OneScriptClientServer.dll");
3543
КС = Новый КлиентСерверДляОдноСкрипта();
3644
ПриложениеСервис1 = КС.ПриложениеСервис(10085, ЭтотОбъект);
45+
ПриложениеСервис1.ПриПодключенииКлиента = КС.Действие(ЭтотОбъект, "ПриложениеСервис_ПриПодключенииКлиента");
3746

3847
ПриложениеСервис1.Начать();
3948
Сообщить("ПриложениеСервис запущен");

‎docs/OSClientServerRu/OSClientServer.ServiceClientConstructor.html‎

Lines changed: 36 additions & 2 deletions
Original file line numberDiff line numberDiff line change
@@ -36,13 +36,47 @@ <H4 class=dtH4>Пример</H4>
3636
<P><PRE class=code>
3737
<a id="copy1" href="jаvascript://" title="Выделяет код, копирует и снимает выделение.">Копировать</a> <a id="select1" href="jаvascript://" title="Выделяет код.">Выделить всё</a>
3838
<hr style="border-color: lightgray;"><DIV id="cont1">
39-
//== Файл Клиент.os == начало
39+
//== Файл Сервер.os == начало
40+
Перем КС;
41+
42+
Процедура ПриложениеСервис_ПриПодключенииКлиента() Экспорт
43+
ПриложениеКлиентАрг = КС.АргументыСобытия;
44+
ПриложениеСервисКлиент = ПриложениеКлиентАрг.Клиент;
45+
Сообщить("Подключен клиент. ГуидКлиента клиента = " + ПриложениеСервисКлиент.ГуидКлиента);
46+
Сообщить("========================================");
47+
КонецПроцедуры
48+
4049
ПодключитьВнешнююКомпоненту("C:\444\111\OneScriptClientServer\OneScriptClientServer\bin\Debug\OneScriptClientServer.dll");
4150
КС = Новый КлиентСерверДляОдноСкрипта();
51+
ПриложениеСервис1 = КС.ПриложениеСервис(10085, ЭтотОбъект);
52+
ПриложениеСервис1.ПриПодключенииКлиента = КС.Действие(ЭтотОбъект, "ПриложениеСервис_ПриПодключенииКлиента");
4253

54+
ПриложениеСервис1.Начать();
55+
Сообщить("ПриложениеСервис запущен");
56+
57+
Пока КС.Продолжать Цикл
58+
КС.ПолучитьСобытие().Выполнить();
59+
КонецЦикла;
60+
//== Файл Сервер.os == конец
61+
62+
//== Файл Клиент.os == начало
63+
Перем ПриложениеКлиент1;
64+
65+
Процедура ПриложениеКлиент1_ПриПодключении() Экспорт
66+
Сообщить("Я подключился. Гуид = " + ПриложениеКлиент1.ГуидКлиента);
67+
КонецПроцедуры
68+
69+
ПодключитьВнешнююКомпоненту("C:\444\111\OneScriptClientServer\OneScriptClientServer\bin\Debug\OneScriptClientServer.dll");
70+
КС = Новый КлиентСерверДляОдноСкрипта();
4371
ПриложениеКлиент1 = КС.ПриложениеКлиент(КС.TCPКонечнаяТочка("127.0.0.1", 10085), ЭтотОбъект);
72+
ПриложениеКлиент1.ПриПодключении = КС.Действие(ЭтотОбъект, "ПриложениеКлиент1_ПриПодключении");
73+
74+
ПриложениеКлиент1.Подключить();
75+
Приостановить(1000);
4476

45-
Сообщить("" + ТипЗнч(ПриложениеКлиент1));
77+
Пока КС.Продолжать Цикл
78+
КС.ПолучитьСобытие().Выполнить();
79+
КонецЦикла;
4680
//== Файл Клиент.os == конец
4781
</DIV>
4882
</PRE>

0 commit comments

Comments
 (0)