FoxClub Forums > Не фоксом единым

• Войти

1С => VFP OLE
kexby Автор Сообщений: 62 Откуда: Ростов-на-Дону Дата регистрации: 19.12.2005	kexby 02.05.06 14:12:14 Добрый день, уважаемые! Сталкнулся с такой вот задачей: Мне необходимо в 1С запустить функцию Foxa. Все вроде запускается работает, вот только не могу в 1С вернуть результат выполнения этой функции. В 1С пишу: FoxPro = СоздатьОбъект("VisualFoxpro.Application.9"); FoxPro.DoCmd("SET PROCEDURE TO '.\forpm_repltn.prg'"); Если FoxPro.DoCmd("FindNdok1C('400')")=1 Тогда Сообщить("Нашли!"); Иначе Сообщить("Не нашли!"); КонецЕсли; FoxPro.QUIT(); Содержание процедурного файла Foxa допустим такое: FUNCTION FindNdok1C LPARAMETERS lpNdok RETURN 1 ENDFUNC В результате всегда 1С сообщает "Не нашли!". FoxPro.DoCmd("FindNdok1C('400')") - эта комманда почему-то ничего не возвращает. Нужно хотя бы определить статус выполнения(удачно выполнелась или нет) функции Foxa. Подскажите пожалуйста как этого добиться. P.S. Использую 1С 7.7 и VFP 9.0 SP1. Искакл поиском на форумах ничего не нашел.

kexby
Автор

Сообщений: 62
Откуда: Ростов-на-Дону
Дата регистрации: 19.12.2005

kexby

02.05.06 14:12:14

Добрый день, уважаемые!
Сталкнулся с такой вот задачей:
Мне необходимо в 1С запустить функцию Foxa.
Все вроде запускается работает, вот только не могу в 1С вернуть результат выполнения этой функции.
В 1С пишу:

    FoxPro = СоздатьОбъект("VisualFoxpro.Application.9");  
    FoxPro.DoCmd("SET PROCEDURE TO '.\forpm_repltn.prg'");    
    Если FoxPro.DoCmd("FindNdok1C('400')")=1 Тогда
         Сообщить("Нашли!");    
    Иначе
         Сообщить("Не нашли!");    
    КонецЕсли;                           
    FoxPro.QUIT();

Содержание процедурного файла Foxa допустим такое:


FUNCTION FindNdok1C
LPARAMETERS lpNdok
    RETURN 1
ENDFUNC

В результате всегда 1С сообщает "Не нашли!".
FoxPro.DoCmd("FindNdok1C('400')") - эта комманда почему-то ничего не возвращает.

Нужно хотя бы определить статус выполнения(удачно выполнелась или нет) функции Foxa.

Подскажите пожалуйста как этого добиться.

P.S. Использую 1С 7.7 и VFP 9.0 SP1. Искакл поиском на форумах ничего не нашел.

Re: 1С => VFP OLE
piva Сообщений: 18655 Откуда: Курган Дата регистрации: 24.03.2004	piva 02.05.06 14:14:49 Вместо FoxPro.DoCmd("FindNdok1C('400')")=1 Надо FoxPro.Eval("FindNdok1C('400')")=1 ------------------ Часто бывает так, что есть над чем задуматься, а нечем.

Re: 1С => VFP OLE
kexby Автор Сообщений: 62 Откуда: Ростов-на-Дону Дата регистрации: 19.12.2005	kexby 02.05.06 14:29:57 ОГРОМНЕЙШЕЕ СПАСИБО!РАБОТАЕТ!

Re: 1С => VFP OLE
kexby Автор Сообщений: 62 Откуда: Ростов-на-Дону Дата регистрации: 19.12.2005	kexby 03.05.06 14:16:26 Вот ещё один сопутствующий вопрос! Какие библиотеки или друние какие нибуть файлы необходимо зарегистрировать в реестре или ещё где нибуть, для того чтобы VFP можно мыло использовать как OLE обьект, без его полной установки? Не хотелось бы ставить на сервере VFP целяком. Подскажите пожалуйста.

Re: 1С => VFP OLE

kexby
Автор

Сообщений: 62
Откуда: Ростов-на-Дону
Дата регистрации: 19.12.2005

kexby

03.05.06 14:16:26

Вот ещё один сопутствующий вопрос!
Какие библиотеки или друние какие нибуть файлы необходимо зарегистрировать в реестре или ещё где нибуть, для того чтобы VFP можно мыло использовать как OLE обьект, без его полной установки?
Не хотелось бы ставить на сервере VFP целяком.
Подскажите пожалуйста. :sos:

Re: 1С => VFP OLE
piva Сообщений: 18655 Откуда: Курган Дата регистрации: 24.03.2004	piva 03.05.06 14:41:11 FAQ читай - там есть ------------------ Часто бывает так, что есть над чем задуматься, а нечем.

Re: 1С => VFP OLE
Igor Korolyov Сообщений: 34580 Дата регистрации: 28.05.2002	Igor Korolyov 21.05.06 23:50:33 Для использования VisualFoxpro.Application необходимо устанавливать ПОЛНОСТЬЮ среду разработки VFP. А вот если на VFP написать свою собственную dll-ку, в которой реализовать соответствующие методы (используя функции EVALUATE() и EXECSCRIPT()) - тогда достаточно устанавливать только рантайм и эту твою dll-ку. Всё очень просто - для реализации достаточно почитать пару разделов хелпа - по этим функциям и общие- по компиляции, по созданию своих COM-серверов и по развёртыванию/установке своих программ ------------------ WBR, Igor

Re: 1С => VFP OLE

Igor Korolyov

Сообщений: 34580
Дата регистрации: 28.05.2002

Igor Korolyov

21.05.06 23:50:33

Для использования VisualFoxpro.Application необходимо устанавливать ПОЛНОСТЬЮ среду разработки VFP.
А вот если на VFP написать свою собственную dll-ку, в которой реализовать соответствующие методы (используя функции EVALUATE() и EXECSCRIPT()) - тогда достаточно устанавливать только рантайм и эту твою dll-ку. Всё очень просто - для реализации достаточно почитать пару разделов хелпа - по этим функциям и общие- по компиляции, по созданию своих COM-серверов и по развёртыванию/установке своих программ

------------------
WBR, Igor

:: Список Форумов•Список тем•Поиск•Войти

Извините, только зарегистрированные пользователи могут оставлять сообщения в этом форуме.

On-line: 14 (Гостей: 14)