Вызовы COM из Lua (Страница 1 из 3)

Рассмотрим работу с библиотекой luacom на паре простых примеров

Примеры взяты [url=http://forum-archive.quik.ru/forum/lua/109335/109335/?page=2]с форума QUIK[/url], спасибо их автору.

Пример номер 1.
Открываем MSExcel и выводим в него текущее значение вариационной маржи. После чего ждем 3 сек. и закрываем Excel.

require "luacom"
excel = luacom.CreateObject("Excel.Application")
excel.Visible = true
wb = excel.Workbooks:Add()
ws = wb.Worksheets(1)
row = 1
col = 2
vm = getItem("futures_client_holding", 0).varmargin
ws.Cells(row,col).Value2 = vm
sleep(3000)
excel.DisplayAlerts = false
excel:Quit()
excel = nil

Пример номер 2.
Здесь мы будем значение вариационной маржи выводить в цикле, раз в 3 секунды, каждый раз в новую ячейку. Работа скрипта  завершается при нажатии кнопки "Стоп" из диалога управления скриптами. При этом Excel также закрывается.

В этом примере хотелось бы обратить внимание на следующие детали. Цикл вывода в MS Excel расположен в main(), которая - не забываем! - [url=https://quik2dde.ru/viewtopic.php?id=16]выполняется в отдельно потоке[/url]. Поэтому:

• всю работу по созданию COM-объектов выполняем только в main(); не следует создавать COM-объекты в обработчиках, например, а обращаться к ним из main()

• в потоке, где идет работа с COM обязательно должны быть вызваны функции CoInitialize() и CoUninitialize(), для работы c которыми подключим еще [url=https://quik2dde.ru/viewtopic.php?id=78]библиотеку w32[/url].

require "w32"
require "luacom"

row = 1
col = 2
is_run = true

function main()
  w32.CoInitialize()
  excel = luacom.CreateObject("Excel.Application")
  excel.Visible = true
  wb = excel.Workbooks:Add()
  ws = wb.Worksheets(1)
  while is_run do
    vm = getItem("futures_client_holding", 0).varmargin
    ws.Cells(row,col).Value2 = vm
    row = row + 1  -- для вывода следующего значения перейдем на одну строку ниже
    sleep(3000)
  end
  excel.DisplayAlerts = false
  excel:Quit()
  excel = nil
  w32.CoUninitialize()
end 

function OnStop(signal)
  is_run = false
end

Добрый день!

В инете особо нет информации по этому поводу, мб вы сможете мне помочь.

Используя библиотеку w32 с этого сайта , удалось запустить из QUIK (6.8.4.14) Excel 2010 (русская версия) (ОС Windows XP).
При передаче данных из QUIK в ячейки листа Excel цифры, английские символы, знаки препинания нормально отображаются, а русские символы не отображаются совсем.

Если кто-то знает, что можно попробовать сделать в данной ситуации, буду очень признателен за ответ

Спасибо за помощь!

3 метод (перекомпилированная версия luacom.dll) для меня отлично сработал

Какой замечательный пример! спасибо

Подскажите, что вы используете для синтеза русской речи?

От себя добавлю, что если вызывать vObj:Speak() из обработчика, то надо добавлять параметр, чтобы фраза произносилась асинхронно, не останавливая терминал на время произнесения, т.к. по умолчанию работа производится синхронно и из метода Speak() возращается только после произнесения всей фразы:

vObj:Speak("Текст", 1)

Здравствуйте!
Я только начал изучать Lua для Quik.
Простенькие программки работают.

Тема Luacom очень интересна, хотел попробовать пример.

Скачал в папку с моими луа-программками luacom.dll, запустил первый пример из ветки.

Сразу ошибка в команде require "luacom":  "не найден  luacom.dll"

Я ни разу не подключал никакие файлы, кроме *.lua
Не могли бы помочь - куда положить файл luacom.dll и что сделать, чтобы пример заработал?

Lua for Windows не установлен.

Спасибо за совет, kalikazandr!

Я это уже сделал, положил файл luacom.dll в папку с квиком и в папку с моим LUA - файлом.

Выдает ошибку:

error loading module 'luacom' from file '.\luacom.dll':
    .\luacom.dll:1: '=' expected near 'ђ'

Что с этим делать  - ума не приложу.

Пробовал luacom.dll 1.4 и 1.3

Кстати, с w32.dll та же петрушка - положил в папку с Quik -

error loading module 'w32' from file '.\w32.dll':
    .\w32.dll:1: '=' expected near 'ђ'

Quik не инсталлирован, просто переписана папка.
Если это важно.

Не инсталлирован -  не важно. Что значит "просто переписана папка"? Версия квик какая? Откуда брали библиотеки?
Первый пример в посте у меня работает нормально

Поставил w.10, Марина сломалась - говорит медленно, в настройках речи задал скорость - пофик, все равно медленно.

require "luacom"

Если вы используете luacom.dll из луафорвиндовс, то подключаться она не будет, скачайте с этой ветки библиотеку.

Run-time влинкован, т.е. не требуются дополнительные DLL.
Та сборка, что идёт "родная" - требует run-time библиотек VisualC++ подходящей версии.

Было написано:

Т.е. суть не в полноте установленной студии. Студии как таковой может при этом не быть, она ведь платная (внезапно!).
Суть именно в той версии run-time библиотек (т.е. dll файлов с именем типа msvcrt), на которой собирался данный проект.
При этом студия не обязательна.
Microsoft выпускает инсталляторы так называемых "redistributable package", который бесплатны, и содержат как раз все run-time DLL от соответствующей версии VisualC++. Они так и называются:
"Microsoft Visual C++ 2005 Redistributable Package"
"Microsoft Visual C++ 2010 Redistributable Package"
ну и т.д.

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