Отправляет email-рассылки с помощью сервиса Sendsay

Мастера DELPHI. Новости мира компонент, FAQ, статьи...

Рассылка закрыта

При закрытии подписчики были переданы в рассылку "Delphi - проблемы и решения" на которую и рекомендуем вам подписаться.

Вы можете найти рассылки сходной тематики в Каталоге рассылок.

←   Апрель 2003   →
 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
Автор
Сергей

Статистика

13.577 подписчиков
-18 за неделю
←   Все выпуски   →

Мастера DELPHI. Новости мира компонент, FAQ, статьи...


Информационный Канал Subscribe.Ru
Ежедневная рассылка сайта Мастера DELPHI

DELPHI.mastak.ru

Выпуск от 05.04.03 09:04

Восьмая техническая конференция "Корпоративные базы данных-2003"
Москва, 17-18 апреля, 2003 года
Кое-что из нашей кладовки   |x|
Лучшее из нашего FAQ   |x|
Конвертируем TIF в PDF.
Совместимость: 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 

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); 
   &nbs!
p;AcroApp.Exit; 

  finally 
    VarClear(PDDoc); 
    VarClear(AVDoc); 
    VarClear(AcroApp); 
  end; 
end;


Автор: Morten Ravn-Jonsen (morav@newwebsolutions.dk)
Источник: http://www.sources.ru/delphi/

»»» Прислать свои комментарии

Обсуждается в конференциях   |x|
  • CD-ROM
    Помогите, пожалуйста, разобраться с такой проблемой: необходимо, чтобы программа, написанная на Delphi распозновала все ...
  • Как заставить TDBCheckBox видеть пустоту ?
    Имеется таблица в Oracle 8, скажем вот такой структуры: desc T1; F1 number(1); Нужно чтобы DBCheckBox был с галочкой ...
  • Длинные числа!
    Здравствуйте! Может у кого-нибудь есть примеры с работой над длинными числами, мне нужно только умножение. Желательно ...
  • Null-параметры
    Уважаемые знатоки! Как установить параметру запроса Null-значение?
  • Связь полей в таблицах
    Я создал две таблицы в datbase desktop в формате paradox7. потом открыл одну из них и хотел задать table lookup - ...
  • Как программо отключинь винчестер ?
    Как програмно отключить винчестер ? Виндовс его сама может отключить, если есть бездействие диска. Но мне нужно, чтобы ...
  • Клавиатурный шпион
    Привет, Ни кто не подкинет инфу по созданиб клавиатурных шпионов?? А то срочно нужно сделать именно свой шпион..а ...
У нас большой выбор статей   |x|
Работа с Com портом под Windows
В отличие от DOS Win 9x,NT имеет другую идеологию работы с аппаратурой. Если в нашем уважаемом старичке DOS драйвер мог быть написан на asm с прямым доступом к портам, то в Win все немного сложнее...
Новинки книжного рынка   |x|
Delphi 5: учебный курс
В книге рассмотрены возможности системы программирования Delphi 5, описан язык программирования Object Pascal, рассмотрены визуальные компоненты системы и методы их создания. Особое внимание уделено принципам и практическим приемам создания сетевых приложений для разных архитектур и разработке программ, поддерживающих основные протоколы Интернета.Не требует специальной подготовки, может быть использована как пособие для изучающих основы программирования и сетевые технологии, а также как справочник по компонентам Delphi и пособие для самообразования.
Автор: С. Бобровский
Другие сайты о DELPHI   |x|
Уголок разработчика
Новый сайт для разработчиков GJ
» Оценка сайта: 2
Опрос населения :)
Что мешает плохому танцору?
»»» Эти штуки... ;)
»»» Танцовщица
»»» Крылья
»»» Оппозиция
»»» Что и хорошему
»»» Ничего мне не мешает!
Журнал "RSDN Magazine"  |x|

Дорогие друзья! Мы рады представить вам новый совместный проект сайтов www.rsdn.ru, delphi.mastak.ru и www.optim.ru - профессиональный журнал для программистов RSDN Magazine.
Несомненно, ваше мнение о необходимости такого журнала, содержании рубрик и темах отдельных статей поможет сделать журнал более полезным и интересным. Высказать свое мнение, проголосовать или же подписаться вы можете на сайте. Без вашего участия, нам будет трудно сделать правильный журнал!
На сайте выложен анонс пилотного выпуска журнала, вступительное слово от редакции.

Для души

Хокку дня
О, с какой тоской
Птица из клетки глядит
На полет мотылька!

Афоризмы
Одиночество - великая вещь, но не тогда, когда ты один (Джордж Бернард Шоу)

Фраза дня
Вы очень кстати - у нас тут разврат...

Дурацкие законы (информация предоставлена сайтом kurilka.com)
В провинции Виктория в Австралии запрещается ходить в розовых штанах после полудня в воскресенье.
В городе Фарго в Северной Дакоте (США) вам грозит тюрьма, если вы будете танцевать в шляпе.

И на закуску коротенький анекдот
Чем дольше общаешься с девушками - тем сильнее понимаешь голубых.

Фотоприколы.
Начните день с хорошего настроения!
http://delphi.mastak.ru/cgi-bin/prikol.pl?id=1129

На этом позвольте откланяться и пожелать вам удачного дня.
Искренне ваш, Алексей (delphi@mastak.com)

Добро пожаловать на сайт -= Мастера DELPHI =- 
http://subscribe.ru/
E-mail: ask@subscribe.ru 		Отписаться
Убрать рекламу
В избранное