QUIK -> DDE — Вставил задержку sleep() - терминал вылетает. Почему?!

Re: Вставил задержку sleep() - терминал вылетает. Почему?!

null@example.com (ascerdfg) — Tue, 18 Aug 2015 19:33:17 +0000

sam063rus пишет:

ascerdfg пишет:
а может просто не использовать p_file:close() ?
а может:
вообще не открывать файл и не писать туда?

Зачем же так категорично? А вот закрывать файл не обязательно. После закрытия терминала с ошибкой, данные таки в файле появляются.

Re: Вставил задержку sleep() - терминал вылетает. Почему?!

null@example.com (kalikazandr) — Mon, 06 Jul 2015 10:54:02 +0000

ascerdfg пишет:

----
function OnStop(stop_flag) 
    is_run=false
    -- p_file:close()
end
а если раскоментить строку -- p_file:close(), то квик ругается. Почему?

сделайте так:

function OnStop(stop_flag) 
    is_run=false
    if p_file then
       p_file:close()
    end
end

Re: Вставил задержку sleep() - терминал вылетает. Почему?!

null@example.com (sam063rus) — Fri, 26 Jun 2015 19:20:09 +0000

Re: Вставил задержку sleep() - терминал вылетает. Почему?!

null@example.com (ascerdfg) — Fri, 26 Jun 2015 19:11:10 +0000

а может просто не использовать p_file:close() ?

Re: Вставил задержку sleep() - терминал вылетает. Почему?!

null@example.com (sam063rus) — Fri, 26 Jun 2015 05:32:09 +0000

Re: Вставил задержку sleep() - терминал вылетает. Почему?!

null@example.com (ascerdfg) — Fri, 26 Jun 2015 04:03:49 +0000

p_file=io.open("D:\\Program Files\\Lua\\1\\log.txt", "w") -- Тут поставите нужный вам путь

is_run=true

function main()
    while is_run do
        sleep(1100)
        p_file:write(os.date().." заявка ".."\n")
    end
end


function OnStop(stop_flag) 
    is_run=false
    -- p_file:close()
end

а если раскоментить строку -- p_file:close(), то квик ругается. Почему?

Re: Вставил задержку sleep() - терминал вылетает. Почему?!

null@example.com (ascerdfg) — Fri, 06 Mar 2015 12:42:13 +0000

Похоже что пауза работает только в "майн" и это единственное решение.

Re: Вставил задержку sleep() - терминал вылетает. Почему?!

null@example.com (swerg) — Thu, 05 Mar 2015 18:50:32 +0000

ascerdfg пишет:

А если я хочу получать сообщения с задержкой 8 секунд

Можно поместить цикл внутри main() и там читать таблицу с именем "all_trades" через функции getItem, getOrderByNumber, getNumberOf и SearchItems
При чтении находить сделки со временем отстающим на 8 секунд - и их выводить.

Никакого OnAllTrades() тогда и не нужно.

Только не понятно зачем такое может понадобиться?

Re: Вставил задержку sleep() - терминал вылетает. Почему?!

null@example.com (ascerdfg) — Thu, 05 Mar 2015 17:57:59 +0000

А просто цикл, не в коллбэке можно организовать? А в нём уже всю программу разместить...

Re: Вставил задержку sleep() - терминал вылетает. Почему?!

null@example.com (sam063rus) — Thu, 05 Mar 2015 17:13:32 +0000

Re: Вставил задержку sleep() - терминал вылетает. Почему?!

null@example.com (ascerdfg) — Thu, 05 Mar 2015 16:40:24 +0000

Спасибо, пришлось пихать в цикл main()

-- Вывод в сообщение цены последней сделки, если она Si-3.15

p_seccode="SiH5" --Код инструмента Si-3.15

is_run=true

function trad(price_s)

t = {

            ["CLASSCODE"]="SPBFUT",

            ["SECCODE"]="SiH5",

            ["ACTION"]="NEW_ORDER",

            ["ACCOUNT"]="41100JB",

            ["CLIENT_CODE"]="65399",

            ["TYPE"]="L",
            
            ["OPERATION"]="B",

            ["QUANTITY"]="1",

            ["PRICE"]=tostring(price_s),
            
            ["TRANS_ID"]="1",

      }
      
      res=sendTransaction(t)

end

function delet_order()

t = {

            ["CLASSCODE"]="SPBFUT",

            ["SECCODE"]="SiH5",

            ["ACTION"]="KILL_ALL_FUTURES_ORDERS",
            
            ["ACCOUNT"]="41100JB",

            ["CLIENT_CODE"]="65399",

            ["BASE_CONTRACT"]="Si",

            ["TRANS_ID"]="1",

      }

      res=sendTransaction(t)

end


function main()

      while is_run do

            sleep(1000)

            trad(price_s) --ставим заявку

            sleep(8000)
            
            delet_order() -- удаляем все заявки

      end

end

function OnStop(stop_flag)

      is_run=false

end


function OnAllTrade(alltrade) -- табличные данные 

    if tostring(alltrade["sec_code"])==p_seccode then -- tostring - переводим в строковые данные 

        message(tostring(alltrade["price"].." code="..alltrade["sec_code"]))
    end

end

А если я хочу получать сообщения с задержкой 8 секунд

...
function main()

   while is_run do

      sleep(8000)
            
      function OnAllTrade(alltrade) -- табличные данные 

         if tostring(alltrade["sec_code"])==p_seccode then 

            message(tostring(alltrade["price"]))
    
          end

      end

   end

end

function OnStop(stop_flag)

      is_run=false

end

Скрипт ничего не выводит. Как правильно написать?

Re: Вставил задержку sleep() - терминал вылетает. Почему?!

null@example.com (sam063rus) — Thu, 05 Mar 2015 13:02:40 +0000

Re: Вставил задержку sleep() - терминал вылетает. Почему?!

null@example.com (sam063rus) — Thu, 05 Mar 2015 12:41:21 +0000

Re: Вставил задержку sleep() - терминал вылетает. Почему?!

null@example.com (swerg) — Thu, 05 Mar 2015 12:00:24 +0000

sam063rus ловко догадался, без иронии!

В самом деле - наверняка у терминала просто достаточно быстро кончается память, ведь всех сделок поступает очень много - а терминал их не может обрабатывать из-за Sleep.

Re: Вставил задержку sleep() - терминал вылетает. Почему?!

null@example.com (sam063rus) — Thu, 05 Mar 2015 08:00:24 +0000