TIF ---> PDF |
Previous Top Next |
Автор: Morten Ravn-Jonsen
Совместимость: Delphi 5.x (или выше)
Как-то раз получился TIF файл на несколько страниц и возникла необходимость конвертации его в PDF формат. Для использования такой возможности необходимо иметь полную версию Adobe Acrobat. Функция тестировалась на Adobe Acrobat 4.0.
Сперва Вам необходимо импортировать элементы управления Acrobat AxtiveX.
1) Выберите Component -> Import ActiveX Control
2) Выберите Acrobat Control for ActiveX и нажмите install
3) Выберите пакет ActiveX control для инсталяции
4) Добавьте PDFlib_tlb в Ваш проект. Этот файл находится в директории Borland\Delphi5\Imports.
Как использовать функцию
Вот пример её вызова:
if not TifToPDF('c:\test.tif', 'c:\test.pdf') then Showmessage('Could not convert');
Функция TifToPdf
Code: |
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; |
©Drkb::04280
Взято из http://forum.sources.ru