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

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

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

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

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

←   Декабрь 2002   →
 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
31
Автор
Сергей

Статистика

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

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


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

DELPHI.mastak.ru

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

Кое-что из нашей кладовки   |x|
  • Person Info Book Songoku Songoku@tut.by   (29.11.02 00:29)
    Суть прграммы это записная книжка каторая умеет очень много: можно например всю базу сохранить в фаил реестра(*.reg) и после переустоновки винды всё востоновить!!!
    или всю базу перенести на другой комп.Посмотрите не пожилеете!!!
    Посмотрел я тут у вас ... вот пример проги каторая на писана на Delphi6-Console и занимает 34кб(UPX 19кб).
    »»» Скачать: исходные тексты (15кб) демонстрационный EXE файл (15кб)
Лучшее из нашего 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|
  • тип данных
    прошу помощи: есть запрос, как узнать тип данных и размерность полей из этого? использую size и precision - оба этих ...
  • Помогите!
    Народ посоветуйте! как в обыкновенном ComboBox сделать только на выбор чтобы в него ничего нельзя было писать!
  • Нужен компонент для работы с Excel (без установки Excel)
    Мастера! Нужен компонент для работы с Excel на машинах где он не установленный. Подскажите адреса где этот можно ...
  • Я не  експерт в MySQL
    Привіт! Скажите пожалуйста (только не ругайтесь :) ) можно ли и как делать Stored Procedures, Triggers в MySQL. Пасибо
  • Опрос модема USB
    Ну если по COM порту, советов много, даже в реестр пытались загнать(только зачем ???), то как опросить USB модем?
  • Можно ли отловить нажатие Reset'а?
    Собственно, сабж. Бывало, винда так повиснет, что ресет не действует, только тумблер сзади корпуса. Значит, можно его ...
  • Access violation при использовании массива
    Hi All. У меня проблемка следующего характера. При использовании массива объявленного как: var s : array of string; и ...
У нас большой выбор статей   |x|
Серия статей. Kylix Tutorial. 4. Использование однонаправленных наборов данных.
Однонаправленные наборы данных предоставляют механизм доступа для чтения данных из таблиц сервера БД с помощью SQL команд. Они созданы для быстрого и "легковесного" доступа к информации сервера БД с минимальной загрузкой последнего...
Новинки книжного рынка   |x|
Delphi 6 и Kylix для программиста
В этой книге на практических примерах рассмотрены все возможности среды Delphi 6. Читательузнает, как создавать многоуровневые программы для работы с базами данных, Интернет-системы и сетевые распределенные приложения на основе технологий СОМ и CORBA. Рассмотрены механизмы преобразования XML-данных и приемы разработки служб WebServices. В большинстве случаев программист может обойтись визуальными средствами Delphi.Характер авторских работ С. Бобровского традиционно отличается тем, что они не только служат фундаментальными руководствами по новым технологиям программирования, но и представляют собой удобные справочники, полезные каждому программисту, независимо от уровня его подготовки.
Автор: Бобровский С.
Другие сайты о DELPHI   |x|
ICQ2000 Сделай Сам :)
Сайт для тех, кто интересуется протоколами ICQ.
Описана работа протокола ICQ2000a (ICQv7),
Подробно-комментированные исходные коды для Delphi-5 прилагаются.
(ICQ2000 для начинающих и не ...
» Оценка сайта: 3
Опрос населения :)
Новый журнал для программистов "RSDN Magazine". Готовы ли вы подписаться на него?
»»» Да, на сколько возможно
»»» Да, на 6 месяцев
»»» Да, на 3 месяца
»»» Да, на 1 месяц
»»» Нет, не готов
»»» Не знаю
Журнал "RSDN Magazine"  |x|

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

Для души

Хокку дня
В лунном сиянье
Движется к самым воротам
Гребень прилива.

Афоризмы
Будь великодушен - прощай подчиненным свои ошибки....( прислал Алексей)

Фраза дня
Скажи мне кто я, и я скажу тебе кто ты.

Дурацкие законы (информация предоставлена сайтом kurilka.com)
Во Франции строжайще запрещено звать свинью "Наполеоном".
В Пенсильвании (США) не разрешается, чтобы в доме вместе проживали более 16-ти женщин (по мнению законодателей, 17 женщин - это уже бордель). Закон, однако, позволят совместно жить 120-ти мужчинам.

И на закуску коротенький анекдот
Хмурое утро, жена выгоняет интернетчика погулять с собакой...
Он долго бродит с ней, потом поднимает палку, кидает её и командует:
- Э-э-э, Яндекс!!! То есть, Рамблер!!! Тьфу, апорт!!!

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

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

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