Конвертируем 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 (Тетрис) 125 • TDictionary Custom Sort 3 312 • Fast Watermark Sources 3 062 • 3D Designer 4 818 • Sik Screen Capture 3 314 • Patch Maker 3 528 • Айболит (remote control) 3 628 • ListBox Drag & Drop 2 992 • Доска для игры Реверси 81 537 • Графические эффекты 3 922 • Рисование по маске 3 227 • Перетаскивание изображений 2 608 • Canvas Drawing 2 732 • Рисование Луны 2 556 • Поворот изображения 2 163 • Рисование стержней 2 160 • Paint on Shape 1 564 • Генератор кроссвордов 2 223 • Головоломка Paletto 1 764 • Теорема Монжа об окружностях 2 209 • Пазл Numbrix 1 682 • Заборы и коммивояжеры 2 052 • Игра HIP 1 278 • Игра Go (Го) 1 224 • Симулятор лифта 1 470 • Программа укладки плитки 1 214 • Генератор лабиринта 1 542 • Проверка числового ввода 1 351 • HEX View 1 489 • Физический маятник 1 355

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

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