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

   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 ( "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
}

}  

   for  x =  1 , 2 , 0.1   do 
  message ( "x="  .. x)
 end 
  

   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 )  

   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 .