View previous topic :: View next topic |
Author |
Message |
AndReW_Samara
Joined: 13 Feb 2002 Posts: 86 Location: Колуж Андрей Валериевич Occupation: Гелиос-7 (начальник отдела автоматизации) Interests: Самара
|
Posted: 17 May 2007 09:43 Post subject: БЭСТ-5. Запуск внешнего приложения |
|
|
Добрый день.
Подскажите, какой функцией можно запустить из плагина внешнее приложение, например, бат-файл с параметрами, чтобы плагин ожидал его завершения. Функции, описанные в хелпе к БЭСТ-4, почему-то не работают... |
|
Back to top |
|
|
Behemoth
Joined: 15 Mar 2002 Posts: 155 Location: Новиков Алексей Юрьевич Occupation: ПБОЮЛ Interests: Пермь
|
Posted: 17 May 2007 09:52 Post subject: |
|
|
Добрый день.
XRun(cCommand) вполне работоспособна.
Что у Вас не получается? Управление в .bat не передаётся в принципе? Покажите, пожалуйста, строку вызова. _________________ С уважением, Новиков Алексей. |
|
Back to top |
|
|
AndReW_Samara
Joined: 13 Feb 2002 Posts: 86 Location: Колуж Андрей Валериевич Occupation: Гелиос-7 (начальник отдела автоматизации) Interests: Самара
|
Posted: 17 May 2007 10:00 Post subject: |
|
|
Такая команда:
__Run ("C:\BEST5_33\TMOD\ImportSF.BAT "+cTMOD_PATH)
молча выбрасывает из модуля, без сообщений об ошибках, а ваша:
xRun ("C:\BEST5_33\TMOD\ImportSF.BAT "+cTMOD_PATH)
дает следующее:
--------------------------------------------------------------------------------
DELPHI: BADI.DLL: 17.05.2007 10:55:20
Error : 0
description: Неисправимая ошибка 419: Нет функции XRUN Вызов из функ: IMPORTSF стр: 39
В общем, вопрос открыты
Last edited by AndReW_Samara on 17 May 2007 10:16; edited 1 time in total |
|
Back to top |
|
|
Behemoth
Joined: 15 Mar 2002 Posts: 155 Location: Новиков Алексей Юрьевич Occupation: ПБОЮЛ Interests: Пермь
|
Posted: 17 May 2007 10:10 Post subject: |
|
|
Добрый день.
О! Простите. Не заметил в заголовке темы ссылки на БЭСТ-5. Решил, что речь идёт о БЭСТ-4.
Воспользуйтесь RunAPP(cExeName,cParam,.T.)
Последний параметр отвечает за ожидание окончания выполнения. _________________ С уважением, Новиков Алексей. |
|
Back to top |
|
|
AndReW_Samara
Joined: 13 Feb 2002 Posts: 86 Location: Колуж Андрей Валериевич Occupation: Гелиос-7 (начальник отдела автоматизации) Interests: Самара
|
Posted: 17 May 2007 10:15 Post subject: |
|
|
Спасибо, теперь все о |
|
Back to top |
|
|
Behemoth
Joined: 15 Mar 2002 Posts: 155 Location: Новиков Алексей Юрьевич Occupation: ПБОЮЛ Interests: Пермь
|
Posted: 17 May 2007 10:21 Post subject: |
|
|
Добрый день.
Рад за Вас. _________________ С уважением, Новиков Алексей. |
|
Back to top |
|
|
LuisFigo
Joined: 08 Feb 2003 Posts: 132
|
Posted: 24 Jul 2007 14:00 Post subject: |
|
|
Народ, киньте в меня, плиз, примером выгрузки в Excel в БЭСТ-5.
вот такой код, работает в БЭСТ-4, а в пятерка на него ругается:
Code: |
// Инициалилизация EXCEL
TRY
oApp := CreateObject( "Excel.Application" ) //попытка создать объект Excel
CATCH
Alert("Excel не доступен!")
RETURN .F.
END
xlsFileName:=OemToAnsi("Вклад")
oWorkBook:=oApp:WorkBooks:Add() //добавление рабочей книги
oAS:=oWorkBook:Sheets(oemtoansi("Лист1"))
|
|
|
Back to top |
|
|
Дениска
Joined: 26 Feb 2002 Posts: 649
|
|
Back to top |
|
|
nordk
Joined: 27 Jun 2005 Posts: 1000 Location: Горбунов Константин Occupation: БЭСТ-Партнер Interests: СПб
|
Posted: 24 Jul 2007 15:07 Post subject: |
|
|
В качестве резюме к данному вопросу.
В отлчие от Б4 сначала надо инициализировать оле функцией
Code: | WIN32_OLEINITIALIZE() |
а потом переименовать
в
|
|
Back to top |
|
|
LuisFigo
Joined: 08 Feb 2003 Posts: 132
|
Posted: 24 Jul 2007 15:47 Post subject: |
|
|
Спасибки! |
|
Back to top |
|
|
|