Конвертируем 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;

Недавно добавленные исходники
• Animation Loaders 862 • DeLiKaTeS Tetris (Тетрис) 5 810 • TDictionary Custom Sort 7 770 • Fast Watermark Sources 7 443 • 3D Designer 10 673 • Sik Screen Capture 7 991 • Patch Maker 8 199 • Айболит (remote control) 8 250 • ListBox Drag & Drop 7 062 • Доска для игры Реверси 100 561 • Графические эффекты 8 325 • Рисование по маске 7 701 • Перетаскивание изображений 6 305 • Canvas Drawing 6 677 • Рисование Луны 6 606 • Поворот изображения 5 748 • Рисование стержней 4 686 • Paint on Shape 3 397 • Генератор кроссвордов 4 366 • Головоломка Paletto 3 513 • Теорема Монжа об окружностях 4 326 • Пазл Numbrix 2 800 • Заборы и коммивояжеры 3 744 • Игра HIP 2 518 • Игра Go (Го) 2 515 • Симулятор лифта 2 912 • Программа укладки плитки 2 338 • Генератор лабиринта 3 079 • Проверка числового ввода 2 574 • HEX View 2 977

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

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