Конвертируем 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 (Тетрис) 3 802 • TDictionary Custom Sort 5 911 • Fast Watermark Sources 5 711 • 3D Designer 8 488 • Sik Screen Capture 6 047 • Patch Maker 6 489 • Айболит (remote control) 6 481 • ListBox Drag & Drop 5 344 • Доска для игры Реверси 94 991 • Графические эффекты 6 687 • Рисование по маске 5 817 • Перетаскивание изображений 4 870 • Canvas Drawing 5 244 • Рисование Луны 4 965 • Поворот изображения 4 513 • Рисование стержней 3 194 • Paint on Shape 2 439 • Генератор кроссвордов 3 312 • Головоломка Paletto 2 622 • Теорема Монжа об окружностях 3 411 • Пазл Numbrix 2 255 • Заборы и коммивояжеры 2 914 • Игра HIP 1 883 • Игра Go (Го) 1 798 • Симулятор лифта 2 138 • Программа укладки плитки 1 864 • Генератор лабиринта 2 300 • Проверка числового ввода 1 991 • HEX View 2 300 • Физический маятник 1 960

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

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