в функции gettemppath библиотеки w32 буфер должен резервироваться как

char tfn[MAX_PATH+1];

А про взятие за основу новой версии - какие будут мнения?

Подскажите плз, использую библиотеку qvcl-0.5.0-rev.2.zip, скачанную с вашего сайта. После первого запуска приложение стартует нормально, а вот если его остановить и попробовать запустить еще раз то в 99% вылетает ошибка и квик умирает.
Может кто сталкивался как можно забороть?

шаблон у меня такой:

local vcl = require "qvcl"
function OnStop()
   vcl = nil
   myForm:Release()
end

квик 7.5.0.72

Спасибо.

Буду в конце-концов придумывать что с этим делать.

Использую QVCLua

Вот эта строчка (на самом деле там много строк еще) если в основном скрипте, то всё ок, если в дочернем, то русский не работает:

myFormPor        =  VCL.Form({Name = "myFormPor", Height = 900, Width = 800, Caption = "Портфель клиента", Position = "poScreenCenter"  } )

[url=https://quik2dde.ru/viewtopic.php?id=112]Обсуждение - в отдельной теме[/url]. Здесь только выкладывание релизов и оформленные инструкции.

Описание будет позже, извините.

Отличия от стандартной VCLua:

• поддержка русского языка из QUIK

• возможность задавать цвет ячейки компонента StringGrid

• не требует дополнительного файла lua.5.1.dll, работает напрямую с qlua.dll (актуально только для QUIK 6.x, 7.x, в первоначальных вариантах торгового терминала этих версий указанная dll отсутствовала)

Скачать:

• архив с готовым бинарным файлом библиотеки: [url=http://www.quik2dde.ru/static-img/qvcl/qvcl.zip]qvcl.zip [/url]

(варианта сборки для QUIK 8.0...8.4 (x64 / Lua5.1) нет и не планируется)

Исходники:

• GinHub: [url=https://github.com/swerg/QVCLua-0.5.0]https://github.com/swerg/QVCLua-0.5.0[/url]

Установка:

Некоторые возможные ошибки при запуске

1. multiple Lua VMs detected. Expected 5.3 instead of 5.4 (для QUIK 8.11) - скопирована библиотека qvcl.dll для варианта Lua 5.3, но скрипт Lua запущен в интерпретаторе Lua 5.4

2. multiple Lua VMs detected. Expected 5.4 instead of 5.3 (для QUIK 8.11) - скопирована библиотека qvcl.dll для варианта Lua 5.4, но скрипт Lua запущен в интерпретаторе Lua 5.3

Для визуализации используется [url=https://quik2dde.ru/viewtopic.php?id=111]библиотека QVCLua, которую можно взять в отдельной теме[/url].

Про просьбе участника форума добавлена возможность задавать угол поворота для фигур.
Новые свойства и методы для Shape:

• Angle - задаёт угол поворота фигуры в градусах

• RotateMinSize - если равно false, то фигура изменяется в размере так, чтобы занять аксимально доступную область, заданную размерами, если равно true - то фигура имеет постоянный размер такой, чтобы при любом угле поворота гарантированно умещаться в заданные её размеры

• SendToBack() - переместить фигуру на задний план

• BringToFront() - переместить фигуру на передний план

VCL = require "qvcl"

function OnFormClose(Sender, CloseAction)
  is_run = false
  mainForm:Release()
end

function OnTrackChange(Sender)
  graphRect.Angle = trackBar.Position
  graphElipse.Angle = trackBar.Position
  graphTriangle.Angle = trackBar.Position
  graphDiamond.Angle = trackBar.Position
  labelAngle.Caption = "Угол поворота: " .. tostring(trackBar.Position)
end

function OnChBoxChange(Sender)
  graphRect.RotateMinSize = chBox.Checked
  graphElipse.RotateMinSize = chBox.Checked
  graphTriangle.RotateMinSize = chBox.Checked
  graphDiamond.RotateMinSize = chBox.Checked
end

function SetRectFrom(elemTo, elemFrom)
  elemTo.top = elemFrom.top
  elemTo.left = elemFrom.left
  elemTo.height = elemFrom.height
  elemTo.width = elemFrom.width
  elemTo:SendToBack();
end


mainForm = VCL.Form("mainForm")
mainForm._ = { position="podesktopcenter", height=330, width=370, Caption="Shape test", OnClose = OnFormClose }

-- квадрат
graphRect = VCL.Shape(mainForm)
graphRect._ =
  {
     top=10, left=15, height=100, width=150,  -- положение и размеры
     Shape="stRectangle",                     -- тип: прямоугольник
     Pen={ Color=0x3333DD, Style="psDot" },   -- цвет рамки, тип линии "пунктир"
     Brush={ Color=0xDD99BB }                 -- цвет заливки
  }

-- элипс
graphElipse = VCL.Shape(mainForm)
graphElipse._ =
  {
     top=10, left=205, height=100, width=150,  -- положение и размеры
     Shape="stEllipse",                       -- тип: элипс
     Pen={ Color=0xDD9933 },                  -- цвет рамки, сплошная линия
     Brush={ Color=0x666666, Style="bsFDiagonal" }  -- цвет заливки диагональными линиями
  }

-- треугольник
graphTriangle = VCL.Shape(mainForm)
graphTriangle._ =
  {
     top=135, left=15, height=100, width=150,
     Shape="stTriangle",                      -- тип: треугольник
     Pen={ Color=0x00CC00, Width=5 },         -- зеленая рамка толщиной 5 писелей
     Brush={ Style="bsClear" }                -- без заливки
  }

-- ромб
graphDiamond = VCL.Shape(mainForm)
graphDiamond._ =
  {
     top=135, left=205, height=100, width=150,
     Shape="stDiamond",                        -- тип: ромб
     Pen={ Style="psClear" },                  -- без рамки
     Brush={ Color=0x00EEEE, Style="bsSolid" } -- сплошная заливка
  }

-- "рамки" вокруг элементов
frame1 = VCL.Shape(mainForm, {
     Shape="stRectangle", Pen={ Color=0xAAAAAA, Style="psDashDot" }, Brush={ Style="bsClear" }
 })
frame2 = VCL.Shape(mainForm, {
     Shape="stRectangle", Pen={ Color=0xAAAAAA, Style="psDashDot" }, Brush={ Style="bsClear" }
 })
frame3 = VCL.Shape(mainForm, {
     Shape="stRectangle", Pen={ Color=0xAAAAAA, Style="psDashDot" }, Brush={ Style="bsClear" }
 })
frame4 = VCL.Shape(mainForm, {
     Shape="stRectangle", Pen={ Color=0xAAAAAA, Style="psDashDot" }, Brush={ Style="bsClear" }
 })
SetRectFrom(frame1, graphRect)
SetRectFrom(frame2, graphElipse)
SetRectFrom(frame3, graphTriangle)
SetRectFrom(frame4, graphDiamond)

-- "двигунок" и отображение угла
labelAngle = VCL.Label(mainForm)
labelAngle._ =
 {
     top=250, left=15,
     Caption="0"
 }

trackBar = VCL.TrackBar(mainForm)
trackBar._ =
 {
     top=270, left=0, width=369,
     TickStyle="tsNone",
     OnChange = OnTrackChange,
     Min=0, Max=360
 }

chBox = VCL.CheckBox(mainForm)
chBox._ =
 {
     top=300, left=10, width=230, Caption="Постоянный размер",
     OnChange = OnChBoxChange
 }


mainForm:Show()

OnTrackChange()  -- вывести начальный угол с поясняющим текстом

is_run = true    
function main()
  while is_run do
    sleep(50)
  end
end

function OnStop()
 is_run = false
 mainForm:Free()
end

С точки зрения внутреннего устройства определенная "изюминка" ее состоит в том, что написана она на языке Pacscal, в то время как подавляющее большинство других библиотек написаны на C/C++. Само по себе это довольно здорово, т.к. для компиляции ее можно использовать Delphi или Lazarus, для которых них создано  просто огромное количество визуальных компонент, реализующих различные элементы экранного интерфейса, что при определенном навыке позволяет легко расширять эту библиотеку, добавляя в нее новые необходимые элементы. Впрочем, при использовании этой библиотеки из Lua уже и так доступно весьма большое количество элементов визуального интерфейса (полный перечень их можно найти в файле controls.txt в дистрибутиве).

Домашняя страничка проекта [url]http://vclua.99k.org/[/url]
Последняя выложенная версия значится VCLua v0.3.5.

Стоит отметить довольно бедную справку по данной библиотеке и крайне малое количество примеров.

Установка

Вариант 1. Официальная сборка:
Для установки идем вот по этой ссылке [url]http://files.luaforge.net/releases/vclua/vclua/VCLua-0.3.5[/url] и скачиваем файл со скомпилированной (готовой к использованию) библиотекой и, желательно, файл с документацией (уж какая есть):

• vclua-0.3.5-win32.zip

• vclua-0.3.3-doc.zip

Вариант 2. Исправленная сборка с этого сайта:
Я буду постепенно исправлять и немного дополнять эту библиотеку.
Ссылка для скачивания и история изменений есть в [url=https://quik2dde.ru/viewtopic.php?pid=59#p59]следующем сообщении этой темы[/url]; в виде одного [url=https://quik2dde.ru/static-img/26/vcl.zip]архива vcl.zip[/url].

Далее все общее для любого варианта.

Из папки, куда распаковался архив vclua-0.3.5-win32.zip или vcl.zip, копируем в каталог с терминалом QUIK единственный файл:

• vcl.dll (из папки bin для варианта 1)

Если вы до этого не ставили никакие другие дополнительные Lua-библиотеки, то вам еще необходимо скопировать файл lua5.1.dll из дистрибутива Lua с сайта lua.org, копируем тоже в каталог с QUIK. Подробнее где что брать см. отдельную тему рядом на этом форуме.
В варианте 2 файл lua5.1.dll добавлен в скачиваемый архив.

Вот и все. На этом установка закончена, можно использовать VCLua.

Использование

Создадим файл vcl-test-01.lua в текстовом редакторе и скопируем в него такой текст:

-- НЕ ИСПОЛЬЗУЙТЕ КОД ЭТОГО ПРИМЕРА В QUIK! Он приведен лишь как пример этапов изучения VCLua!
-- Читайте сообщение дальше, дальше есть правильный код
require "vcl"

mainForm = VCL.Form("mainForm")

mainForm.Caption = "My first VCLua application"
mainForm._= { position="podesktopcenter", height=400, width=600 }

mainForm.onclosequery = "onCloseQueryEventHandler" 

function onCloseQueryEventHandler(Sender)
    return true -- the form can be closed
end

mainMenu = VCL.MainMenu(mainForm,"mainMenu")
mainMenu:LoadFromTable({
    {name="mmfile", caption="&File", 
        submenu={
            {caption="Exit", onclick="onMenuExitClick", shortcut="Ctrl+F4"}, 
        }
    }
})

function onMenuExitClick()
    mainForm:Close()
end

mainForm:ShowModal()

function main()
    message("main started", 1)
end

Скрипт этот сделан на основе самого простого примера из поставки VCLua и даже еще несколько упрощен. Добавим файл vcl-test-01.lua в QUIK (Таблицы -> Lua  -> Доступные скрипты) и запустим на выполнение. Появляется простейшее окно в меню, при этом как и с другими фреймворками визуализации для Lua в QUIK видим типичные проблемы: форма конечно создана и присутствует на экране, но скрипт отображается в состоянии "не запущен", да и сообщение "main started" не отображается, что означает, что поток с main() не запущен, т.е. скрипт еще даже не прошел инициализацию. Никакие обработчики событий тоже не работают.

Оно и понятно, ведь мы, как обычно, стоим в строке модального отображения главной формы:

 mainForm:ShowModal() 

И только когда мы форму закрываем - появляется сообщение "main started"!

Как делать правильно

Самой приятной особенностью библиотеки VCLua оказалось то, что она абсолютно отлично поддерживает немодальное отображение форм, в том числе и главной формы! Собственно в этом смысле понятие "главной формы" сразу исчезает, т.к. любые формы (т.е. окна интерфейса) можно отображать в любое время, VCLua от наличия или отсутствия форм работать не перестает! Давайте немного изменим предыдущий пример; основное, что будет изменено – будет вызываться метод Show вместо метода ShowModal. Это позволит нам не останавливаться на инициализации скрипта, а выполнять обычную нормальную работу QLua дальше. Сохраним текст в файле vcl-test-02.lua ([url=https://quik2dde.ru/static-img/26/vcl-test-02.lua]скачать[/url]).

 require "vcl"

mainForm = VCL.Form("mainForm")

mainForm.Caption = "VCLua in QUIK"
mainForm._= { position="podesktopcenter", height=150, width=300}

mainMenu = VCL.MainMenu(mainForm,"mainMenu")
mainMenu:LoadFromTable({
    {name="mmfile", caption="&File", 
        submenu={
            {caption="Exit", onclick="onMenuExitClick", shortcut="Ctrl+F4"}, 
        }
    }
})

label = VCL.Label(mainForm,"Label")
label.Top = 30
label.Left = 50
label.Caption = "VCLua in QUIK"
label.Font.Size = 20

function onMenuExitClick()
    OnStop()
end

mainForm:Show()

is_run = true    

function main()
    while is_run do
        sleep(50)
    end
end

function OnStop()
    is_run = false
    mainForm:Free()
end

Запустив скрипт, увидим такую картинку:

Обратите внимание:

• скрипт корректно находится в состоянии "запущен"

• при нажатии на "Остановить" скрипт завершается и окно закрывается

• при выборе из меню на окне пункта File -> Exit окно закрывается и скрипт переходит в состояние "остановлен"

Остановка скрипта "по требованию" осуществляется здесь:

function OnStop()
    is_run = false
    mainForm:Free()
end

Т.е. в обработчике OnStop завершается цикл в main, для чего присваивается false переменной is_run, и уничтожается форма путем вызова метода Free().

Чтобы закрыть форму через ее меню - просто вызываем OnStop из обработчика пункта меню:

function onMenuExitClick()
    OnStop()
end

Это же то, что и хотелось! Скрипт вполне корректно уживается внутри QUIK, реагируя на события, завершаясь по требованию и т.д.

Чуть сложнее пример

Попробуем добавить обработчик события и отображение информации из этого обработчика.
Например, в событии OnAllTrade будем суммировать объем всех сделок по двум инструментам: LKOH и SBER. Файл будет называться vcl-test-03.lua ([url=https://quik2dde.ru/static-img/26/vcl-test-03.lua]скачать[/url]).

require "vcl"

mainForm = VCL.Form("mainForm")

mainForm.Caption = "VCLua in QUIK"
mainForm._= { position="podesktopcenter", height=150, width=300}

mainMenu = VCL.MainMenu(mainForm,"mainMenu")
mainMenu:LoadFromTable({
    {name="mmfile", caption="&File", 
        submenu={
            {caption="Exit", onclick="onMenuExitClick", shortcut="Ctrl+F4"}, 
        }
    }
})

label = {}
label["SBER"] = VCL.Label(mainForm,"Label1")
label["LKOH"] = VCL.Label(mainForm,"Label2")

label["SBER"].Top = 10
label["SBER"].Left = 10
label["LKOH"].Top = 30
label["LKOH"].Left = 10

cnt = {}
cnt["LKOH"] = 0
cnt["SBER"] = 0

qty = {}
qty["LKOH"] = 0
qty["SBER"] = 0

val = {}
val["LKOH"] = 0
val["SBER"] = 0

function onMenuExitClick()
    OnStop()
end

mainForm:Show()

is_run = true    

function main()
    while is_run do
        sleep(50)
    end
end

function OnStop()
    is_run = false
    mainForm:Free()
end

function OnAllTrade(trade)
    if is_run == false then
        return
    end

    if (trade.seccode == "LKOH") or (trade.seccode == "SBER") then
        cnt[trade.seccode] = cnt[trade.seccode] + 1
        qty[trade.seccode] = qty[trade.seccode] + trade.qty
        val[trade.seccode] = val[trade.seccode] + trade.value
        label[trade.seccode].Caption = trade.seccode .. " (" .. cnt[trade.seccode] .. ") " .. qty[trade.seccode] .. " = " .. val[trade.seccode]
    end
end

Да оно отлично работает! В нашем окне выводится количество сделок (в скобках), суммарное количество лотов в сделках и суммарный объем сделок. Разумеется, все это подсчитывается только с начала работы скрипта.

Небольшие пояснения по коду. Первые три строчки в OnAllTrade нужны для того, чтобы предотвратить падения терминала после остановки скрипта (как известно, в версии 6.4 есть ошибка: обработчики вызываются и после завершения скрипта, приводя к падению терминала)

function OnAllTrade(trade)
    if is_run == false then
        return
    end

Вначале установим библиотеку, чтобы ей можно было пользоваться.
Для этого идем сюда [url]http://sourceforge.net/projects/iup/files/3.7/Tools%20Executables/[/url] и качаем файл iup-3.7_Win32_bin.zip.

Кроме этого есть смысл зайти вот сюда [url]http://sourceforge.net/projects/iup/files/3.7/Docs%20and%20Sources/[/url] и скачать документацию в удобном для вас формате (т.е. файлы, содержащие в названии "Docs").

Установка

Распаковываем архив iup-3.7_Win32_bin.zip.
Переходим в папку, куда распакован архив, там заходим в Lua5.1 и копируем в папку с установленным терминалом QUIK три файла:

• iup.dll

• iuplua51.dll

• lua5.1.dll

Последний файл колпировать только в том случае если вы его еще не устанавливали с другой библиотекой.

Возможно, если у вас не установлен соотв. run-time, еще необходимо будет скопировать из папки Lua5.1 \ Microsoft.VC80.CRT все три файла с расширением dll тоже с папку в QUIK, но это можно сделать позже, только если возникнет необходимость.

Простой скрипт с использованием iupLUA

Создадим в текстовом редакторе новый файл, назовем его, например, iup-test-1.lua. Вначале подключим библиотеку iupLUA. Сделать это можно двумя способами:

package.cpath = package.cpath .. ";" .. getWorkingFolder() .. "\\?51.dll"
require( "iuplua" )

либо так:

assert(package.loadlib(getWorkingFolder() .. "\\iuplua51.dll", "luaopen_iuplua"))()

После чего добавим простой текст создания диалогового окна:

dlg = iup.dialog
{
  iup.vbox
  {
    iup.label {title="Test iupLUA in QUIK"},
    iup.button{title="Button Very Long Text"},
    iup.button{title="short", expand="HORIZONTAL"},
    iup.button{title="Mid Button", expand="HORIZONTAL"}
  }
  ;title="IupDialog", font="Helvetica, Bold 14"
}
dlg:show()

iup.MainLoop()

Очень радует то, что [url=https://quik2dde.ru/viewtopic.php?id=20]в отличии от wxLUA[/url] при повторном вызове скрипта, использующего рассматриваемую библиотеку iupLUA, не возникает каких-либо проблем. Значит уже имеет смысл смотреть/разбираться дальше.

Впрочем, как обычно не все так радужно. При использовании приведенного выше скрипта принципиальные проблемы остаются теми же, что и с другими подобными фреймворками: при запуске скрипт полностью останавливается в iup.MainLoop() и дальше не идет, пока не будет закрыто диалоговое окно. Ну так вот оно сделано, и в общем-то понятно почему. Разумеется, это нарушает нормальную работу терминала QUIK, не отображает статус запущенности скрипта - ну и т.д. Наверняка можно наткнуться на разные проблемы и в работе самого торгового терминала (как там с горячими клавишами при запущенном скрипте? удается ли запустить еще скрипты?).

Чтобы избавиться от указанных проблем с остановкой скрипта в методе iup.MainLoop(), можно весь этот текст перенести в main(), тогда в общем-то видимые проблемы исчезнут полностью вообще все, но лишь до тех пор, пока мы не начнем как-то изменять содержимое элементов интерфейса из обработчиков событий. А проблемы, разумеется, сразу возникнут, т.к. main() выполняется в отдельном потоке; соответственно только кодом, вызываемым из main() можно модифицировать какие-либо элементы на созданных диалогах. Что, конечно, достаточно грустно, потому что хотелось бы отображать какие-то данные в процессе работы скрипта, иначе зачем нужны все эти диалоги и окошки.

Начну с себя.
Как известно, разработчики приводят в документации пример таблички, говорят, что сделана на wxLua.
Я пробовал подключить ее и использовать, но пока это не особо увенчалось успехом.

Например, возьмем простейший пример из поставки wxLua под названием veryminimal.wx.lua. Замечу, что в нем содержится функция main(), которая в QLUA является обработчиком события с предопределенным названием, поэтому весь полезный код вынесем за пределы этой функции пока, вставим лишь пустую main() чтобы QLUA не ругался. В итоге выкинув все лишнее (комментарии вначале и заполнение package.cpath) получаем:

require("wx")

message("Start", 1)

frame = wx.wxFrame( wx.NULL, wx.wxID_ANY, "wxLua Very Minimal Demo",
                    wx.wxDefaultPosition, wx.wxSize(450, 450),
                    wx.wxDEFAULT_FRAME_STYLE )

frame:Show(true)

wx.wxGetApp():MainLoop()

message("End", 1)

--------
function main()
end

Если этот текст сохранить в файл и запустить, то получим открывшееся окно, созданное средствами wxLua! Вроде все здорово, и терминал Quik даже работает. Однако, если посмотреть внимательнее, по выясняется:
а) Сообщения "End" нет, выведено только "Start"
б) Напротив скрипта стоит признак "остановлен" (красный квадрат), хотя наше окно открыто и функционирует.
в) Ни один обработчик скрипта LUA не работает (если его дописать, например, onAllTrade).

Если окно закрыть - увидим сообщение "End". Выходит, скрипт наш стоял на строке

wx.wxGetApp():MainLoop()

и дальше не шел, что очень грустно.

Как же работал при этом терминал QUIK?? очевидно, внутри MainLoop() содержится цикл обработки сообщений, который вполне устраивает QUIK (во всяком случае я не нашел проблем).

Если убрать строку

wx.wxGetApp():MainLoop()

и дополнить функцию main() стандартным ожиданием остановки скрипта - терминал QUIK и вовсе зависает или что-нибудь в этом роде. Т.е. стандартный QUIK'овский обрабтчик сообщений почему-то для wxLua не подходит.

Хорошо, а что если всю эту фтуковину убрать в main(), где она вроде мешать не будет? просто скопировать в нее весь код да и все, раз уж выхода из него не происходит, пока окно не закроешь?

require("wx")

function main()
  message("Start", 1)

  frame = wx.wxFrame( wx.NULL, wx.wxID_ANY, "wxLua Very Minimal Demo",
                      wx.wxDefaultPosition, wx.wxSize(450, 450),
                      wx.wxDEFAULT_FRAME_STYLE )

  frame:Show(true)

  wx.wxGetApp():MainLoop()

  message("End", 1)
end

На первый взгляд все хорошо: окно появляется, скрипт во состоянии "работает", терминал живет. Закрываем окно, скрипт останавливается. Вроде все замечательно, но при повторном запуске скрипта терминал QUIK весь падает с Internal error.

Что еще придумать - не знаю. Есть ли у кого-нибудь идеи?