Конвертируем TIF в PDF

Автор: Morten Ravn-Jonsen

...и написал Иисус конвертер water2wine, и стал раздавать его freeware...

Как-то раз получился TIF файл на несколько страниц и возникла необходимость конвертации его в PDF формат. Для использования такой возможности необходимо иметь полную версию Adobe Acrobat. Функция тестировалась на Adobe Acrobat 4.0.

Сперва Вам необходимо импортировать элементы управления Acrobat AxtiveX.

Выберите Component -> Import ActiveX Control
Выберите Acrobat Control for ActiveX и нажмите install
Выберите пакет ActiveX control для инсталяции
Добавьте PDFlib_tlb в Ваш проект. Этот файл находится в директории Borland\Delphi5\Imports.

Как использовать функцию

Вот пример её вызова:

if not TifToPDF('c:\test.tif', 'c:\test.pdf') then 
  Showmessage('Could not convert');

Функция TifToPdf:

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;

Недавно добавленные исходники
• DeLiKaTeS Tetris (Тетрис) 4 608 • TDictionary Custom Sort 6 616 • Fast Watermark Sources 6 391 • 3D Designer 9 338 • Sik Screen Capture 6 723 • Patch Maker 7 107 • Айболит (remote control) 7 112 • ListBox Drag & Drop 5 973 • Доска для игры Реверси 97 534 • Графические эффекты 7 308 • Рисование по маске 6 597 • Перетаскивание изображений 5 470 • Canvas Drawing 5 844 • Рисование Луны 5 561 • Поворот изображения 5 076 • Рисование стержней 3 645 • Paint on Shape 2 880 • Генератор кроссвордов 3 775 • Головоломка Paletto 3 032 • Теорема Монжа об окружностях 3 844 • Пазл Numbrix 2 530 • Заборы и коммивояжеры 3 239 • Игра HIP 2 204 • Игра Go (Го) 2 136 • Симулятор лифта 2 518 • Программа укладки плитки 2 161 • Генератор лабиринта 2 655 • Проверка числового ввода 2 313 • HEX View 2 646 • Физический маятник 2 273

Конвертируем TIF в PDF

Похожие по теме исходники