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

function my_callback_CreateDataSource(my_table_data_, code_class_, code_paper_, interval_, cntr)

message(code_paper_)

end






-----------------------------------------------------------------------------------------------------------int main:-----------------------------------------------------------------------------------------------------


function main()


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 my_table1, error_desc1 = CreateDataSource(code_class1, code_paper1, interval1)  --Вызываем собсвенно CreateDataSource

------------------------Проверка на ошибки:-------------------
if error_desc1 ~= nil then 
message("Error")
end
--------------------------------------------------------------

message(tostring(my_table1.Size()))
if my_table1.Size() == 0 then
message("data requested from the server")
end









local my_table2, error_desc2 = CreateDataSource(code_class2, code_paper2, interval2)  --Вызываем собсвенно CreateDataSource

------------------------Проверка на ошибки:-------------------
if error_desc2 ~= nil then 
message("Error")
end
--------------------------------------------------------------

message(tostring(my_table2.Size()))
if my_table2.Size() == 0 then
message("data requested from the server")
end






my_table1:SetUpdateCallback(function(idx)my_callback_CreateDataSource(my_table_data1, code_class1, code_paper1, interval1) end)
my_table2:SetUpdateCallback(function(idx)my_callback_CreateDataSource(my_table_data2, code_class2, code_paper2, interval2) end)





-------------------------
while not stopped do 
sleep(1)
end 
-------------------------



end -- end main()

global_cntr=0;

------------------------------------------------------------------------------------------------my_callback_CreateDataSource_SBER:Начало-----------------------------------------------------------------------------------------------

function my_callback_CreateDataSource_SBER(my_table_data_history_candle_, code_class_, code_paper_, interval_, interval_string_, idx)

message("SIZE_TABLE:" ..tostring(my_table_data_history_candle_:Size()) .. "\n" .. ":" ..  code_paper_ ..":" .. interval_string_..":" ..tostring(my_table_data_history_candle_:C(idx))  )



if global_cntr == 13 then       -- на 13 вызов callback`а Сбера отписываемся от колбека Сбера
my_table_data_history_candle_:Close()     --отписываемся от callback`а SBER.
message("CLOSE SBER CALLBACK")
end
global_cntr=global_cntr+1


end
---------------------------------------------------------------------------------------------my_callback_CreateDataSource_SBER:Конец-----------------------------------------------------------------------------------------------




------------------------------------------------------------------------------------------------my_callback_CreateDataSource_GAZP:Начало-----------------------------------------------------------------------------------------------
function my_callback_CreateDataSource_GAZP(my_table_data_history_candle_, code_class_, code_paper_, interval_, interval_string_, idx)


message("my_callback_CreateDataSource_HISTORY_2 - НЕ ВЫЗЫВАЕТСЯ")


end
------------------------------------------------------------------------------------------------my_callback_CreateDataSource_GAZP:Конец-----------------------------------------------------------------------------------------------









-----------------------------------------------------------------------------------------------------------int main:-----------------------------------------------------------------------------------------------------

function main()

message("start")

local code_class_1= "TQBR"          
local code_paper_1= "SBER"
local intervakla_1= INTERVAL_M1
local intervakla_string_1 = "INTERVAL_M1"


local my_table_1, error_desc_1 = CreateDataSource(code_class_1, code_paper_1, intervakla_1)  


------------------------Проверка на ошибки:-------------------
if error_desc_1 ~= nil then 
message("1:" .. error_desc_1)
end
--------------------------------------------------------------


status = my_table_1:SetUpdateCallback(function(idx)my_callback_CreateDataSource_SBER(my_table_1, code_class_1, code_paper_1, intervakla_1, intervakla_string_1, idx) end)  --Подписываемся на колбек Сбера.




--Ждем пока не вызовется 13-ый по счета вызов колбек Сбера в котором произойдет отписка от колбека. После чего - подписываемся на SetUpdateCallback для Газпрома:
while not stopped do 

sleep(1)

if global_cntr == 14 then

message("START_2")

code_class_2= "TQBR"          
code_paper_2= "GAZP"
intervakla_2= INTERVAL_M5
intervakla_string_2 = "INTERVAL_M5"



my_table_2, error_desc_2 = CreateDataSource(code_class_2, code_paper_2, intervakla_2)  


------------------------Проверка на ошибки:-------------------
if error_desc_2 ~= nil then 
message("1:" .. error_desc_2)
end
--------------------------------------------------------------------------
--Ошибок нет:


message("START_SetUpdateCallback_2")

status1 = my_table_2:SetUpdateCallback(function(idx)my_callback_CreateDataSource_GAZP(my_table_2, code_class_2, code_paper_2, intervakla_2, intervakla_string_2, idx) end)

message(tostring(status1))  --Статус 0: ошибок нет, НО my_callback_CreateDataSource_GAZP - НИКОГДА НЕ ВЫЗОВЕТСЯ.

global_cntr = global_cntr + 1

message("END")
break

end


end 







-------------------------
while not stopped do 
sleep(1)
end 
-------------------------

message("NOT END")

end -- end main()