|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
Помогите найти класс конвертации док в PDF
Ребят задача не тривиальная. Надо в базу запихнуть пдф файл который конвертировать из текстового. помогите в какую сторону копать. Спасибо за ответ
|
#2
|
||||
|
||||
Когда-то делал подобное способом перегонки текста в картинку,
а её затем в pdf-формат, не могу найти исходник, затерялся где-то в сорцехранке, но работало всё по примеру из drkb, только нужно установить в среду Acrobat Control for ActiveX посредством Component -> Import ActiveX Control -> Install Код:
function TifToPDF(TIFFilename, PDFFilename: string): boolean; var AcroApp : variant; AVDoc : variant; PDDoc : variant; IsSuccess : Boolean; begin result := false; if not fileexists(TIFFilename) then exit; try AcroApp := CreateOleObject('AcroExch.App'); AVDoc := CreateOleObject('AcroExch.AVDoc'); AVDoc.Open(TIFFilename, ''); AVDoc := AcroApp.GetActiveDoc; if AVDoc.IsValid then begin PDDoc := AVDoc.GetPDDoc; PDDoc.SetInfo ('Title', ''); PDDoc.SetInfo ('Author', ''); PDDoc.SetInfo ('Subject', ''); PDDoc.SetInfo ('Keywords', ''); Result:= PDDoc.Save(1 or 4 or 32, PDFFilename); PDDoc.Close; end; AVDoc.Close(True); AcroApp.Exit; finally VarClear(PDDoc); VarClear(AVDoc); VarClear(AcroApp); end; end; Код:
... if not TifToPDF('c:\test.tif', 'c:\test.pdf') then Showmessage('Could not convert'); ... Я не понял Вашего вопроса, но всё же Вам на него отвечу! |
#3
|
|||
|
|||
Этот пример требует наличия акробата на машине. Не факт, что он есть.
Эестеперементировал с этими либами: PowerPDF SynPDF Для моего проекта, вроде, не совсем подходят, или я не до конца разобрался с ними, но для простых вещей, вроде, работали. Качал с Torry.ru в свое время, но, думаю, можно и так найти. |