Visual Basic 6 - работа с форматом PDF

[Dany]

Всем здорово! Я как обычно открываю темы в основном связанные с проблемами работы и программирования графики (растровой да и векторной). Сегодня столкнулся с одной проблемой, а именно: как можно изображения, текст, и т.д. сохранить в формате PDF, а также производить чтение этой информации. Я думаю, что во всех моих работах именно этого не хватает, поскольку PDF самый экономичный и распространенный формат хранения информации. С чего мне начать, может кто-то этим уже занимался. Если нет давайте вместе попробуем решить этот вопрос и этот материал будет очень интересен все пользователям, а также очень полезен при работе с файлами и данными.

[iGrok]

http://softsearch.ru/programs/268-415-p ... load.shtml
http://www.pdflibrary.ru/

[Dany]

Первая ссылка возможно устарела - пишет страница не найдена, а вторая требует установки лицензионной библиотеки. Других нет ссылок?

[Денис]

Я тебе так скажу, без ссылок, простым текстом: Ищи PDF-принтер (сотни вариантов), устанавливай в системе, а из проги просто отправляй на печать в PDF-принтер.

[JohnK]

PDF - закрытый формат. Рекомендую открыть файл Acrobat-ом и через OLE Automation с ним работай.

Код: Выделить всё

Option Explicit

Private prAcrobat As Object 'Acrobat.Application
Private prAcrobatDoc As Object
Private prNoAcrobatMsgIsShown As Boolean

Function GetAcrobat() As Object
    If prAcrobat Is Nothing Then
        Set prAcrobat = CreateObject("AcroExch.App")
        prAcrobat.Show
    End If
    Set GetAcrobat = prAcrobat
    If (prAcrobat Is Nothing) And Not prNoAcrobatMsgIsShown Then
      prNoAcrobatMsgIsShown = True
      MsgBox "Acrobat Reader не установлен на данной машине. Просмотр и печать файлов в формате PDF невозможны. Установите Acrobat Reader!", vbCritical
    End If
End Function

Function GetAcrobatDoc() As Object
    If prAcrobat Is Nothing Then GetAcrobat
    If prAcrobatDoc Is Nothing Then
        Set prAcrobatDoc = CreateObject("AcroExch.AVDoc")
        prAcrobatDoc.BringToFront
    End If
    Set GetAcrobatDoc = prAcrobatDoc
    If (GetAcrobatDoc Is Nothing) And Not prNoAcrobatMsgIsShown Then
      prNoAcrobatMsgIsShown = True
      MsgBox "Не могу создать документ PDF. Просмотр и печать файлов в формате PDF невозможны!", vbCritical
    End If
End Function

Public Sub ResetAcrobat()
    If Not prAcrobatDoc Is Nothing Then
      On Error Resume Next
      prAcrobatDoc.Close True
      Set prAcrobatDoc = Nothing
    End If
    If Not prAcrobat Is Nothing Then
      On Error Resume Next
      prAcrobat.CloseAllDocs
      prAcrobat.Exit
      Set prAcrobat = Nothing
    End If
End Sub

Public Sub ShowViaAcrobat(aFile As String)
  Dim Acrobat As Object
  Dim AcrobatDoc As Object
'  Dim Acrobat As Acrobat.CAcroApp
  Set Acrobat = GetAcrobat()
  Set AcrobatDoc = GetAcrobatDoc()
  If AcrobatDoc Is Nothing Then Exit Sub
  On Error GoTo ErrorOpen
  If AcrobatDoc.IsValid Then AcrobatDoc.Close True
  DoEvents
  AcrobatDoc.Open aFile, aFile
  DoEvents
  Acrobat.Show
  DoEvents
  Acrobat.Restore 1
  DoEvents
Exit Sub
ErrorOpen:
  On Error Resume Next
  ResetAcrobat
End Sub

Public Function PrintViaAcrobat(aFile As String, Optional ShowWindow As Boolean = True) As Boolean
  Dim Acrobat As Object
  Dim AcrobatDoc As Object
  Dim pn As Long
 
  Set Acrobat = GetAcrobat()
  Set AcrobatDoc = GetAcrobatDoc()
  If AcrobatDoc Is Nothing Then Exit Function
  On Error GoTo ErrorOpen
  If AcrobatDoc.IsValid Then AcrobatDoc.Close True
  DoEvents
  AcrobatDoc.Open aFile, aFile
  DoEvents
  If ShowWindow Then
    Acrobat.Show
    DoEvents
    Acrobat.Restore 1
    DoEvents
    AcrobatDoc.BringToFront
    DoEvents
  End If
  pn = AcrobatDoc.GetPDDoc.GetNumPages
  DoEvents
  PrintViaAcrobat = AcrobatDoc.PrintPages(0, pn - 1, 0, 1, 1)
  DoEvents
Exit Function
ErrorOpen:
  On Error Resume Next
  ResetAcrobat
End Function


[Хакер]

Я тебе так скажу, без ссылок, простым текстом: Ищи PDF-принтер (сотни вариантов), устанавливай в системе, а из проги просто отправляй на печать в PDF-принтер.

В PDF бывают гиперссылки.

[Dany]

А вариант работы с PDF без акробата. Вот пример: (возможно я сравниваю несравниваемое) когда я через VB6 динамически создаю БД (mdb) пишу запросы и программирую создание столбцов для последующего пополнения БД файлами информации, у меня создается акцесовский файл БД и если даже СУБД Акцесс нет на компе, я все равно могу его открыть своим экзешником, дополнять и изменять. Может акробата у когото нет?

[jangle]

А вариант работы с PDF без акробата.

Юзай платные компоненты, например Quick PDF Library

[Andrey Fedorov]

Вкак можно изображения, текст, и т.д. сохранить в формате PDF, а также производить чтение этой информации. Я думаю, что во всех моих работах именно этого не хватает, поскольку PDF самый экономичный и распространенный формат хранения информации.

Выводить - без проблем - тот же ActiveReports умеет сохранять отчеты в PDF.

А вот нафига в нем хранить информацию-то, чтобы потом заморачиваться с нетривиальным способом ее выдирания оттуда? PDF не для этого предназначен. Да и никакой экономичностью он не обладает. Для хранения данных существуют базы данных.

[Dany]

Есть информация что на vb.net есть приспособления для записи данных в PDF(подробностей нет). Тут возникли вопросы, как я понял - зачем этот формат когда для этого базы есть! Вы не правильно поняли. Пример: как фотошоп сохраняет всю информацию к изображению, все его слои и даже историю, в один фойл PDF или PSD - по структуре они почти равносильны. Adobe создала самый экономичний файл в котором может содержаться и растроваая графика и векторная графика - все инструкции и многие презентации - все это по волшебству укладывается в один формат PDF. Мне интересно как? Вся линейка продуктов Adobe: Photoshop, Indesign, Illustrator и т.д. имею возможность и ее активно используют при работе с PDF. Есть механизм, есть способ перевода и подключения. Большую часть своих программ я посвятил графике - растровой, векторной, есть опубликованные статьи (не здесь). Я имею возможность только сохранять растровые файлы в BMP, Jpg, gif. Векторную графику сохраняю в свой формат файла со своей архитектурой - делал долго - в файл векторная графика записывается описанием каждой фигуры и всех ее свойств, и читаю ее аналогично. Проблема в том, что нужен универсальный формат, при сохранении в который и его чтении информация выглядела одинакого на большинстве машин. Даже маки поддерживать стали этот формат. Adobe сделала PDF - стандартом для хранения и передачи графических и векторных файлов. Как файлы сделанные в моей программе и еще с моим форматом будут читать компы где моей проги нет и никогда небыло? Не ужели придется писать библиотеку и распространять ее с моими файлами для их запуска - мне кажется бред полный. Все билиотеки PDF креатор и т.д. Требуют инсталяции прямо на комп, и с ними работать можно только как со внешними библиотеками! Есть идеи как это сделать? Как конфертировать содержимое графики или тектста в PDF и читать его?

[pronto]

Конкретно по структуре и устройству файла PDF, правда, на английском. Объём, примерно, 500 страниц . Читать долго, но для старта должно хватить...
Спецификация формата PDF

[Dany]

Спасибо за ссыллочку - больше идей у народа нет?