Главная
Новый форум
 FAQFAQ   SearchSearch   MemberlistMemberlist   UsergroupsUsergroups   RegisterRegister 
 ProfileProfile   Log in to check your private messagesLog in to check your private messages   Log inLog in 

БЭСТ-5. Запуск внешнего приложения

 
Post new topic   Reply to topic   printer-friendly view     Forum Index -> Программирование в БЭСТ-4
View previous topic :: View next topic  
Author Message
AndReW_Samara



Joined: 13 Feb 2002
Posts: 86
Location: Колуж Андрей Валериевич
Occupation: Гелиос-7 (начальник отдела автоматизации)
Interests: Самара

PostPosted: 17 May 2007 09:43    Post subject: БЭСТ-5. Запуск внешнего приложения Reply with quote

Добрый день.

Подскажите, какой функцией можно запустить из плагина внешнее приложение, например, бат-файл с параметрами, чтобы плагин ожидал его завершения. Функции, описанные в хелпе к БЭСТ-4, почему-то не работают...
Back to top
View user's profile Send private message
Behemoth



Joined: 15 Mar 2002
Posts: 155
Location: Новиков Алексей Юрьевич
Occupation: ПБОЮЛ
Interests: Пермь

PostPosted: 17 May 2007 09:52    Post subject: Reply with quote

Добрый день.

XRun(cCommand) вполне работоспособна.
Что у Вас не получается? Управление в .bat не передаётся в принципе? Покажите, пожалуйста, строку вызова.
_________________
С уважением, Новиков Алексей.
Back to top
View user's profile Send private message Send e-mail
AndReW_Samara



Joined: 13 Feb 2002
Posts: 86
Location: Колуж Андрей Валериевич
Occupation: Гелиос-7 (начальник отдела автоматизации)
Interests: Самара

PostPosted: 17 May 2007 10:00    Post subject: Reply with quote

Такая команда:
__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
View user's profile Send private message
Behemoth



Joined: 15 Mar 2002
Posts: 155
Location: Новиков Алексей Юрьевич
Occupation: ПБОЮЛ
Interests: Пермь

PostPosted: 17 May 2007 10:10    Post subject: Reply with quote

Добрый день.

О! Простите. Не заметил в заголовке темы ссылки на БЭСТ-5. Решил, что речь идёт о БЭСТ-4.

Воспользуйтесь RunAPP(cExeName,cParam,.T.)
Последний параметр отвечает за ожидание окончания выполнения.
_________________
С уважением, Новиков Алексей.
Back to top
View user's profile Send private message Send e-mail
AndReW_Samara



Joined: 13 Feb 2002
Posts: 86
Location: Колуж Андрей Валериевич
Occupation: Гелиос-7 (начальник отдела автоматизации)
Interests: Самара

PostPosted: 17 May 2007 10:15    Post subject: Reply with quote

Спасибо, теперь все о
Back to top
View user's profile Send private message
Behemoth



Joined: 15 Mar 2002
Posts: 155
Location: Новиков Алексей Юрьевич
Occupation: ПБОЮЛ
Interests: Пермь

PostPosted: 17 May 2007 10:21    Post subject: Reply with quote

Добрый день.

Рад за Вас.
_________________
С уважением, Новиков Алексей.
Back to top
View user's profile Send private message Send e-mail
LuisFigo



Joined: 08 Feb 2003
Posts: 132



PostPosted: 24 Jul 2007 14:00    Post subject: Reply with quote

Народ, киньте в меня, плиз, примером выгрузки в 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
View user's profile Send private message
Дениска



Joined: 26 Feb 2002
Posts: 649



PostPosted: 24 Jul 2007 14:04    Post subject: Reply with quote

LuisFigo wrote:
Народ, киньте в меня, плиз, примером выгрузки в Excel в БЭСТ-5.
вот такой код, работает в БЭСТ-4, а в пятерка на него ругается:


Посмотри тему http://www.bestnet.ru/club/phpBB/viewtopic.php?t=8362&highlight=
Back to top
View user's profile Send private message
nordk



Joined: 27 Jun 2005
Posts: 1000
Location: Горбунов Константин
Occupation: БЭСТ-Партнер
Interests: СПб

PostPosted: 24 Jul 2007 15:07    Post subject: Reply with quote

В качестве резюме к данному вопросу.
В отлчие от Б4 сначала надо инициализировать оле функцией

Code:
WIN32_OLEINITIALIZE()


а потом переименовать
Code:
CreateObject( )

в
Code:
OleCreateObject( )
Back to top
View user's profile Send private message Send e-mail
LuisFigo



Joined: 08 Feb 2003
Posts: 132



PostPosted: 24 Jul 2007 15:47    Post subject: Reply with quote

Спасибки!
Back to top
View user's profile Send private message
Display posts from previous:   
Post new topic   Reply to topic   printer-friendly view     Forum Index -> Программирование в БЭСТ-4 All times are GMT + 4 Hours
Page 1 of 1

 
Jump to:  
You cannot post new topics in this forum
You cannot reply to topics in this forum
You cannot edit your posts in this forum
You cannot delete your posts in this forum
You cannot vote in polls in this forum


Powered by phpBB © phpBB Group

Rambler
Rambler's Top100 Рейтинг@Mail.ru