nikolz (Все сообщения пользователя)

--здесь загрузите вашу dll
function OnQuote (class, sec)
----  здесь вызов вашей функции из вашей dll
end

local code_class1 = "TQBR"
local code_paper1 = "GAZP"
local interval1   = INTERVAL_TICK
local code_class2 = "TQBR"
local code_paper2 = "SBER"
local interval2   = INTERVAL_TICK
------------------------
local function my_cb_CDS(idx,tabl)
message(tostring(tabl.sec)..","..tostring(idx),1)
Sleep(100);
end
-----------------------------------------------------------------------------------------------------------int main:-----------------------------------------------------------------------------------------------------
function main()
   while not stopped do
   if tab1==nil then tab1 = CreateDataSource(code_class1, code_paper1, interval1);
      if tab1 then
       tab1.clas=code_class1; tab1.sec=code_paper1; tab1.int=interval1;
         tab1:SetUpdateCallback(function(idx) my_cb_CDS(idx,tab1) end)
      end
   end
   if  tab2==nil then tab2= CreateDataSource(code_class2, code_paper2, interval2);
      if  tab2 then
         tab2.clas=code_class2; tab2.sec=code_paper2; tab2.int=interval2;
         tab2:SetUpdateCallback( function(idx) my_cb_CDS(idx, tab2) end)
      end
   end
-------------------------
--   message(tostring(my_table1:Size()),1)
   sleep(1000)
   end
-------------------------
end -- end main()
function OnInit(script_path)
end

local code_class1 = "TQBR"
local code_paper1 = "GAZP"
local interval1   = INTERVAL_TICK
local code_class2 = "TQBR"
local code_paper2 = "SBER"
local interval2   = INTERVAL_TICK
------------------------
local function my_cb_CDS(idx,tabl)
message(tostring(tabl.sec)..","..tostring(idx),1)
Sleep(100);
end
--------int main:---------------
function main()
   if tab1==nil then tab1 = CreateDataSource(code_class1, code_paper1, interval1);
      if tab1 then
       tab1.clas=code_class1; tab1.sec=code_paper1; tab1.int=interval1;
         tab1:SetUpdateCallback(function(idx) my_cb_CDS(idx,tab1) end)
      end
   end
   if  tab2==nil then tab2= CreateDataSource(code_class2, code_paper2, interval2);
      if  tab2 then
         tab2.clas=code_class2; tab2.sec=code_paper2; tab2.int=interval2;
         tab2:SetUpdateCallback( function(idx) my_cb_CDS(idx, tab2) end)
      end
   end
-------------------------
   while not stopped do
--   message(tostring(my_table1:Size()),1)
   sleep(1000)
   end
-------------------------
end -- end main()
function OnInit(script_path)
end