FoxClub Forums > Visual Foxpro, Foxpro for DOS > Как открыть PDF-документ из VFP ? ::

• Войти

Как открыть PDF-документ из VFP ?
Sergey_Z Автор	Sergey_Z 17.05.05 10:12:09 Сабж собственно: делаю так X = GETOBJECT('_1.PDF') Открывается документ, но он невидим. X.Application.Visible = .T. - выдает ошибку Может подскажет кто, как Acrobat визуализировать ?

Re: Как открыть PDF-документ из VFP ?
piva Сообщений: 18655 Откуда: Курган Дата регистрации: 24.03.2004	piva 17.05.05 10:14:53 А ShellExecute в чем провинился ? ------------------ Часто бывает так, что есть над чем задуматься, а нечем.

Re: Как открыть PDF-документ из VFP ?
piva Сообщений: 18655 Откуда: Курган Дата регистрации: 24.03.2004	piva 17.05.05 10:17:02 Тем более странно - модет у меня чего еще не стоит кроме Acrobar Reader - но у меня на команду X = GETOBJECT('_1.PDF') фокс ругается "Интерфейс не поддерживается" ------------------ Часто бывает так, что есть над чем задуматься, а нечем.

Re: Как открыть PDF-документ из VFP ?

piva

Сообщений: 18655
Откуда: Курган
Дата регистрации: 24.03.2004

piva

17.05.05 10:17:02

Тем более странно - модет у меня чего еще не стоит кроме Acrobar Reader - но у меня на команду


X = GETOBJECT('_1.PDF')

фокс ругается "Интерфейс не поддерживается"

------------------
Часто бывает так, что есть над чем задуматься, а нечем.

Re: Как открыть PDF-документ из VFP ?
Combat Сообщений: 816 Откуда: Клайпеда Дата регистрации: 26.10.2000	Combat 17.05.05 10:21:31 Вот откопал свой старенький примерчик для 5-го Акробата : Правда тут не столько "из VFP", а прямо в VFP LOCAL lcFileName,loFrmPdf lcFileName = "C:\Program Files\Adobe\Acrobat 5.0\Help\ENU\ACROBAT.PDF" loFrmPdf = CREATEOBJECT("CFrmPDF",m.lcFileName) loFrmPdf.Show(1) DEFINE CLASS cfrmpdf AS form DoCreate = .T. Caption = "Test" Name = "frmPDF" ADD OBJECT olepdf AS olecontrol WITH ; OleClass = "PDF.PdfCtrl.5" Name = "olepdf" PROCEDURE Resize WITH This .LockScreen = .T. .olepdf.Height = .Height .olepdf.Width = .Width .LockScreen = .F. ENDWITH ENDPROC PROCEDURE Init LPARAMETERS tcFileName WITH This .olepdf.Top = 0 .olepdf.Left = 0 .olepdf.Height = .Height .olepdf.Width = .Width .olepdf.LoadFile(m.tcFileName) ENDWITH ENDPROC ENDDEFINE Отредактировано (17.05.05 13:25) ------------------

Re: Как открыть PDF-документ из VFP ?

Combat

Сообщений: 816
Откуда: Клайпеда
Дата регистрации: 26.10.2000

Combat

17.05.05 10:21:31

Вот откопал свой старенький примерчик для 5-го Акробата :
Правда тут не столько "из VFP", а прямо в VFP


LOCAL lcFileName,loFrmPdf
lcFileName = "C:\Program Files\Adobe\Acrobat 5.0\Help\ENU\ACROBAT.PDF"
loFrmPdf = CREATEOBJECT("CFrmPDF",m.lcFileName)
loFrmPdf.Show(1)

DEFINE CLASS cfrmpdf AS form
    DoCreate = .T.
    Caption = "Test"
    Name = "frmPDF"

    ADD OBJECT olepdf AS olecontrol WITH ;
        OleClass = "PDF.PdfCtrl.5"
        Name = "olepdf"

    PROCEDURE Resize
        WITH This
            .LockScreen = .T.        
            .olepdf.Height = .Height
            .olepdf.Width = .Width
            .LockScreen = .F.
        ENDWITH
    ENDPROC

    PROCEDURE Init
        LPARAMETERS tcFileName
        WITH This    
            .olepdf.Top = 0
            .olepdf.Left = 0        
            .olepdf.Height = .Height
            .olepdf.Width = .Width
            .olepdf.LoadFile(m.tcFileName)
        ENDWITH
    ENDPROC
ENDDEFINE

Отредактировано (17.05.05 13:25)

------------------

Re: Как открыть PDF-документ из VFP ?
dushes_offline	dushes_offline 17.05.05 10:35:46 называется контрол Adobe Acrobat Control For ActiveX для 6-ой версии: clsid {CA8A9780-280D-11CF-A24D-444553540000} его bin-сервер C:\PROGRA~1\Adobe\ACROBA~1.0CE\Reader\ActiveX\pdf.ocx

Re: Как открыть PDF-документ из VFP ?
Sergey_Z Автор	Sergey_Z 17.05.05 11:09:30 piva писал(а): Цитата: А ShellExecute в чем провинился ? VFP 5.0 и ShellExecute чего-то я там не нашел. Или я чего-то не понял ? Combat писал(а): Цитата: loFrmPdf = CREATEOBJECT("CFrmPDF",m.lcFileName) loFrmPdf.Show(1) CREATEOBJECT я использовать не могу, не знаю, какой Acrobat будет на клиенте. Может быть от 5.0 до 7.0 и ничего я там менять не могу и никакие ActiveX ставить тоже нельзя тоже. .Show(1) : OLE Error - Unknown name Чего с этим делать ?

Re: Как открыть PDF-документ из VFP ?

Sergey_Z
Автор

Sergey_Z

17.05.05 11:09:30

piva писал(а):

Цитата:
А ShellExecute в чем провинился ?

VFP 5.0 и ShellExecute чего-то я там не нашел. Или я чего-то не понял ?

Combat писал(а):

Цитата:
loFrmPdf = CREATEOBJECT("CFrmPDF",m.lcFileName)
loFrmPdf.Show(1)

CREATEOBJECT я использовать не могу, не знаю, какой Acrobat будет на клиенте. Может быть от 5.0 до 7.0 и ничего я там менять не могу и никакие ActiveX ставить тоже нельзя тоже.
.Show(1) : OLE Error - Unknown name

Чего с этим делать ?

Re: Как открыть PDF-документ из VFP ?
Combat Сообщений: 816 Откуда: Клайпеда Дата регистрации: 26.10.2000	Combat 17.05.05 11:16:46 Sergey_Z .Show(1) : OLE Error - Unknown name Чего с этим делать ? Если хочешь чтоб пример заработал - поставить 5-ый Акробат или исправить мой пример, указав активХ другой версии в строчке OleClass = "PDF.PdfCtrl.5" а если нет (всё равно этот вариант тебе не подходит) - то ничего ------------------

Re: Как открыть PDF-документ из VFP ?

Combat

Сообщений: 816
Откуда: Клайпеда
Дата регистрации: 26.10.2000

Combat

17.05.05 11:16:46

Sergey_Z
.Show(1) : OLE Error - Unknown name
Чего с этим делать ?

Если хочешь чтоб пример заработал - поставить 5-ый Акробат или исправить мой пример,
указав активХ другой версии в строчке OleClass = "PDF.PdfCtrl.5"

а если нет (всё равно этот вариант тебе не подходит) - то ничего

------------------

Re: Как открыть PDF-документ из VFP ?
piva Сообщений: 18655 Откуда: Курган Дата регистрации: 24.03.2004	piva 17.05.05 11:19:31 Там посмотри forum.foxclub.ru ------------------ Часто бывает так, что есть над чем задуматься, а нечем.

Re: Как открыть PDF-документ из VFP ?
Sergey_Z Автор	Sergey_Z 17.05.05 11:57:15 Проблема в том, что на клиентах я ничего не могу инсталить(это не обсуждается даже), их ~300 компов и все разные В дано: Acrobat v5.0-7.0 b VFP5.0, надо - в Acrobat-e открыть PDF-документ X = GETOBJECT('_1.PDF') - нормально открывает докумет, только он скрытый Далше: (спасибо за подсказку - сейчас вычислил) X.Application.Show - выводит пустое окно Acrobata без этого самого _1.PDF в нем Что не так делаю ?

Re: Как открыть PDF-документ из VFP ?

Sergey_Z
Автор

Sergey_Z

17.05.05 11:57:15

Проблема в том, что на клиентах я ничего не могу инсталить(это не обсуждается даже), их ~300 компов и все разные
В дано: Acrobat v5.0-7.0 b VFP5.0, надо - в Acrobat-e открыть PDF-документ
X = GETOBJECT('_1.PDF') - нормально открывает докумет, только он скрытый
Далше: (спасибо за подсказку - сейчас вычислил)
X.Application.Show - выводит пустое окно Acrobata без этого самого _1.PDF в нем
Что не так делаю ?

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

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

On-line: 44 Victoriacom (Гостей: 43)