Я уже все пытался объяснить - пока безрезультатно. Еще каки-нибудь варианты подскажете ?

так так так спасибо за наводочку - щас покопаюсь...

Ваще предложенная штука (CreateObject("VisualFoxpro.Application.8")) работает.

Вроде как при работе с сервером VFP предлагается команда .DoCmd(<команда VFP>)

Но у меня при работе с ней отрабатывают простейшие функции типа вывода сообщения :

vfpApp.DoCmd ("MESSAGEBOX('TEST')")
vfpApp.DoCmd ("MESSAGEBOX(STR(32+10,2))")

А при запуске любой другой команды (то что я хотел бы в итоге запустить) выдается сообщение об ошибке ... not responding - ну типа не отвечает.

например,

vfpApp.DoCmd ("MODIFY REPORT <имя отчета>") ( ну или любая другая,например запуск отчета на предварительный просмотр и т.п.)

Может тут еще как-то по другому это дело запустить можно ???? Или что -то еще не хватает. Подскажите пожалуйста !!!!

Прекрасно !
Спасибо за помощь !!! У меня ваш пример тоже получился!
(ссылку на Help я обязательно щас же прочитаю.)

Теперь если можно - правильно ли я мыслю на предмет создания этой штучки в виде сервера :

На VFP я создаю проект примерно с таким кодом :

DEFINE CLASS ole_prn AS Custom OLEPUBLIC

PROCEDURE Prn

LPARAMETERS PrnFile

* PrnFile - имя передаваемого файла-отчета

REPORT FORM PrnFile PREVIEW

ENDPROC

ENDDEFINE

Затем компилирую этот проект в .exe (или .dll) [пока еще не знаю как правильнее несмотря на все приводимые "за" и "против"] и регистрирую в реестре соответствующим образом.

Затем на клиенте (VB) пишу код ....CreateObject(ole_prn) и пытаюсь обратиться к методу Prn этого объекта с именем нужного мне отчета .

Правильно ли я рассуждаю ? Я уже пытался вчера так делать - че то посыпали ошибки и я решил пойти в лоб предложенным методом через VisualFoxpro.Application.8

Пожалуйста прокомментируйте ход моих мыслей чтоб я пошел более целенаправленно.

Вот что я меня получается :


код сервера:


DEFINE CLASS ole_prn AS Custom OLEPUBLIC

PROCEDURE INIT

MESSAGEBOX('O KEY')

ENDPROC

PROCEDURE Prn

LPARAMETERS PrmRepName

MESSAGEBOX('отчет='+PrmRepName)

* искусственно для теста явно указываю таблицу с которой работать
SELECT 0
USE C:\WN\DBF\ZARP02

MESSAGEBOX('alias='+ALIAS())

REPORT FORM (PrmRepName) PREVIEW

USE

ENDPROC

ENDDEFINE

Эта штука скомпилирована и зарегистрирована как oleprn.exe - сервер


КЛИЕНТСКАЯ ЧАСТЬ:

Dim vfpApp As Object
Set vfpApp = CreateObject("OlePrn.Ole_Prn")

vfpApp.Prn ("C:\SQL\PRJ\OLE\REP1.FRX")

РЕЗУЛЬТАТ РАБОТЫ:

Появляется сообщение 'o key' - т.е. сервер запустился.

Появляется сообщение 'отчет=C:\SQL\PRJ\OLE\REP1.FRX' - т.е. имя отчета передалось

Появляется сообщение 'alias()=Zarp02' - т.е. таблица для отчета открыта

А ДАЛЬШЕ ТИШИНА....
Похоже отчет ведь должен в чем то открываться (в окне VFP) - а как его активизировать ? Или в чем прикол ??? Подскажите !!!

Похоже победил !!!

в код сервера перед запуском Report-a надо прописать код:

CLEAR
SHOW WINDOW SCREEN

REPORT FORM (PrmRepName) PREVIEW IN SCREEN

и все о кей !!!!!