QUIK 7. Начать экспорт таблиц по DDE

Поиск
Пользователи
Правила

Закрыть

Войти

Внимание

Для участия в обсуждениях и оформления подписки на новые сообщения форума вам необходимо зарегистрироваться.

RSS

Cообщений на странице:

QUIK 7. Начать экспорт таблиц по DDE, поиск кнопки меню

quiker

Пользователь

Сообщений: 6 Регистрация: 08.12.2015

08.12.2015 10:46:12

День добрый!
В версии 6 нажимал кнопку экспорта данных "Начать экспорт таблиц по DDE" таким образом:

IntPtr mainMenu = GetMenu(quikWindow);
int exportMenuIndex = (int)FindMenuItemByPart(mainMenu, _exportMenuKey);
IntPtr exportMenu = GetSubMenu(mainMenu, exportMenuIndex);
uint menuItem = GetMenuItemID(exportMenu, 6);
PostMessage(quikWindow, 0x111, (IntPtr)menuItem, (IntPtr)0);

В версии 7 Квика, когда начинаю пробегать по списку меню "Сервисы", чтобы найти подменю "Экспорт/импорт данных" все подвисает.
Все остальные меню и подменю работают нормально, кроме этого. В чем может быть проблема, как нажать нужную кнопку?

Владимир Иванов QUIK clients support Сообщений: 123 Регистрация: 31.03.2015	#2 09.12.2015 09:24:01 Здравствуйте! К сожалению, пока не удалось воспроизвести проблему. Сообщите полный номер версии рабочего места, а так же используются ли у Вас какие-нибудь скрипты на QLUA/QPILE?

quiker Пользователь Сообщений: 6 Регистрация: 08.12.2015	#3 09.12.2015 10:26:55 Квик версии 7.0.1.5. Никаких скриптов не запущено. Можете подсказать рабочий вариант порядка поиска данной кнопки в виде моего примера с GetMenuItemID() и PostMessage()?

Egor Zaytsev QUIK clients support Сообщений: 3589 Регистрация: 27.01.2015	#4 09.12.2015 10:56:58 Добрый день. К сожалению, мы не поддерживаем вопросы касающиеся WinApi.

quiker

Пользователь

Сообщений: 6 Регистрация: 08.12.2015

09.12.2015 12:03:45

Ясно. Я уже разобрался. Сделал следующим образом:

IntPtr mainMenu = GetMenu(quikWindow);
uint serviceMenuIndex = FindMenuItemByPart(mainMenu, "С&ервисы");
IntPtr serviceMenu = GetSubMenu(mainMenu, (int)serviceMenuIndex);
IntPtr exportMenu = GetSubMenu(serviceMenu, 3);
int menuItem = (int)GetMenuItemID(exportMenu, 2);
PostMessage(quikWindow, 0x111, (IntPtr)menuItem, (IntPtr)0);

То есть пришлось немного лишить программу универсальности, когда можно ходить по меню и искать подменю по названию.
Все не по порядку в 7-ой версии Квика, При проходе по меню и явном поиске вылетает ошибка типа:

quiker

Пользователь

Сообщений: 6 Регистрация: 08.12.2015

09.12.2015 12:04:29

Цитата

quiker пишет:
Ясно. Я уже разобрался. Сделал следующим образом:

IntPtr mainMenu = GetMenu(quikWindow);
uint serviceMenuIndex = FindMenuItemByPart(mainMenu, "С&ервисы");
IntPtr serviceMenu = GetSubMenu(mainMenu, (int)serviceMenuIndex);
IntPtr exportMenu = GetSubMenu(serviceMenu, 3);
int menuItem = (int)GetMenuItemID(exportMenu, 2);
PostMessage(quikWindow, 0x111, (IntPtr)menuItem, (IntPtr)0);

То есть пришлось немного лишить программу универсальности, когда можно ходить по меню и искать подменю по названию.
Все не по порядку в 7-ой версии Квика, При проходе по меню и явном поиске вылетает ошибка типа:

В среде выполнения обнаружена критическая ошибка. Ошибка произошла по адресу 0x6929a84e в потоке 0xfa0. Код ошибки 0xc0000005. Она может быть вызвана ошибкой в CLR или в небезопасных либо не поддающихся проверке фрагментах пользовательского кода. Обычно источниками таких ошибок бывают ошибки упаковки, допускаемые пользователями при COM-взаимодействии, либо PInvoke, повредивший стек.

quiker Пользователь Сообщений: 6 Регистрация: 08.12.2015	#7 09.12.2015 12:33:31 Я понял свою ошибку. Дело не в Квике.

quiker

Пользователь

Сообщений: 6 Регистрация: 08.12.2015

09.12.2015 12:38:43

Надо делать так:

IAsyncResult ar = BeginInvoke(new Action(() =>{StartDDE();}));
public StartDDE()
{
IntPtr quikWindow = FindQuikWindow();
IntPtr mainMenu = GetMenu(quikWindow);
uint serviceMenuIndex = FindMenuItemByPart(mainMenu, "С&ервисы");
IntPtr serviceMenu = GetSubMenu(mainMenu, (int)serviceMenuIndex);
int exportMenuIndex = (int)FindMenuItemByPart7(serviceMenu, "&Экспорт/импорт данных");
IntPtr exportMenu = GetSubMenu(serviceMenu, exportMenuIndex);
int menuItem = (int)GetMenuItemID(exportMenu, 2);
PostMessage(quikWindow, 0x111, (IntPtr)menuItem, (IntPtr)0);
}

Тогда вылетать ничего не будет и можно бегать по меню и подменю!!!

Serge Dim Пользователь Сообщений: 6 Регистрация: 21.12.2015	#9 21.12.2015 15:38:07 Quiker, ты крут я тоже так делаю. Но мне не нравится как приходится вызывать стакан опционов из доски опционов. Ну типа имитирую дабл клик на путовой или колловой половине в нужной строке. Но как-то мутно это, иногда не срабатывает. Может как-то по другому лучше? Пока не нашёл как...

Читают тему