Quikos (Автор тем)

Версия Квика 9.7.1.10

function my_callback_CreateDataSource(my_table_data_, code_class_, code_paper_)

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  



----------------------------------------------------------------------Вызов  CreateDataSource_1------------------------------------------------------------------------------

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

-----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------



----------------------------------------------------------------------Вызов  CreateDataSource_2------------------------------------------------------------------------------
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) end)
my_table2:SetUpdateCallback(function(idx)my_callback_CreateDataSource(my_table_data2, code_class2, code_paper2) end)

function my_callback_CreateDataSource(my_table_data_, code_class_, code_paper_)

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  



----------------------------------------------------------------------Вызов  CreateDataSource_1------------------------------------------------------------------------------

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

-----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------



----------------------------------------------------------------------Вызов  CreateDataSource_2------------------------------------------------------------------------------
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) end)
my_table2:SetUpdateCallback(function(idx)my_callback_CreateDataSource(my_table_data2, code_class2, code_paper2) end)

function my_callback_CreateDataSource(my_table_data_, code_class_, code_paper_)

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  



----------------------------------------------------------------------Вызов  CreateDataSource_1------------------------------------------------------------------------------

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

-----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------



----------------------------------------------------------------------Вызов  CreateDataSource_2------------------------------------------------------------------------------
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) end)
my_table2:SetUpdateCallback(function(idx)my_callback_CreateDataSource(my_table_data2, code_class2, code_paper2) end)

function my_callback_CreateDataSource(my_table_data_, code_class_, code_paper_)

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  



----------------------------------------------------------------------Вызов  CreateDataSource_1------------------------------------------------------------------------------

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

-----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------



----------------------------------------------------------------------Вызов  CreateDataSource_2------------------------------------------------------------------------------
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) end)
my_table2:SetUpdateCallback(function(idx)my_callback_CreateDataSource(my_table_data2, code_class2, code_paper2) end)

function OnTransReply(Table_)

message(tostring(Table_.trans_id) .. ":" .. tostring(Table_.status) .. ":" .. tostring(Table_.result_msg) .. ":" .. tostring(Table_.client_code))

end



function main()



transaction_table = 
{
    CLIENT_CODE="XXXXX",
    TYPE="M",
    TRANS_ID="7",
    CLASSCODE="TQBR",
    SECCODE="GAZP",       
    ACTION="NEW_ORDER",
    OPERATION="B",
    PRICE="0",
    QUANTITY="1"
}




local result = sendTransaction(transaction)

//Проверяю на ошибку:
if result ~= nil then

    if res ~= "" then        
      message("Error:"..result )
    end

end




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

end

function OnTransReply(Table_)

message(tostring(Table_.trans_id) .. ":" .. tostring(Table_.status) .. ":" .. tostring(Table_.result_msg) .. ":" .. tostring(Table_.client_code))

end



function main()



transaction_table = 
{
    CLIENT_CODE="XXXXX",
    TYPE="M",
    TRANS_ID="7",
    CLASSCODE="TQBR",
    SECCODE="GAZP",       
    ACTION="NEW_ORDER",
    OPERATION="B",
    PRICE="0",
    QUANTITY="1"
}




local result = sendTransaction(transaction)

//Проверяю на ошибку:
if result ~= nil then

    if res ~= "" then        
      message("Error:"..result )
    end

end




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

end

static int global_callback__OnQuote(lua_State* L)
{
    std::cout << "global_callback__OnQuote" << std::endl;

    return 0;
}



int main()
{

    lua_pushcfunction(L, global_callback__OnQuote);       //Помещаю Си-шную функцию в стек.
    lua_setglobal(L, "OnQuote");                          //Присваиваю ей глобальное имя.
}

       //index - номер таблицы в стеке Lua

    lua_getfield(L, index, "Size");            //"Извлекаем" из "таблицы" функцию отвечающую за возвращения размера этой таблицы.
    lua_pushvalue(L, index);                //Помещаем копию обьекта таблицы на вершину стека.

    int status_lua_pcall = lua_pcall(L, 1, 1, 0);      //Вызываем функцию Size 

    lua_getfield(L, index, "bid_count");            //"Извлекаем" из "таблицы" функцию отвечающую за возвращения размера этой таблицы.
    lua_pushvalue(L, index);                //Помещаем копию обьекта таблицы на вершину стека.

    int status_lua_pcall = lua_pcall(L, 1, 1, 0);      //Вызываем функцию Size 

global_cntr=0;



function my_callback_CreateDataSource_(my_table_data_candle_, code_class_, code_paper_, interval_, idx)


message(code_paper_ ..":" .. interval_string_..":" ..tostring(my_table_data_history_candle_:C(idx))  )




if global_cntr == 13 then

my_table_data_history_candle_:Close()     --отписываемся
message("CLOSE")

end
global_cntr=global_cntr+1


end








function main()

message("start")

local code_class_1= "TQBR"          
local code_paper_1= "SBER"
local intervakla_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_(my_table_1, code_class_1, code_paper_1, intervakla_1, idx) end)









while not stopped do 

sleep(1)

if global_cntr == 14 then

message("START_2")

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



local my_table_2, error_desc_2 = CreateDataSource(code_class_1, code_paper_1, intervakla_1)  


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

status = my_table_2:SetUpdateCallback(function(idx)my_callback_CreateDataSource_(my_table_2, code_class_1, code_paper_1, intervakla_1, idx) end)

message(tostring(status))

global_cntr = global_cntr + 1

message("END")
break

end


end








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



end -- end main()

function my_callback_CreateDataSource_HISTORY_1(my_table_data_history_candle_, code_class_, code_paper_, interval_, interval_string_)

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

end




function my_callback_CreateDataSource_HISTORY_2(my_table_data_history_candle_, code_class_, code_paper_, interval_, interval_string_)

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

end








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


function main()


local code_class_1= "TQBR"          
local code_paper_1= "GAZP"           
local intervakla_1= INTERVAL_MN1
local intervakla_string_1 = "INTERVAL_MN1"



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
--------------------------------------------------------------

my_table_1:SetUpdateCallback(function(idx)my_callback_CreateDataSource_HISTORY_1(my_table_1, code_class_1, code_paper_1, intervakla_1, intervakla_string_1) end)








local code_class_2= "TQBR"          
local code_paper_2= "SBER"           
local intervakla_2= INTERVAL_W1
local intervakla_string_2 = "INTERVAL_W1"


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

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


my_table_2:SetUpdateCallback(function(idx)my_callback_CreateDataSource_HISTORY_1(my_table_2, code_class_2, code_paper_2, intervakla_2, intervakla_string_2) end)





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



end -- end main()

int my_callback(lua_State* L)
{
//Доп.пераметры извелкаем через lua_upvalueindex.

std::cout<<"interval_int:" <<interval_int <<std::endl;
}



void my_call_CreateDataSource(lua_State* L_, name_class_insrument, name_code_paper, interval_int)
{
lua_getglobal(L, "CreateDataSource");          

lua_pushstring(L,_ name_class_insrument);    
lua_pushstring(L_, name_code_paper);        
lua_pushnumber(L_, interval_int);                

int status_lua_pcall = lua_pcall(L, 3, 2, 0); 



my_call_SetUpdateCallback(L_, my_callback, name_class_insrument, name_code_paper, interval_int);    //Вызываем SetUpdateCallback и передаем в нее функцкиб обратного вызова и доп.параметры.
}


int ruc_cpp(lua_State* L_main)
{



lua_State* L_1 = lua_newthread(L_main);       //Создаю "поток" связанный с главным стеком.
lua_State* L_2 = lua_newthread(L_main);


my_call_CreateDataSource(L_1 , "TQBR", "GAZP", "INTERVAL_H2");
my_call_CreateDataSource(L_2 , "TQBR", "GAZP", "INTERVAL_H4");






    //-----------------------------------------------
    for (int i = 0; i < 1000000; i++)
    {
        std::this_thread::sleep_for(std::chrono::milliseconds(100)); 
    }
    //-----------------------------------------------
}

function main()

local code_class_= "TQBR"          
local code_paper_= "ZVEZ"           
local interval_= INTERVAL_W1

my_table_, error_desc = CreateDataSource(code_class_, code_paper_, interval_)  

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

my_table_:SetUpdateCallback(function(idx)my_callback_CreateDataSource_HISTORY(my_table_, code_class_, code_paper_, intervakla_) end)




code_class_= "TQBR"          
code_paper_= "ZVEZ"           
interval_= INTERVAL_M15   


local my_table_1, error_desc_1 = CreateDataSource(code_class_, code_paper_, interval_) 

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

my_table_1:SetUpdateCallback(function(idx)my_callback_CreateDataSource_HISTORY(my_table_1, code_class_, code_paper_, intervakla_) end)



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


end -- end main()

function main()

Quik_Lua_connector= require("Quik_Lua_connector")    

Quik_Lua_connector.run_Cpp() 

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

static int run_Cpp(lua_State* Lua_main) 
{

lua_State* L = lua_newthread(L_);

std::cout << "SIZE_MAIN_STACK:" << lua_gettop(L_) << std::endl;
lua_close(L);            //Квик тупо ЗАКРЫВАЕТСЯ
std::cout << "SIZE_MAIN_STACK:" << lua_gettop(L_) << std::endl;
}

function main()

Quik_Lua_connector= require("Quil_Lua_connector_work_TEST")    

Quik_Lua_connector.TestFunc_run_WinConsole_for_dll()

Quik_Lua_connector.run_Cpp() 

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

static int run_Cpp(lua_State* Lua_stek)
{

    lua_State* L = luaL_newstate();

    if (L == NULL)
    {
        std::cout << "L == NULL" << std::endl;    //Ошибки нет.
    }

lua_getglobal(L, "CreateDataSource");           

lua_pushstring(L, "TQBR");    
lua_pushstring(L, "GAZP");         
lua_pushnumber(L, "INTERVAL_MN1");                

std::cout << "Size_stack:" << lua_gettop(L) << std::endl;   //Размер 4 - как и должно быть

int status_lua_pcall = lua_pcall(L, 3, 2, 0);   
    
if(status_lua_pcall  != 0)
{
std::cout<<"Error"<<std::endl;   //attempt to call a nil value
}

}

function my_callback_(index)

--index - индекс свечи в таблице my_table, НО сама таблица по умолчанию не приходит, что просто дикость.

end


local my_table = CreateDataSource(code_class, code_paper_ interval)

my_table :SetUpdateCallback(my_callback_)

function my_callback_(my_table_, param1, param2, index)

--Теперь тут доступны переданные дополнительные параметры...my_table_, param1, param2 - помимо стандартного index

end


local my_table = CreateDataSource(code_class, code_paper_ interval)

parametr_1 = "1"
parametr_2 = "2"

my_table :SetUpdateCallback(function(idx)my_callback_(my_table,parametr_1, parametr_2, idx) end)

    lua_getfield(L, index, "SetUpdateCallback");                    //"Извлекаем" из "таблицы" функцию SetUpdateCallback.

    lua_pushvalue(L, index);                                        //Помещаем копию обьекта таблицы на вершину стека.

    lua_pushcfunction(L, my_callback_);                       //Помещаем имя Сишой callback функции таблицы на вершину стека.

    int status_lua_pcall = lua_pcall(L, 2, 0, 0);              //Реализую вызов метода SetUpdateCallback

static int my_callback_(lua_State* L)
{
    std::cout << "my_callback_:" << lua_gettop(L) << std::endl;

    status = lua_isstring(L, 1);
    if (status == 1)
    {
          std::cout<< "lua_isstring:"<< lua_tostring(L,1) << std::endl ;
    }
    return 0;
}

1
2
3
4
5
6
...
итд

local my_table_= CreateDataSource(code_class_, code_paper_, interval)

my_table_:SetUpdateCallback(function(idx)my_callback_(my_table_, code_class_, code_paper_, interval) end)

function my_callback_(my_table_, code_class, code_paper, interval)
...код

end

//В L - на вершине стека уже находится таблица возвращенная CreateDataSource.

lua_getfield(L, -1, "SetUpdateCallback");          //"Извлекаем" на вершину стека из "таблицы" функцию SetUpdateCallback.

function main()

Quik_Lua_connector = require("Quik_Lua_connector")

Quik_Lua_connector.run_CPP() 


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


end

#include "my_func.h"

extern "C"
{
#include "lauxlib.h"
#include "lua.h"
}
#pragma comment(lib,"C:\\Users\\lua54.lib")


int forLua_run_CPP(lua_State* L)
{

int status - my_func(L);

return 0;
}

#pragma once

extern "C"
{
#include "lauxlib.h"
#include "lua.h"
}


int my_func(lua_State* L)
{
int my_int =5;

return my_int ;
}

error loading module 'Quik_Lua_connector' from file 'C:\SBERBANK\QUIK_x64_KA\Quik_Lua_connector.dll':
Не найдена указанная процедура.

function my_func_Lua()

message("my_func_Lua")

end



function main()

Quik_Lua_connector = require("Quik_Lua_connector_TEST")  

Quik_Lua_connector_TEST() 



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

end

static int Quik_Lua_connector_TEST(lua_State* L)
{

    std::cout << "Start" << std::endl;

    lua_getglobal(L, "my_func_Lua");  // получаю функцию


    //Проверяю, что на вершине стека находится теперь именно функция:    int status_lua_is_function = lua_isfunction(L, -1); 
    std::cout << "status_lua_is_function:" << status_lua_is_function << std::endl;        //return 1  - значит Lua функция.




     int status = lua_pcall(L, 0, 0, 0);    //Вызываю функцию без аргументов и бещ возвратного значения.

    if (status != 0)
    {
        std::cout << "error:" << lua_tostring(L, -1) << std::endl; //ОШИБКА: error in error handling
    }

}

local my_table_ = CreateDataSource(code_class_, code_paper_, interval)

local size_table = my_table_:Size()       //Гарантировано не равно нулю.

Quik_Lua_connector.get_data_frim_Lua(size_table)

static int forLua_get_data_frim_Lua(lua_State* L)
{
        std::cout << "Size:" << lua_tonumber(L, -1) << std::endl;      //Снимаю данные с вершины стека. Все выводится на косноль нормально.
}

Quik_Lua_connector.get_data_frim_Lua(size_table)

static int forLua_get_data_frim_Lua(lua_State* L) 
{   

 lua_pushnumber(L, 1);                      //Добавляю в стек номер индекса переданной таблицы к элементу которой я хочу получить доступ. lua_gettable(L, 1);                        //Помещает на вершину стека переданной таблицы - расположенная по 1 элементу в стеке, и индексу в самой таблице - по номеру элемента с вершины стека, то есть с номера "1", которая я добавил строчкой выше.
 lua_getfield(L, -1, "Size");               //Теперь беру значение из стека с вершины стека, то есть то значние, которое я извлек из таблицы по индексу "1" (грубо говоря первая свеча) и извлекаю из него поле с заданным именем "Size" и значение этого поля помещается на вершину стека.
 std::cout << "Size:" << lua_tonumber(L, -1) << std::endl;      //Беру значение с вершины стека и получаю дулю с маслом или ошибку "unrecognized exception" в самом квике.
}