Qlua + C/C++/C#

Отправка данных из Текущей таблицы параметров в C# посредством DLL

Автор записи: Дмитрий (Admin)
119 комментариев

СнимокСкрипт в начале, при запуске, отправляет в C# посредством библиотеки функций (DLL) всю информацию из Текущей таблицы параметров по всем бумагам из классов: TQBR (акции), SPBFUT (фьючерсы), SPBOPT (опционы), данный фильтр расположен в функции SendAllParamStrings(). Так же, в начале каждой строки параметров передается текущее время ОС в миллисекундах, благодаря чему, на стороне C# вычисляется время задержки передачи данных. После отправки бумаг этих классов, скрипт отправляет новые данные по мере их поступления, используя функцию обратного вызова OnParam().

 Поступающие данные проходят через "стек"(массив): новая строка параметров по инструменту добавляется в конец "стека", а для отправки берутся строки из начала "стека", после чего удаляются, таким образом данные не теряются. Фильтр отправляемых классов и бумаг, можно настроить в данной функции. По умолчанию, отправляются 2 бумаги: SBER и RIU5.
ВАЖНО!!! Если Вы добавите в фильтр функции OnParam() много бумаг для передачи, задержка сильно увеличится. Для примера: если отправлять все бумаги классов: TQBR (акции), SPBFUT (фьючерсы) и SPBOPT (опционы), то время задержки может достигать 10 секунд и более, в зависимости от интенсивности торгов.

Скрипт QLua(Lua)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
260
261
262
263
264
265
266
267
268
269
270
271
272
273
274
275
276
277
278
279
280
281
282
283
284
285
286
287
288
289
290
291
292
293
294
295
296
297
298
299
300
301
302
303
304
305
306
307
308
309
310
311
312
313
314
315
316
317
318
319
320
321
322
323
324
325
326
327
328
329
330
331
332
333
334
335
336
337
338
339
340
341
342
343
344
345
346
347
348
349
350
351
352
353
354
355
356
357
358
359
360
361
362
363
364
365
366
367
368
369
370
371
372
373
374
375
376
377
378
379
380
381
382
383
384
385
386
387
388
389
390
391
392
393
394
395
396
397
398
399
400
401
402
403
404
405
406
407
408
409
410
411
412
413
414
415
416
417
418
419
420
421
422
423
424
425
426
427
428
429
430
431
432
433
434
435
436
437
438
439
440
441
442
443
444
445
446
447
448
449
450
451
452
453

-- Скрипт в начале, при запуске, отправляет в C# посредством библиотеки функций (DLL)
-- всю информацию из Текущей таблицы параметров
-- по всем бумагам из классов: TQBR (акции), SPBFUT (фьючерсы), SPBOPT (опционы),
-- данный фильтр расположен в функции SendAllParamStrings().
-- Так же, в начале каждой строки параметров передается текущее время ОС в миллисекундах,
-- благодаря чему, на стороне C# вычисляется время задержки передачи данных.
-- После отправки бумаг этих классов, скрипт отправляет новые данные
-- по мере их поступления, используя функцию обратного вызова OnParam().
-- Поступающие данные проходят через "стек"(массив):
-- новая строка параметров по инструменту добавляется в конец "стека",
-- а для отправки берутся строки из начала "стека", после чего удаляются, таким образом данные не теряются.
-- Фильтр отправляемых классов и бумаг, так же, можно настроить в данной функции.
-- По умолчанию, отправляются 2 бумаги: SBER и RIU5.
-- ВАЖНО!!! Если Вы добавите в фильтр функции OnParam() много бумаг для передачи,
-- задержка сильно увеличится. Для примера: если отправлять все бумаги
-- классов TQBR (акции), SPBFUT (фьючерсы) и SPBOPT (опционы),
-- то время задержки может достигать 10 секунд и более, в зависимости от интенсивности торгов.
-- (c) QuikLuaCSharp.ru
 
require("QluaCSharpConnector"); -- Подключает библиотеку QluaCSharpConnector.dll, расположенную в корневом каталоге терминала QUIK (там где info.exe)
 
IsRun = true; -- Флаг поддержания работы функции main()
FirstSendComplete = false; -- Флаг завершения первой отправки Текущей Таблицы Параметров
 
Stack = {};             -- Массив для стека
Stack.idx_for_add = 1;  -- Индекс для добавления следующей, или первой записи
Stack.idx_for_get = 1;  -- Индекс для изъятия следующей, или первой записи
Stack.count = 0;        -- Количество находящихся в стеке записей
Stack.max = 1000;       -- Максимально возможное количество записей в стеке (при переполнении старые записи будут замещаться новыми)
 
function main()
   -- При первом запуске скрипта отправляет все строки Текущей Таблицы Параметров
   SendAllParamStrings();
   --FirstSendComplete = true;
   -- Обеспечивает работу скрипта и библиотеки до остановки скрипта пользователем
   while IsRun do
      -- Если C# получил строку параметров инструмента
      if QluaCSharpConnector.CheckGotPARAMS() then
         -- Берет строку параметров инструмента из стека
         local Param = GetFromStack();
         -- Если стек не пустой
         if Param ~= nil and Param ~= "" then
            -- Отправляет строку в DLL
            QluaCSharpConnector.SendPARAMS(Param);
         end;
      end;
      sleep(1); -- Предотвращает зависание терминала QUIK
   end;
end;
 
-- Функция формирует и отправляет в DLL строки всех параметров по каждому инструменту каждого класса Текущей Таблицы Параметров
function SendAllParamStrings()
   -- Получает список классов в виде строки типа "EQRP_INFO,QJSIM,SPBFUT,"
	local ClassesStr = getClassesList();
   local ClassesStrEnd = false; -- Флаг конца строки классов
 
	local ClassStartPos = 0; -- Позиция в строке классов, с которой начнется поиск при следующей итерации
	-- Цикл по классам
	while not ClassesStrEnd do
      local Continue = false; -- Флаг отмены передачи бумаг данного класса
 
      -- Запоминает предыдущую позицию запятой, или начало строки при первом запуске
      local OldClassStartPos = ClassStartPos;
      -- Находит следующую, или первую позицию запятой в строке классов
		ClassStartPos = ClassesStr:find(",", ClassStartPos + 1);
      -- Если найдена последняя запятая(конец строки классов), изменяет значение флага конца строки классов, чтобы цикл по классам больше не выполнялся
      if ClassStartPos == #ClassesStr then ClassesStrEnd = true; end;
      -- Получает название класса без запятых
      local ClassName = ClassesStr:sub(OldClassStartPos + 1, ClassStartPos - 1);
 
      -----------------------------------------------------------------
      -- ФИЛЬТР ПО КЛАССАМ (акции, фьючерсы, опционы)
      if  ClassName ~= "TQBR"
      and ClassName ~= "SPBFUT"
      and ClassName ~= "SPBOPT"
      then Continue = true; end;
      -----------------------------------------------------------------
 
      -- Получает список бумаг полученного класса в виде строки типа "EDM5,EuM5,GDM5,MXM5,RIM5,SiM5,GZM5,SRM5,EDU5,EuU5,GDU5,MXU5,RIU5,SiU5,GZU5,SRU5,BRM5,BRN5,"
      local ClassSecuritiesStr = getClassSecurities(ClassName);
      -- Если класс не содержит бумаг, то меняет значение флага, чтобы цикл по бумагам этого класса не выполнялся
      if ClassSecuritiesStr == nil or ClassSecuritiesStr == "" then Continue = true; end;
 
      local ClassSecuritiesStrEnd = false; -- Флаг конца строки бумаг
 
      local ClassSecuritiesStartPos = 0; -- Позиция в строке бумаг класса, с которой начнется поиск при следующей итерации
      -- Цикл по бумагам класса
      while not ClassSecuritiesStrEnd and not Continue do
         -- Запоминает предыдущую позицию запятой
         local OldClassSecuritiesStartPos = ClassSecuritiesStartPos;
         -- Находит следующую, или первую позицию запятой в строке бумаг класса
         ClassSecuritiesStartPos = ClassSecuritiesStr:find(",", ClassSecuritiesStartPos + 1);
         -- Если найдена последняя запятая(конец строки бумаг класса), изменяет значение флага, чтобы цикл по бумагам класса больше не выполнялся
         if ClassSecuritiesStartPos == #ClassSecuritiesStr then ClassSecuritiesStrEnd = true; end;
         -- Получает название бумаги класса без запятых
         local SecName = ClassSecuritiesStr:sub(OldClassSecuritiesStartPos + 1, ClassSecuritiesStartPos - 1);
 
         local ms_str = QluaCSharpConnector.GetMilliseconds(); -- Миллисекунды, прошедшие с запуска ОС
         -- Формирует строку со всеми параметрами инструмента из Текущей Таблицы Параметров
         local SecStr = nil;
         SecStr =
            "ms="..ms_str..";"..                                                                                              -- Миллисекунды компьютера
            "STATUS="..tostring(getParamEx(ClassName,  SecName, "STATUS").param_image)..";"..                                 -- Статус
            "LOTSIZE="..tostring(getParamEx(ClassName,  SecName, "LOTSIZE").param_image)..";"..                               -- Размер лота
            "BID="..tostring(getParamEx(ClassName,  SecName, "BID").param_image)..";"..                                       -- Лучшая цена спроса
            "BIDDEPTH="..tostring(getParamEx(ClassName,  SecName, "BIDDEPTH").param_image)..";"..                             -- Спрос по лучшей цене
            "BIDDEPTHT="..tostring(getParamEx(ClassName,  SecName, "BIDDEPTHT").param_image)..";"..                           -- Суммарный спрос
            "NUMBIDS="..tostring(getParamEx(ClassName,  SecName, "NUMBIDS").param_image)..";"..                               -- Количество заявок на покупку
            "OFFER="..tostring(getParamEx(ClassName,  SecName, "OFFER").param_image)..";"..                                   -- Лучшая цена предложения
            "OFFERDEPTH="..tostring(getParamEx(ClassName,  SecName, "OFFERDEPTH").param_image)..";"..                         -- Предложение по лучшей цене
            "OFFERDEPTHT="..tostring(getParamEx(ClassName,  SecName, "OFFERDEPTHT").param_image)..";"..                       -- Суммарное предложение
            "NUMOFFERS="..tostring(getParamEx(ClassName,  SecName, "NUMOFFERS").param_image)..";"..                           -- Количество заявок на продажу
            "OPEN="..tostring(getParamEx(ClassName,  SecName, "OPEN").param_image)..";"..                                     -- Цена открытия
            "HIGH="..tostring(getParamEx(ClassName,  SecName, "HIGH").param_image)..";"..                                     -- Максимальная цена сделки
            "LOW="..tostring(getParamEx(ClassName,  SecName, "LOW").param_image)..";"..                                       -- Минимальная цена сделки
            "LAST="..tostring(getParamEx(ClassName,  SecName, "LAST").param_image)..";"..                                     -- Цена последней сделки
            "CHANGE="..tostring(getParamEx(ClassName,  SecName, "CHANGE").param_image)..";"..                                 -- Разница цены последней к предыдущей сессии
            "QTY="..tostring(getParamEx(ClassName,  SecName, "QTY").param_image)..";"..                                       -- Количество бумаг в последней сделке
            "TIME="..tostring(getParamEx(ClassName,  SecName, "TIME").param_image)..";"..                                     -- Время последней сделки
            "VOLTODAY="..tostring(getParamEx(ClassName,  SecName, "VOLTODAY").param_image)..";"..                             -- Количество бумаг в обезличенных сделках
            "VALTODAY="..tostring(getParamEx(ClassName,  SecName, "VALTODAY").param_image)..";"..                             -- Оборот в деньгах
            "TRADINGSTATUS="..tostring(getParamEx(ClassName,  SecName, "TRADINGSTATUS").param_image)..";"..                   -- Состояние сессии
            "VALUE="..tostring(getParamEx(ClassName,  SecName, "VALUE").param_image)..";"..                                   -- Оборот в деньгах последней сделки
            "WAPRICE="..tostring(getParamEx(ClassName,  SecName, "WAPRICE").param_image)..";"..                               -- Средневзвешенная цена
            "HIGHBID="..tostring(getParamEx(ClassName,  SecName, "HIGHBID").param_image)..";"..                               -- Лучшая цена спроса сегодня
            "LOWOFFER="..tostring(getParamEx(ClassName,  SecName, "LOWOFFER").param_image)..";"..                             -- Лучшая цена предложения сегодня
            "NUMTRADES="..tostring(getParamEx(ClassName,  SecName, "NUMTRADES").param_image)..";"..                           -- Количество сделок за сегодня
            "PREVPRICE="..tostring(getParamEx(ClassName,  SecName, "PREVPRICE").param_image)..";"..                           -- Цена закрытия
            "PREVWAPRICE="..tostring(getParamEx(ClassName,  SecName, "PREVWAPRICE").param_image)..";"..                       -- Предыдущая оценка
            "CLOSEPRICE="..tostring(getParamEx(ClassName,  SecName, "CLOSEPRICE").param_image)..";"..                         -- Цена периода закрытия
            "LASTCHANGE="..tostring(getParamEx(ClassName,  SecName, "LASTCHANGE").param_image)..";"..                         -- % изменения от закрытия
            "PRIMARYDIST="..tostring(getParamEx(ClassName,  SecName, "PRIMARYDIST").param_image)..";"..                       -- Размещение
            "ACCRUEDINT="..tostring(getParamEx(ClassName,  SecName, "ACCRUEDINT").param_image)..";"..                         -- Накопленный купонный доход
            "YIELD="..tostring(getParamEx(ClassName,  SecName, "YIELD").param_image)..";"..                                   -- Доходность последней сделки
            "COUPONVALUE="..tostring(getParamEx(ClassName,  SecName, "COUPONVALUE").param_image)..";"..                       -- Размер купона
            "YIELDATPREVWAPRICE="..tostring(getParamEx(ClassName,  SecName, "YIELDATPREVWAPRICE").param_image)..";"..         -- Доходность по предыдущей оценке
            "YIELDATWAPRICE="..tostring(getParamEx(ClassName,  SecName, "YIELDATWAPRICE").param_image)..";"..                 -- Доходность по оценке
            "PRICEMINUSPREVWAPRICE="..tostring(getParamEx(ClassName,  SecName, "PRICEMINUSPREVWAPRICE").param_image)..";"..   -- Разница цены последней к предыдущей оценке
            "CLOSEYIELD="..tostring(getParamEx(ClassName,  SecName, "CLOSEYIELD").param_image)..";"..                         -- Доходность закрытия
            "CURRENTVALUE="..tostring(getParamEx(ClassName,  SecName, "CURRENTVALUE").param_image)..";"..                     -- Текущее значение индексов Московской Биржи
            "LASTVALUE="..tostring(getParamEx(ClassName,  SecName, "LASTVALUE").param_image)..";"..                           -- Значение индексов Московской Биржи на закрытие предыдущего дня
            "LASTTOPREVSTLPRC="..tostring(getParamEx(ClassName,  SecName, "LASTTOPREVSTLPRC").param_image)..";"..             -- Разница цены последней к предыдущей сессии
            "PREVSETTLEPRICE="..tostring(getParamEx(ClassName,  SecName, "PREVSETTLEPRICE").param_image)..";"..               -- Предыдущая расчетная цена
            "PRICEMVTLIMIT="..tostring(getParamEx(ClassName,  SecName, "PRICEMVTLIMIT").param_image)..";"..                   -- Лимит изменения цены
            "PRICEMVTLIMITT1="..tostring(getParamEx(ClassName,  SecName, "PRICEMVTLIMITT1").param_image)..";"..               -- Лимит изменения цены T1
            "MAXOUTVOLUME="..tostring(getParamEx(ClassName,  SecName, "MAXOUTVOLUME").param_image)..";"..                     -- Лимит объема активных заявок (в контрактах)
            "PRICEMAX="..tostring(getParamEx(ClassName,  SecName, "PRICEMAX").param_image)..";"..                             -- Максимально возможная цена
            "PRICEMIN="..tostring(getParamEx(ClassName,  SecName, "PRICEMIN").param_image)..";"..                             -- Минимально возможная цена
            "NEGVALTODAY="..tostring(getParamEx(ClassName,  SecName, "NEGVALTODAY").param_image)..";"..                       -- Оборот внесистемных в деньгах
            "NEGNUMTRADES="..tostring(getParamEx(ClassName,  SecName, "NEGNUMTRADES").param_image)..";"..                     -- Количество внесистемных сделок за сегодня
            "NUMCONTRACTS="..tostring(getParamEx(ClassName,  SecName, "NUMCONTRACTS").param_image)..";"..                     -- Количество открытых позиций
            "CLOSETIME="..tostring(getParamEx(ClassName,  SecName, "CLOSETIME").param_image)..";"..                           -- Время закрытия предыдущих торгов (для индексов РТС)
            "OPENVAL="..tostring(getParamEx(ClassName,  SecName, "OPENVAL").param_image)..";"                                 -- Значение индекса РТС на момент открытия торгов
            SecStr = SecStr.. -- Если не разделять, выдает ошибку
            "CHNGOPEN="..tostring(getParamEx(ClassName,  SecName, "CHNGOPEN").param_image)..";"..                             -- Изменение текущего индекса РТС по сравнению со значением открытия
            "CHNGCLOSE="..tostring(getParamEx(ClassName,  SecName, "CHNGCLOSE").param_image)..";"..                           -- Изменение текущего индекса РТС по сравнению со значением закрытия
            "BUYDEPO="..tostring(getParamEx(ClassName,  SecName, "BUYDEPO").param_image)..";"..                               -- Гарантийное обеспечение продавца
            "SELLDEPO="..tostring(getParamEx(ClassName,  SecName, "SELLDEPO").param_image)..";"..                             -- Гарантийное обеспечение покупателя
            "CHANGETIME="..tostring(getParamEx(ClassName,  SecName, "CHANGETIME").param_image)..";"..                         -- Время последнего изменения
            "SELLPROFIT="..tostring(getParamEx(ClassName,  SecName, "SELLPROFIT").param_image)..";"..                         -- Доходность продажи
            "BUYPROFIT="..tostring(getParamEx(ClassName,  SecName, "BUYPROFIT").param_image)..";"..                           -- Доходность покупки
            "TRADECHANGE="..tostring(getParamEx(ClassName,  SecName, "TRADECHANGE").param_image)..";"..                       -- Разница цены последней к предыдущей сделки (FORTS, ФБ СПБ, СПВБ)
            "FACEVALUE="..tostring(getParamEx(ClassName,  SecName, "FACEVALUE").param_image)..";"..                           -- Номинал (для бумаг СПВБ)
            "MARKETPRICE="..tostring(getParamEx(ClassName,  SecName, "MARKETPRICE").param_image)..";"..                       -- Рыночная цена вчера
            "MARKETPRICETODAY="..tostring(getParamEx(ClassName,  SecName, "MARKETPRICETODAY").param_image)..";"..             -- Рыночная цена
            "NEXTCOUPON="..tostring(getParamEx(ClassName,  SecName, "NEXTCOUPON").param_image)..";"..                         -- Дата выплаты купона
            "BUYBACKPRICE="..tostring(getParamEx(ClassName,  SecName, "BUYBACKPRICE").param_image)..";"..                     -- Цена оферты
            "BUYBACKDATE="..tostring(getParamEx(ClassName,  SecName, "BUYBACKDATE").param_image)..";"..                       -- Дата оферты
            "ISSUESIZE="..tostring(getParamEx(ClassName,  SecName, "ISSUESIZE").param_image)..";"..                           -- Объем обращения
            "PREVDATE="..tostring(getParamEx(ClassName,  SecName, "PREVDATE").param_image)..";"..                             -- Дата предыдущего торгового дня
            "DURATION="..tostring(getParamEx(ClassName,  SecName, "DURATION").param_image)..";"..                             -- Дюрация
            "LOPENPRICE="..tostring(getParamEx(ClassName,  SecName, "LOPENPRICE").param_image)..";"..                         -- Официальная цена открытия
            "LCURRENTPRICE="..tostring(getParamEx(ClassName,  SecName, "LCURRENTPRICE").param_image)..";"..                   -- Официальная текущая цена
            "LCLOSEPRICE="..tostring(getParamEx(ClassName,  SecName, "LCLOSEPRICE").param_image)..";"..                       -- Официальная цена закрытия
            "QUOTEBASIS="..tostring(getParamEx(ClassName,  SecName, "QUOTEBASIS").param_image)..";"..                         -- Тип цены
            "PREVADMITTEDQUOT="..tostring(getParamEx(ClassName,  SecName, "PREVADMITTEDQUOT").param_image)..";"..             -- Признаваемая котировка предыдущего дня
            "LASTBID="..tostring(getParamEx(ClassName,  SecName, "LASTBID").param_image)..";"..                               -- Лучшая спрос на момент завершения периода торгов
            "LASTOFFER="..tostring(getParamEx(ClassName,  SecName, "LASTOFFER").param_image)..";"..                           -- Лучшее предложение на момент завершения торгов
            "PREVLEGALCLOSEPR="..tostring(getParamEx(ClassName,  SecName, "PREVLEGALCLOSEPR").param_image)..";"..             -- Цена закрытия предыдущего дня
            "COUPONPERIOD="..tostring(getParamEx(ClassName,  SecName, "COUPONPERIOD").param_image)..";"..                     -- Длительность купона
            "MARKETPRICE2="..tostring(getParamEx(ClassName,  SecName, "MARKETPRICE2").param_image)..";"..                     -- Рыночная цена 2
            "ADMITTEDQUOTE="..tostring(getParamEx(ClassName,  SecName, "ADMITTEDQUOTE").param_image)..";"..                   -- Признаваемая котировка
            "BGOP="..tostring(getParamEx(ClassName,  SecName, "BGOP").param_image)..";"..                                     -- БГО по покрытым позициям
            "BGONP="..tostring(getParamEx(ClassName,  SecName, "BGONP").param_image)..";"..                                   -- БГО по непокрытым позициям
            "STRIKE="..tostring(getParamEx(ClassName,  SecName, "STRIKE").param_image)..";"..                                 -- Цена страйк
            "STEPPRICET="..tostring(getParamEx(ClassName,  SecName, "STEPPRICET").param_image)..";"..                         -- Стоимость шага цены
            "STEPPRICE="..tostring(getParamEx(ClassName,  SecName, "STEPPRICE").param_image)..";"..                           -- Стоимость шага цены (для новых контрактов FORTS и RTS Standard)
            "SETTLEPRICE="..tostring(getParamEx(ClassName,  SecName, "SETTLEPRICE").param_image)..";"..                       -- Расчетная цена
            "OPTIONTYPE="..tostring(getParamEx(ClassName,  SecName, "OPTIONTYPE").param_image)..";"..                         -- Тип опциона
            "OPTIONBASE="..tostring(getParamEx(ClassName,  SecName, "OPTIONBASE").param_image)..";"..                         -- Базовый актив
            "VOLATILITY="..tostring(getParamEx(ClassName,  SecName, "VOLATILITY").param_image)..";"..                         -- Волатильность опциона
            "THEORPRICE="..tostring(getParamEx(ClassName,  SecName, "THEORPRICE").param_image)..";"..                         -- Теоретическая цена
            "PERCENTRATE="..tostring(getParamEx(ClassName,  SecName, "PERCENTRATE").param_image)..";"..                       -- Агрегированная ставка
            "ISPERCENT="..tostring(getParamEx(ClassName,  SecName, "ISPERCENT").param_image)..";"..                           -- Тип цены фьючерса
            "CLSTATE="..tostring(getParamEx(ClassName,  SecName, "CLSTATE").param_image)..";"..                               -- Статус клиринга
            "CLPRICE="..tostring(getParamEx(ClassName,  SecName, "CLPRICE").param_image)..";"..                               -- Котировка последнего клиринга
            "STARTTIME="..tostring(getParamEx(ClassName,  SecName, "STARTTIME").param_image)..";"..                           -- Начало основной сессии
            "ENDTIME="..tostring(getParamEx(ClassName,  SecName, "ENDTIME").param_image)..";"..                               -- Окончание основной сессии
            "EVNSTARTTIME="..tostring(getParamEx(ClassName,  SecName, "EVNSTARTTIME").param_image)..";"..                     -- Начало вечерней сессии
            "EVNENDTIME="..tostring(getParamEx(ClassName,  SecName, "EVNENDTIME").param_image)..";"..                         -- Окончание вечерней сессии
            "MONSTARTTIME="..tostring(getParamEx(ClassName,  SecName, "MONSTARTTIME").param_image)..";"..                     -- Начало утренней сессии
            "MONENDTIME="..tostring(getParamEx(ClassName,  SecName, "MONENDTIME").param_image)..";"..                         -- Окончание утренней сессии
            "CURSTEPPRICE="..tostring(getParamEx(ClassName,  SecName, "CURSTEPPRICE").param_image)..";"..                     -- Валюта шага цены
            "REALVMPRICE="..tostring(getParamEx(ClassName,  SecName, "REALVMPRICE").param_image)..";"                         -- Текущая рыночная котировка
            SecStr = SecStr.. -- Если не разделять, выдает ошибку
            "MARG="..tostring(getParamEx(ClassName,  SecName, "MARG").param_image)..";"..                                     -- Маржируемый
            "EXPDATE="..tostring(getParamEx(ClassName,  SecName, "EXPDATE").param_image)..";"..                               -- Дата исполнения инструмента
            "CROSSRATE="..tostring(getParamEx(ClassName,  SecName, "CROSSRATE").param_image)..";"..                           -- Курс
            "BASEPRICE="..tostring(getParamEx(ClassName,  SecName, "BASEPRICE").param_image)..";"..                           -- Базовый курс
            "HIGHVAL="..tostring(getParamEx(ClassName,  SecName, "HIGHVAL").param_image)..";"..                               -- Максимальное значение (RTSIND)
            "LOWVAL="..tostring(getParamEx(ClassName,  SecName, "LOWVAL").param_image)..";"..                                 -- Минимальное значение (RTSIND)
            "ICHANGE="..tostring(getParamEx(ClassName,  SecName, "ICHANGE").param_image)..";"..                               -- Изменение (RTSIND)
            "IOPEN="..tostring(getParamEx(ClassName,  SecName, "IOPEN").param_image)..";"..                                   -- Значение на момент открытия (RTSIND)
            "PCHANGE="..tostring(getParamEx(ClassName,  SecName, "PCHANGE").param_image)..";"..                               -- Процент изменения (RTSIND)
            "OPENPERIODPRICE="..tostring(getParamEx(ClassName,  SecName, "OPENPERIODPRICE").param_image)..";"..               -- Цена предторгового периода
            "MIN_CURR_LAST="..tostring(getParamEx(ClassName,  SecName, "MIN_CURR_LAST").param_image)..";"..                   -- Минимальная текущая цена
            "SETTLECODE="..tostring(getParamEx(ClassName,  SecName, "SETTLECODE").param_image)..";"..                         -- Код расчетов по умолчанию
            "STEPPRICECL="..tostring(getParamEx(ClassName,  SecName, "STEPPRICECL").param_image)..";"..                       -- Стоимость шага цены для клиринга
            "STEPPRICEPRCL="..tostring(getParamEx(ClassName,  SecName, "STEPPRICEPRCL").param_image)..";"..                   -- Стоимость шага цены для промклиринга
            "MIN_CURR_LAST_TI="..tostring(getParamEx(ClassName,  SecName, "MIN_CURR_LAST_TI").param_image)..";"..             -- Время изменения минимальной текущей цены
            "PREVLOTSIZE="..tostring(getParamEx(ClassName,  SecName, "PREVLOTSIZE").param_image)..";"..                       -- Предыдущее значение размера лота
            "LOTSIZECHANGEDAT="..tostring(getParamEx(ClassName,  SecName, "LOTSIZECHANGEDAT").param_image)..";"..             -- Дата последнего изменения размера лота
            "CLOSING_AUCTION_PRICE="..tostring(getParamEx(ClassName,  SecName, "CLOSING_AUCTION_PRICE").param_image)..";"..   -- Цена послеторгового аукциона
            "CLOSING_AUCTION_VOLUME="..tostring(getParamEx(ClassName,  SecName, "CLOSING_AUCTION_VOLUME").param_image)..";".. -- Количество в сделках послеторгового аукциона
            "LONGNAME="..tostring(getParamEx(ClassName,  SecName, "LONGNAME").param_image)..";"..                             -- Полное название бумаги
            "SHORTNAME="..tostring(getParamEx(ClassName,  SecName, "SHORTNAME").param_image)..";"..                           -- Краткое название бумаги
            "CODE="..tostring(getParamEx(ClassName,  SecName, "CODE").param_image)..";"..                                     -- Код бумаги
            "CLASSNAME="..tostring(getParamEx(ClassName,  SecName, "CLASSNAME").param_image)..";"..                           -- Название класса
            "CLASS_CODE="..tostring(getParamEx(ClassName,  SecName, "CLASS_CODE").param_image)..";"..                         -- Код класса
            "TRADE_DATE_CODE="..tostring(getParamEx(ClassName,  SecName, "TRADE_DATE_CODE").param_image)..";"..               -- Дата торгов
            "MAT_DATE="..tostring(getParamEx(ClassName,  SecName, "MAT_DATE").param_image)..";"..                             -- Дата погашения
            "DAYS_TO_MAT_DATE="..tostring(getParamEx(ClassName,  SecName, "DAYS_TO_MAT_DATE").param_image)..";"..             -- Число дней до погашения
            "SEC_FACE_VALUE="..tostring(getParamEx(ClassName,  SecName, "SEC_FACE_VALUE").param_image)..";"..                 -- Номинал бумаги
            "SEC_FACE_UNIT="..tostring(getParamEx(ClassName,  SecName, "SEC_FACE_UNIT").param_image)..";"..                   -- Валюта номинала
            "SEC_SCALE="..tostring(getParamEx(ClassName,  SecName, "SEC_SCALE").param_image)..";"..                           -- Точность цены
            "SEC_PRICE_STEP="..tostring(getParamEx(ClassName,  SecName, "SEC_PRICE_STEP").param_image)..";"..                 -- Минимальный шаг цены
            "SECTYPE="..tostring(getParamEx(ClassName,  SecName, "SECTYPE").param_image);                                     -- Тип инструмента
 
         -- Ждет пока можно будет отправить строку (освободится поток для записи)
         while not QluaCSharpConnector.CheckGotPARAMS() do sleep(1); end;
         -- Отправляет строку в DLL
         QluaCSharpConnector.SendPARAMS(SecStr);
      end;
	end;
   -- Меняет флаг, сообщая о завершении первой отправки
   FirstSendComplete = true;
   -- Выводит сообщение
   message("Первая отправка завершена");
end;
-- Функция вызывается терминалом QUIK при при изменении текущих параметров
function OnParam(ClassName, SecName)
   -- Если первая отправка еще не завершена, выходит из функции
   if not FirstSendComplete then return; end;
 
   -----------------------------------------------------------------
   -- Фильтр по классам (акции, фьючерсы)
   if  ClassName ~= "TQBR"
   and ClassName ~= "SPBFUT"
   then return; end;
   -----------------------------------------------------------------
   -----------------------------------------------------------------
   -- Фильтр по бумагам
   if  SecName ~= "SBER"
   and SecName ~= "RIU5"
   then return; end;
   -----------------------------------------------------------------
 
   local ms_str = QluaCSharpConnector.GetMilliseconds(); -- Миллисекунды, прошедшие с запуска ОС
   -- Формирует строку со всеми параметрами инструмента из Текущей Таблицы Параметров
   SecStr =
      "ms="..ms_str..";"..                                                                                              -- Миллисекунды компьютера
      "STATUS="..tostring(getParamEx(ClassName,  SecName, "STATUS").param_image)..";"..                                 -- Статус
      "LOTSIZE="..tostring(getParamEx(ClassName,  SecName, "LOTSIZE").param_image)..";"..                               -- Размер лота
      "BID="..tostring(getParamEx(ClassName,  SecName, "BID").param_image)..";"..                                       -- Лучшая цена спроса
      "BIDDEPTH="..tostring(getParamEx(ClassName,  SecName, "BIDDEPTH").param_image)..";"..                             -- Спрос по лучшей цене
      "BIDDEPTHT="..tostring(getParamEx(ClassName,  SecName, "BIDDEPTHT").param_image)..";"..                           -- Суммарный спрос
      "NUMBIDS="..tostring(getParamEx(ClassName,  SecName, "NUMBIDS").param_image)..";"..                               -- Количество заявок на покупку
      "OFFER="..tostring(getParamEx(ClassName,  SecName, "OFFER").param_image)..";"..                                   -- Лучшая цена предложения
      "OFFERDEPTH="..tostring(getParamEx(ClassName,  SecName, "OFFERDEPTH").param_image)..";"..                         -- Предложение по лучшей цене
      "OFFERDEPTHT="..tostring(getParamEx(ClassName,  SecName, "OFFERDEPTHT").param_image)..";"..                       -- Суммарное предложение
      "NUMOFFERS="..tostring(getParamEx(ClassName,  SecName, "NUMOFFERS").param_image)..";"..                           -- Количество заявок на продажу
      "OPEN="..tostring(getParamEx(ClassName,  SecName, "OPEN").param_image)..";"..                                     -- Цена открытия
      "HIGH="..tostring(getParamEx(ClassName,  SecName, "HIGH").param_image)..";"..                                     -- Максимальная цена сделки
      "LOW="..tostring(getParamEx(ClassName,  SecName, "LOW").param_image)..";"..                                       -- Минимальная цена сделки
      "LAST="..tostring(getParamEx(ClassName,  SecName, "LAST").param_image)..";"..                                     -- Цена последней сделки
      "CHANGE="..tostring(getParamEx(ClassName,  SecName, "CHANGE").param_image)..";"..                                 -- Разница цены последней к предыдущей сессии
      "QTY="..tostring(getParamEx(ClassName,  SecName, "QTY").param_image)..";"..                                       -- Количество бумаг в последней сделке
      "TIME="..tostring(getParamEx(ClassName,  SecName, "TIME").param_image)..";"..                                     -- Время последней сделки
      "VOLTODAY="..tostring(getParamEx(ClassName,  SecName, "VOLTODAY").param_image)..";"..                             -- Количество бумаг в обезличенных сделках
      "VALTODAY="..tostring(getParamEx(ClassName,  SecName, "VALTODAY").param_image)..";"..                             -- Оборот в деньгах
      "TRADINGSTATUS="..tostring(getParamEx(ClassName,  SecName, "TRADINGSTATUS").param_image)..";"..                   -- Состояние сессии
      "VALUE="..tostring(getParamEx(ClassName,  SecName, "VALUE").param_image)..";"..                                   -- Оборот в деньгах последней сделки
      "WAPRICE="..tostring(getParamEx(ClassName,  SecName, "WAPRICE").param_image)..";"..                               -- Средневзвешенная цена
      "HIGHBID="..tostring(getParamEx(ClassName,  SecName, "HIGHBID").param_image)..";"..                               -- Лучшая цена спроса сегодня
      "LOWOFFER="..tostring(getParamEx(ClassName,  SecName, "LOWOFFER").param_image)..";"..                             -- Лучшая цена предложения сегодня
      "NUMTRADES="..tostring(getParamEx(ClassName,  SecName, "NUMTRADES").param_image)..";"..                           -- Количество сделок за сегодня
      "PREVPRICE="..tostring(getParamEx(ClassName,  SecName, "PREVPRICE").param_image)..";"..                           -- Цена закрытия
      "PREVWAPRICE="..tostring(getParamEx(ClassName,  SecName, "PREVWAPRICE").param_image)..";"..                       -- Предыдущая оценка
      "CLOSEPRICE="..tostring(getParamEx(ClassName,  SecName, "CLOSEPRICE").param_image)..";"..                         -- Цена периода закрытия
      "LASTCHANGE="..tostring(getParamEx(ClassName,  SecName, "LASTCHANGE").param_image)..";"..                         -- % изменения от закрытия
      "PRIMARYDIST="..tostring(getParamEx(ClassName,  SecName, "PRIMARYDIST").param_image)..";"..                       -- Размещение
      "ACCRUEDINT="..tostring(getParamEx(ClassName,  SecName, "ACCRUEDINT").param_image)..";"..                         -- Накопленный купонный доход
      "YIELD="..tostring(getParamEx(ClassName,  SecName, "YIELD").param_image)..";"..                                   -- Доходность последней сделки
      "COUPONVALUE="..tostring(getParamEx(ClassName,  SecName, "COUPONVALUE").param_image)..";"..                       -- Размер купона
      "YIELDATPREVWAPRICE="..tostring(getParamEx(ClassName,  SecName, "YIELDATPREVWAPRICE").param_image)..";"..         -- Доходность по предыдущей оценке
      "YIELDATWAPRICE="..tostring(getParamEx(ClassName,  SecName, "YIELDATWAPRICE").param_image)..";"..                 -- Доходность по оценке
      "PRICEMINUSPREVWAPRICE="..tostring(getParamEx(ClassName,  SecName, "PRICEMINUSPREVWAPRICE").param_image)..";"..   -- Разница цены последней к предыдущей оценке
      "CLOSEYIELD="..tostring(getParamEx(ClassName,  SecName, "CLOSEYIELD").param_image)..";"..                         -- Доходность закрытия
      "CURRENTVALUE="..tostring(getParamEx(ClassName,  SecName, "CURRENTVALUE").param_image)..";"..                     -- Текущее значение индексов Московской Биржи
      "LASTVALUE="..tostring(getParamEx(ClassName,  SecName, "LASTVALUE").param_image)..";"..                           -- Значение индексов Московской Биржи на закрытие предыдущего дня
      "LASTTOPREVSTLPRC="..tostring(getParamEx(ClassName,  SecName, "LASTTOPREVSTLPRC").param_image)..";"..             -- Разница цены последней к предыдущей сессии
      "PREVSETTLEPRICE="..tostring(getParamEx(ClassName,  SecName, "PREVSETTLEPRICE").param_image)..";"..               -- Предыдущая расчетная цена
      "PRICEMVTLIMIT="..tostring(getParamEx(ClassName,  SecName, "PRICEMVTLIMIT").param_image)..";"..                   -- Лимит изменения цены
      "PRICEMVTLIMITT1="..tostring(getParamEx(ClassName,  SecName, "PRICEMVTLIMITT1").param_image)..";"..               -- Лимит изменения цены T1
      "MAXOUTVOLUME="..tostring(getParamEx(ClassName,  SecName, "MAXOUTVOLUME").param_image)..";"..                     -- Лимит объема активных заявок (в контрактах)
      "PRICEMAX="..tostring(getParamEx(ClassName,  SecName, "PRICEMAX").param_image)..";"..                             -- Максимально возможная цена
      "PRICEMIN="..tostring(getParamEx(ClassName,  SecName, "PRICEMIN").param_image)..";"..                             -- Минимально возможная цена
      "NEGVALTODAY="..tostring(getParamEx(ClassName,  SecName, "NEGVALTODAY").param_image)..";"..                       -- Оборот внесистемных в деньгах
      "NEGNUMTRADES="..tostring(getParamEx(ClassName,  SecName, "NEGNUMTRADES").param_image)..";"..                     -- Количество внесистемных сделок за сегодня
      "NUMCONTRACTS="..tostring(getParamEx(ClassName,  SecName, "NUMCONTRACTS").param_image)..";"..                     -- Количество открытых позиций
      "CLOSETIME="..tostring(getParamEx(ClassName,  SecName, "CLOSETIME").param_image)..";"..                           -- Время закрытия предыдущих торгов (для индексов РТС)
      "OPENVAL="..tostring(getParamEx(ClassName,  SecName, "OPENVAL").param_image)..";"                                 -- Значение индекса РТС на момент открытия торгов
      SecStr = SecStr.. -- Если не разделять, выдает ошибку
      "CHNGOPEN="..tostring(getParamEx(ClassName,  SecName, "CHNGOPEN").param_image)..";"..                             -- Изменение текущего индекса РТС по сравнению со значением открытия
      "CHNGCLOSE="..tostring(getParamEx(ClassName,  SecName, "CHNGCLOSE").param_image)..";"..                           -- Изменение текущего индекса РТС по сравнению со значением закрытия
      "BUYDEPO="..tostring(getParamEx(ClassName,  SecName, "BUYDEPO").param_image)..";"..                               -- Гарантийное обеспечение продавца
      "SELLDEPO="..tostring(getParamEx(ClassName,  SecName, "SELLDEPO").param_image)..";"..                             -- Гарантийное обеспечение покупателя
      "CHANGETIME="..tostring(getParamEx(ClassName,  SecName, "CHANGETIME").param_image)..";"..                         -- Время последнего изменения
      "SELLPROFIT="..tostring(getParamEx(ClassName,  SecName, "SELLPROFIT").param_image)..";"..                         -- Доходность продажи
      "BUYPROFIT="..tostring(getParamEx(ClassName,  SecName, "BUYPROFIT").param_image)..";"..                           -- Доходность покупки
      "TRADECHANGE="..tostring(getParamEx(ClassName,  SecName, "TRADECHANGE").param_image)..";"..                       -- Разница цены последней к предыдущей сделки (FORTS, ФБ СПБ, СПВБ)
      "FACEVALUE="..tostring(getParamEx(ClassName,  SecName, "FACEVALUE").param_image)..";"..                           -- Номинал (для бумаг СПВБ)
      "MARKETPRICE="..tostring(getParamEx(ClassName,  SecName, "MARKETPRICE").param_image)..";"..                       -- Рыночная цена вчера
      "MARKETPRICETODAY="..tostring(getParamEx(ClassName,  SecName, "MARKETPRICETODAY").param_image)..";"..             -- Рыночная цена
      "NEXTCOUPON="..tostring(getParamEx(ClassName,  SecName, "NEXTCOUPON").param_image)..";"..                         -- Дата выплаты купона
      "BUYBACKPRICE="..tostring(getParamEx(ClassName,  SecName, "BUYBACKPRICE").param_image)..";"..                     -- Цена оферты
      "BUYBACKDATE="..tostring(getParamEx(ClassName,  SecName, "BUYBACKDATE").param_image)..";"..                       -- Дата оферты
      "ISSUESIZE="..tostring(getParamEx(ClassName,  SecName, "ISSUESIZE").param_image)..";"..                           -- Объем обращения
      "PREVDATE="..tostring(getParamEx(ClassName,  SecName, "PREVDATE").param_image)..";"..                             -- Дата предыдущего торгового дня
      "DURATION="..tostring(getParamEx(ClassName,  SecName, "DURATION").param_image)..";"..                             -- Дюрация
      "LOPENPRICE="..tostring(getParamEx(ClassName,  SecName, "LOPENPRICE").param_image)..";"..                         -- Официальная цена открытия
      "LCURRENTPRICE="..tostring(getParamEx(ClassName,  SecName, "LCURRENTPRICE").param_image)..";"..                   -- Официальная текущая цена
      "LCLOSEPRICE="..tostring(getParamEx(ClassName,  SecName, "LCLOSEPRICE").param_image)..";"..                       -- Официальная цена закрытия
      "QUOTEBASIS="..tostring(getParamEx(ClassName,  SecName, "QUOTEBASIS").param_image)..";"..                         -- Тип цены
      "PREVADMITTEDQUOT="..tostring(getParamEx(ClassName,  SecName, "PREVADMITTEDQUOT").param_image)..";"..             -- Признаваемая котировка предыдущего дня
      "LASTBID="..tostring(getParamEx(ClassName,  SecName, "LASTBID").param_image)..";"..                               -- Лучшая спрос на момент завершения периода торгов
      "LASTOFFER="..tostring(getParamEx(ClassName,  SecName, "LASTOFFER").param_image)..";"..                           -- Лучшее предложение на момент завершения торгов
      "PREVLEGALCLOSEPR="..tostring(getParamEx(ClassName,  SecName, "PREVLEGALCLOSEPR").param_image)..";"..             -- Цена закрытия предыдущего дня
      "COUPONPERIOD="..tostring(getParamEx(ClassName,  SecName, "COUPONPERIOD").param_image)..";"..                     -- Длительность купона
      "MARKETPRICE2="..tostring(getParamEx(ClassName,  SecName, "MARKETPRICE2").param_image)..";"..                     -- Рыночная цена 2
      "ADMITTEDQUOTE="..tostring(getParamEx(ClassName,  SecName, "ADMITTEDQUOTE").param_image)..";"..                   -- Признаваемая котировка
      "BGOP="..tostring(getParamEx(ClassName,  SecName, "BGOP").param_image)..";"..                                     -- БГО по покрытым позициям
      "BGONP="..tostring(getParamEx(ClassName,  SecName, "BGONP").param_image)..";"..                                   -- БГО по непокрытым позициям
      "STRIKE="..tostring(getParamEx(ClassName,  SecName, "STRIKE").param_image)..";"..                                 -- Цена страйк
      "STEPPRICET="..tostring(getParamEx(ClassName,  SecName, "STEPPRICET").param_image)..";"..                         -- Стоимость шага цены
      "STEPPRICE="..tostring(getParamEx(ClassName,  SecName, "STEPPRICE").param_image)..";"..                           -- Стоимость шага цены (для новых контрактов FORTS и RTS Standard)
      "SETTLEPRICE="..tostring(getParamEx(ClassName,  SecName, "SETTLEPRICE").param_image)..";"..                       -- Расчетная цена
      "OPTIONTYPE="..tostring(getParamEx(ClassName,  SecName, "OPTIONTYPE").param_image)..";"..                         -- Тип опциона
      "OPTIONBASE="..tostring(getParamEx(ClassName,  SecName, "OPTIONBASE").param_image)..";"..                         -- Базовый актив
      "VOLATILITY="..tostring(getParamEx(ClassName,  SecName, "VOLATILITY").param_image)..";"..                         -- Волатильность опциона
      "THEORPRICE="..tostring(getParamEx(ClassName,  SecName, "THEORPRICE").param_image)..";"..                         -- Теоретическая цена
      "PERCENTRATE="..tostring(getParamEx(ClassName,  SecName, "PERCENTRATE").param_image)..";"..                       -- Агрегированная ставка
      "ISPERCENT="..tostring(getParamEx(ClassName,  SecName, "ISPERCENT").param_image)..";"..                           -- Тип цены фьючерса
      "CLSTATE="..tostring(getParamEx(ClassName,  SecName, "CLSTATE").param_image)..";"..                               -- Статус клиринга
      "CLPRICE="..tostring(getParamEx(ClassName,  SecName, "CLPRICE").param_image)..";"..                               -- Котировка последнего клиринга
      "STARTTIME="..tostring(getParamEx(ClassName,  SecName, "STARTTIME").param_image)..";"..                           -- Начало основной сессии
      "ENDTIME="..tostring(getParamEx(ClassName,  SecName, "ENDTIME").param_image)..";"..                               -- Окончание основной сессии
      "EVNSTARTTIME="..tostring(getParamEx(ClassName,  SecName, "EVNSTARTTIME").param_image)..";"..                     -- Начало вечерней сессии
      "EVNENDTIME="..tostring(getParamEx(ClassName,  SecName, "EVNENDTIME").param_image)..";"..                         -- Окончание вечерней сессии
      "MONSTARTTIME="..tostring(getParamEx(ClassName,  SecName, "MONSTARTTIME").param_image)..";"..                     -- Начало утренней сессии
      "MONENDTIME="..tostring(getParamEx(ClassName,  SecName, "MONENDTIME").param_image)..";"..                         -- Окончание утренней сессии
      "CURSTEPPRICE="..tostring(getParamEx(ClassName,  SecName, "CURSTEPPRICE").param_image)..";"..                     -- Валюта шага цены
      "REALVMPRICE="..tostring(getParamEx(ClassName,  SecName, "REALVMPRICE").param_image)..";"                         -- Текущая рыночная котировка
      SecStr = SecStr.. -- Если не разделять, выдает ошибку
      "MARG="..tostring(getParamEx(ClassName,  SecName, "MARG").param_image)..";"..                                     -- Маржируемый
      "EXPDATE="..tostring(getParamEx(ClassName,  SecName, "EXPDATE").param_image)..";"..                               -- Дата исполнения инструмента
      "CROSSRATE="..tostring(getParamEx(ClassName,  SecName, "CROSSRATE").param_image)..";"..                           -- Курс
      "BASEPRICE="..tostring(getParamEx(ClassName,  SecName, "BASEPRICE").param_image)..";"..                           -- Базовый курс
      "HIGHVAL="..tostring(getParamEx(ClassName,  SecName, "HIGHVAL").param_image)..";"..                               -- Максимальное значение (RTSIND)
      "LOWVAL="..tostring(getParamEx(ClassName,  SecName, "LOWVAL").param_image)..";"..                                 -- Минимальное значение (RTSIND)
      "ICHANGE="..tostring(getParamEx(ClassName,  SecName, "ICHANGE").param_image)..";"..                               -- Изменение (RTSIND)
      "IOPEN="..tostring(getParamEx(ClassName,  SecName, "IOPEN").param_image)..";"..                                   -- Значение на момент открытия (RTSIND)
      "PCHANGE="..tostring(getParamEx(ClassName,  SecName, "PCHANGE").param_image)..";"..                               -- Процент изменения (RTSIND)
      "OPENPERIODPRICE="..tostring(getParamEx(ClassName,  SecName, "OPENPERIODPRICE").param_image)..";"..               -- Цена предторгового периода
      "MIN_CURR_LAST="..tostring(getParamEx(ClassName,  SecName, "MIN_CURR_LAST").param_image)..";"..                   -- Минимальная текущая цена
      "SETTLECODE="..tostring(getParamEx(ClassName,  SecName, "SETTLECODE").param_image)..";"..                         -- Код расчетов по умолчанию
      "STEPPRICECL="..tostring(getParamEx(ClassName,  SecName, "STEPPRICECL").param_image)..";"..                       -- Стоимость шага цены для клиринга
      "STEPPRICEPRCL="..tostring(getParamEx(ClassName,  SecName, "STEPPRICEPRCL").param_image)..";"..                   -- Стоимость шага цены для промклиринга
      "MIN_CURR_LAST_TI="..tostring(getParamEx(ClassName,  SecName, "MIN_CURR_LAST_TI").param_image)..";"..             -- Время изменения минимальной текущей цены
      "PREVLOTSIZE="..tostring(getParamEx(ClassName,  SecName, "PREVLOTSIZE").param_image)..";"..                       -- Предыдущее значение размера лота
      "LOTSIZECHANGEDAT="..tostring(getParamEx(ClassName,  SecName, "LOTSIZECHANGEDAT").param_image)..";"..             -- Дата последнего изменения размера лота
      "CLOSING_AUCTION_PRICE="..tostring(getParamEx(ClassName,  SecName, "CLOSING_AUCTION_PRICE").param_image)..";"..   -- Цена послеторгового аукциона
      "CLOSING_AUCTION_VOLUME="..tostring(getParamEx(ClassName,  SecName, "CLOSING_AUCTION_VOLUME").param_image)..";".. -- Количество в сделках послеторгового аукциона
      "LONGNAME="..tostring(getParamEx(ClassName,  SecName, "LONGNAME").param_image)..";"..                             -- Полное название бумаги
      "SHORTNAME="..tostring(getParamEx(ClassName,  SecName, "SHORTNAME").param_image)..";"..                           -- Краткое название бумаги
      "CODE="..tostring(getParamEx(ClassName,  SecName, "CODE").param_image)..";"..                                     -- Код бумаги
      "CLASSNAME="..tostring(getParamEx(ClassName,  SecName, "CLASSNAME").param_image)..";"..                           -- Название класса
      "CLASS_CODE="..tostring(getParamEx(ClassName,  SecName, "CLASS_CODE").param_image)..";"..                         -- Код класса
      "TRADE_DATE_CODE="..tostring(getParamEx(ClassName,  SecName, "TRADE_DATE_CODE").param_image)..";"..               -- Дата торгов
      "MAT_DATE="..tostring(getParamEx(ClassName,  SecName, "MAT_DATE").param_image)..";"..                             -- Дата погашения
      "DAYS_TO_MAT_DATE="..tostring(getParamEx(ClassName,  SecName, "DAYS_TO_MAT_DATE").param_image)..";"..             -- Число дней до погашения
      "SEC_FACE_VALUE="..tostring(getParamEx(ClassName,  SecName, "SEC_FACE_VALUE").param_image)..";"..                 -- Номинал бумаги
      "SEC_FACE_UNIT="..tostring(getParamEx(ClassName,  SecName, "SEC_FACE_UNIT").param_image)..";"..                   -- Валюта номинала
      "SEC_SCALE="..tostring(getParamEx(ClassName,  SecName, "SEC_SCALE").param_image)..";"..                           -- Точность цены
      "SEC_PRICE_STEP="..tostring(getParamEx(ClassName,  SecName, "SEC_PRICE_STEP").param_image)..";"..                 -- Минимальный шаг цены
      "SECTYPE="..tostring(getParamEx(ClassName,  SecName, "SECTYPE").param_image);                                     -- Тип инструмента
 
   -- Добавляет строку параметров инструмента в стек
   AddToStack(SecStr);
end;
 
-- Добавляет запись в стек
function AddToStack(NewEntry)
   -- Добавляет запись в стек
   Stack[Stack.idx_for_add] = NewEntry;
   -- Корректирует счетчик находящихся в стеке записей
   if Stack.count < Stack.max then Stack.count = Stack.count + 1; end;
   -- Увеличивает индекс для добавления следующей записи
   Stack.idx_for_add = Stack.idx_for_add + 1;
   -- Если индекс больше максимально допустимого, то следующая запись будет добавляться в начало стека
   if Stack.idx_for_add > Stack.max then Stack.idx_for_add = 1; end;
   -- Если изъятие записей отстало от записи (новая запись переписала старую), то увеличивает индекс для изъятия следующей записи
   if Stack.idx_for_add - Stack.idx_for_get == 1 and Stack.count > 1 -- смещение внутри стека
      then Stack.idx_for_get = Stack.idx_for_get + 1;
   -- Добавил в конец, когда индекс для изъятия тоже был в конце и количество не равно 0
   elseif Stack.idx_for_get - Stack.idx_for_add == Stack.max - 1 and Stack.count > 1
      then Stack.idx_for_get = 1;
   end;
end;
-- Извлекает запись из стека
function GetFromStack()
   local OldInxForGet = Stack.idx_for_get;
   if Stack.count == 0 then return nil; end;
   -- Уменьшает количество записей на 1
   Stack.count = Stack.count - 1;
   -- Корректирует, если это была единственная запись
   if Stack.count == -1 then
      Stack.count = 0;
      Stack.idx_for_get = Stack.idx_for_add; -- Выравнивает индексы
   else -- Если еще есть записи
      -- Сдвигает индекс изъятия на 1 вправо
      Stack.idx_for_get = Stack.idx_for_get + 1;
      -- Корректирует, если достигнут конец
      if Stack.idx_for_get > Stack.max then Stack.idx_for_get = 1; end;
   end;
   return Stack[OldInxForGet];
end;
 
-- Вызывается терминалом QUIK, когда пользователь завершает работу скрипта
function OnStop()
   -- Завершает цикл в функции main()
   IsRun = false;
end;

В библиотеке DLL реализовано 3 функции взаимодействия с Lua:
1) CheckGotPARAMS() - Проверяет получил-ли C# последнюю строку параметров по инструменту (или еще не было отправлено ни одной строки), возвращает true, либо false.
2) SendPARAMS() - Получает от QLua(Lua) строку инструмента из Текущей Таблицы Параметров и отправляет ее в C#.
3) GetMilliseconds() - Возвращает текущее время работы ОС в миллисекундах.

Код DLL
(Если Вы не знаете как создавать библиотеки DLL, которые можно использовать в скриптах QLua(Lua), ознакомьтесь, пожалуйста, с данной статьей).

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126

/*
В библиотеке реализовано 3 функции взаимодействия с Lua
   1) CheckGotPARAMS() - Проверяет получил-ли C# последнюю строку параметров по инструменту (или еще не было отправлено ни одной строки), возвращает true, либо false
   2) SendPARAMS() - Получает от QLua(Lua) строку инструмента из Текущей Таблицы Параметров и отправляет ее в C#
   3) GetMilliseconds() - Возвращает текущее время работы ОС в миллисекундах
 
   (c)QuikLuaCSharp.ru
*/
 
#include <windows.h>
 
//=== Необходимые для Lua константы ============================================================================//
#define LUA_LIB
#define LUA_BUILD_AS_DLL
 
//=== Заголовочные файлы LUA ===================================================================================//
extern "C" {
#include "Lua\lauxlib.h"
#include "Lua\lua.h"
}
 
//=== Получает указатель на выделенную именованную память =====================================================//
// Имя для выделенной памяти
TCHAR Name[] = TEXT("Param");
// Создаст, или подключится к уже созданной памяти с таким именем
HANDLE hFileMapMyMemory = CreateFileMapping(INVALID_HANDLE_VALUE, NULL, PAGE_READWRITE, 0, 3000, Name);
 
//=== Стандартная точка входа для DLL ==========================================================================//
BOOL APIENTRY DllMain(HANDLE hModule, DWORD  ul_reason_for_call, LPVOID lpReserved)
{
   return TRUE;
}
 
//=== Реализация функций, вызываемых из LUA ====================================================================//
// Проверяет получил-ли C# последнюю строку параметров по инструменту (или еще не было отправлено ни одной строки)
static int forLua_CheckGotPARAMS(lua_State *L)
{
   // Если указатель на память получен
   if (hFileMapMyMemory)
   {
      // Получает доступ (представление) непосредственно к чтению/записи байт
      PBYTE pb = (PBYTE)(MapViewOfFile(hFileMapMyMemory, FILE_MAP_READ | FILE_MAP_WRITE, 0, 0, 3000));
 
      // Если доступ получен
      if (pb != NULL)
      {
         // C# устанавливает в первый байт '2', сообщая тем самым, что можно записывать в память
         if (pb[0] == '2')
         {
            // Если запись пустая, то возвращает в QLua TRUE (разрешает отправлять строку)
            lua_pushboolean(L, true);
         }
         else
         {
            // Если запись НЕ пустая, то возвращает в QLua FALSE (запрещает отправлять строку)
            lua_pushboolean(L, false);
         }
         // Закрывает представление
         UnmapViewOfFile(pb);
      }
      else lua_pushboolean(L, false);// Если доступ НЕ получен, отправляет в QLua FALSE (запрещает отправлять строку)
   }
   else lua_pushboolean(L, false); // Если указатель на память НЕ получен, отправляет в QLua FALSE (запрещает отправлять строку)
 
   return(1);
}
// Получает строку инструмента из Текущей Таблицы Параметров и отправляет ее в C#
static int forLua_SendPARAMS(lua_State *L)
{
   // Если указатель на память получен
   if (hFileMapMyMemory)
   {
      // Получает доступ (представление) непосредственно к чтению/записи байт
      PBYTE pb = (PBYTE)(MapViewOfFile(hFileMapMyMemory, FILE_MAP_READ | FILE_MAP_WRITE, 0, 0, 3000));
 
      // Если доступ получен
      if (pb != NULL)
      {
         // Считывает из Lua-стека строку инструмента
         const char *Params = lua_tostring(L, 1);
         int Size = 0;
         // Считает количество символов в строке
         for (int i = 0; i < 3000; i++)
         {
            if (Params[i] == 0)break;
            Size++;
         }
         // Записывает строку в память, начиная со 2-го байта
         memcpy(pb + 1, Params, Size);
         // Устанавливает в 1-й байт "1", сообщая тем самым C#, что запись завершена и можно читать
         memcpy(pb, "1", 1);
 
         // Закрывает представление
         UnmapViewOfFile(pb);
      }
   }
 
   return(0);
}
// Возвращает текущее время работы ОС в миллисекундах
static int forLua_GetMilliseconds(lua_State *L)
{
   // Получает время в миллисекундах, прошедших с запуска ОС
   unsigned long long _TickCount = GetTickCount64();
   char TickCount[20];
   // Конвертирует число миллисекунд в строковое представление
   sprintf_s(TickCount, "%llu", _TickCount);
   // Помещает строковое представление в Lua-стек
   lua_pushstring(L, TickCount);
 
   return(1);
}
 
//=== Регистрация реализованных в dll функций, чтобы они стали "видимы" для Lua ================================//
static struct luaL_reg ls_lib[] = {
   { "CheckGotPARAMS", forLua_CheckGotPARAMS },
   { "SendPARAMS", forLua_SendPARAMS },
   { "GetMilliseconds", forLua_GetMilliseconds },
   { NULL, NULL }
};
 
//=== Регистрация названия библиотеки, видимого в скрипте Lua ==================================================//
extern "C" LUALIB_API int luaopen_QluaCSharpConnector(lua_State *L) {
   luaL_openlib(L, "QluaCSharpConnector", ls_lib, 0);
   return 0;
}

Для работы данного примера создайте приложение Windows Forms на C#, если Вы не знаете как это сделать, посмотрите здесь. Разместите на форме одно текстовое поле, которое должно называться textBox1, установите его свойство "Multiline" в значение "TRUE", растяните его на всю форму и замените код файла "Form1.cs" на приведенный ниже, не забудьте функции Form1_FormClosing и Form1_Shown назначить соответствующим событиям формы и переименуйте namespace в коде так же, как называется Ваш проект (в примере namespace Test).

Код C#
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156

using System;
using System.Collections.Generic;
using System.ComponentModel;
using System.Data;
using System.IO;
using System.IO.MemoryMappedFiles;
using System.Linq;
using System.Text;
using System.Threading;
using System.Threading.Tasks;
using System.Windows.Forms;
 
namespace Test
{
    public partial class Form1 : Form
    {
        // Выделенная именованная память
        public MemoryMappedFile Memory;
        // Объект для чтения из памяти
        StreamReader SR_Memory;
        // Объект для записи в память
        StreamWriter SW_Memory;
 
        // Флаг необходимости получать сообщения
        bool Run = true;
 
        public Form1()
        {
            InitializeComponent();
 
            // Создаст, или подключится к уже созданной памяти с таким именем
            Memory = MemoryMappedFile.CreateOrOpen("Param", 3000, MemoryMappedFileAccess.ReadWrite);
            // Создает поток для чтения
            SR_Memory = new StreamReader(Memory.CreateViewStream(), System.Text.Encoding.Default);
            // Создает поток для записи
            SW_Memory = new StreamWriter(Memory.CreateViewStream(), System.Text.Encoding.Default);
        }
 
        // Делегат нужен для того, чтобы безопасно обратиться к TextBox из другого потока
        private delegate void TB(Dictionary<string, string> Params);
        private void AddText(Dictionary<string, string> Params)
        {
            // Если уже 11 строк, удаляет 1-ю строку
            if (textBox1.Lines.GetLength(0) == 11)
            {
                string Txt = "";
                for (int i = 1; i < 10; i++)
                {
                    Txt += textBox1.Lines[i] + Environment.NewLine;
                }
                textBox1.Clear();
                textBox1.Text = Txt;
            }
 
            // Проверяет существуют ли все необходимые ключи в переданном словаре
            if (Params.ContainsKey("ms") && Params.ContainsKey("SHORTNAME") && Params.ContainsKey("STATUS"))
            {
                try
                {
                    // Вычисляет задержку, конвертирует число в строку
                    string TimeRange = (Environment.TickCount - Convert.ToInt32(Params["ms"])).ToString();
                    // Добавляет в текстовое поле строку
                    textBox1.AppendText("Задержка = " + TimeRange + " мс     SHORTNAME = " + Params["SHORTNAME"] + " STATUS = " + Params["STATUS"] + Environment.NewLine);
                }
                catch (KeyNotFoundException) { }
            }
        }
 
        private void GetPARAMS()// Получает строку параметров инструмента от DLL, выводит их в текстовое поле, очищает память
        {
            //Очищает память при первом запуске
            //Встает в начало потока для записи
            SW_Memory.BaseStream.Seek(0, SeekOrigin.Begin);
            // Очищает память, заполняя "нулевыми байтами"
            for (int i = 0; i < 3000; i++) SW_Memory.Write("\0");
            // Очищает все буферы для SW_Memory и вызывает запись всех данных буфера в основной поток
            SW_Memory.Flush();
            // Встает в начало потока для записи
            SW_Memory.BaseStream.Seek(0, SeekOrigin.Begin);
            // Записывает в первый байт "2", сообщая тем самым, что можно записывать в память
            SW_Memory.Write("2");
            // Очищает все буферы для SW_Memory и вызывает запись всех данных буфера в основной поток
            SW_Memory.Flush();
 
            // Создает словарь для пар (ключ = значение)
            Dictionary<string, string> DictionaryParam = new Dictionary<string, string>();
 
            string PARAMS = "";
            // Цикл работает пока Run == true
            while (Run)
            {
                // Встает в начало потока (позиция 0)
                SR_Memory.BaseStream.Seek(0, SeekOrigin.Begin);
                // Считывает данные из потока памяти, обрезая ненужные байты
                PARAMS = SR_Memory.ReadToEnd().Trim('\0', '\r', '\n');
 
                // Если в потоке первым байтом записана "1", это означает, что DLL завершила запись и можно читать
                if (PARAMS.IndexOf("1") == 0)
                {
                    //Удаляет "1" из начала
                    PARAMS = PARAMS.Substring(1);
                    // Получает массив пар типа "name=value"
                    string[] Arr = PARAMS.Split(';');
                    // Очищает словарь от старых значений
                    DictionaryParam.Clear();
                    // Заполняет в цикле словарь значениями
                    for (int i = 0; i < Arr.Length; i++)
                    {
                        // Разделяет имя и значение пары в массиве
                        string[] KeyValue = Arr[i].Split('=');
                        // Добавляет пару в словарь
                        DictionaryParam.Add(KeyValue[0], KeyValue[1]);
                    }
 
                    // Потокобезопасно выводит содержимое словаря в текстовое поле
                    BeginInvoke(new TB(AddText), DictionaryParam);
 
                    // Встает в начало потока для записи
                    SW_Memory.BaseStream.Seek(0, SeekOrigin.Begin);
                    // Очищает память, заполняя "нулевыми байтами"
                    for (int i = 0; i < 3000; i++) SW_Memory.Write("\0");
                    // Очищает все буферы для SW_Memory и вызывает запись всех данных буфера в основной поток
                    SW_Memory.Flush();
                    // Встает в начало потока для записи
                    SW_Memory.BaseStream.Seek(0, SeekOrigin.Begin);
                    // Записывает в первый байт "2", сообщая тем самым, что можно записывать в память
                    SW_Memory.Write("2");
                    // Очищает все буферы для SW_Memory и вызывает запись всех данных буфера в основной поток
                    SW_Memory.Flush();
                }
 
                //Пауза против зависания
                Thread.Sleep(1);
            }
 
            // По завершению цикла, закрывает все потоки и освобождает именованную память
            SR_Memory.Close();
            SW_Memory.Close();
            Memory.Dispose();
        }
 
        private void Form1_FormClosing(object sender, FormClosingEventArgs e)
        {
            Run = false;// Выключает флаг
        }
 
        private void Form1_Shown(object sender, EventArgs e)
        {
            // Запускает функцию чтения и вывода сообщений в отдельном потоке, чтобы форма отвечала на действия пользователя
            new Thread(() =>
            {
                GetPARAMS();
            }).Start();
        }
    }
}

Если у Вас появились какие-то вопросы, задайте их в комментариях под статьей !!!