Отправляет 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

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

Вышел очередной дайджест форумов. Скачать можно здесь
Новые компоненты   |x|
  • QuickRegistry (5Kb) (10.01.02 08:59)
    Этот модуль следует использовать только при небольшом количестве операций с реестром. Каждая операция пишется всего одной строкой кода. Нет необходимости объявлять переменную TRegistry, выбирать ROOT, KEY и только после этого выполнять операции read/write...
    Например: QuickWriteBool('HKEY_CURRENT_USERSoftwareMy progAutosave', CheckBox1.Checked, True);
    Источник: www.delphipages.com   Автор: Slavik N
    -= · VCL · =- [Перевел: Сергей Зинин]
  • TVSSIRMan v.1.2 (17kb) (10.01.02 08:52)
    Эта компонента используется в интерфейсе связи с IRMan (инфракрасный удаленный порт) приемного устройства. Компонента позволяет соединиться с устройством, генерировать события при соединении, разъединении и т.д. всякий раз при приеме IR-кода.
    Новая версия компоненты.
    С исходными текстами.
    Компонента из раздела: Communications: Other
    Источник: www.torry.net   Автор: Visual Software Solutions http://www.vss.co.nz/
    -= · VCL · Samples · =- [Перевел: Сергей Зинин]
  • Для уменьшения объема писем здесь публикуется не весь список новых компонент, потому заглядывайте и на сайт!
Кое-что из нашей кладовки   |x|
  • DosCommand Kolesya vag@netex.com.ua   (09.01.02 10:59)
    Компонента для работы с дос окнами, позволяет отлавливать и передавать сообщения дос процессу
    »»» Скачать: исходные тексты (6кб)
  • TFileBox Serghei korvin_mail@yahoo.com   (09.01.02 09:27)
    Переписанный TFileListBox для отбражния файлов с их зарегистрированными иконками! Вроде бы работает нормально!
    »»» Скачать: исходные тексты (2кб)
  • TImageBtn -=[George]=-   (20.11.01 10:26)
    Унаследован от TImage. Простой компонент для "оживления" программы. Представляет из себя Image, который реагирует на вход/выход мыши и нажатие. Имеет три состояния: "мышь вне компонента", "мышь над компонентом", "мышь нажата на компоненте". Для каждого сотояния загружается отдельное изображение.
    »»» Скачать: исходные тексты (6кб)
  • Функции получения системной информации о компьютере Torn torns@ezmail.ru   (10.01.02 02:31)
    Здесь представлено несколько, написанных мною функций, которые я надеюсь кому-нибудь пригодятся.
    »»» Скачать: исходные тексты (1кб)
Лучшее из нашего 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); 
    AcroApp.Exit; 

  finally 
    VarC!
lear(PDDoc); 
    VarClear(AVDoc); 
    VarClear(AcroApp); 
  end; 
end;


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

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

Обсуждается в конференциях   |x|
У нас большой выбор статей   |x|
Серия статей. Kylix Tutorial. 1. Установка.
Итак, свершилось, проходя мимо ларька с CD я увидел компакт с этикеткой синего цвета и магической надписью Kylix. Вернее диска было два и оба были немедленно куплены.
Ставить Kylix я пробовал под RedHat Linux 7.0. Для установки нам потребуется...
Новинки книжного рынка   |x|
Самоучитель Kylix
Книга посвящена новому продукту фирмы Borland - объектно-ориентированной среде для быстрой разработки приложений под Linux. Рассматривается версия Kylix 1.0 Server Developer.
Приводятся приемы работы с графическими компонентами, принципы создания приложений баз данных и собственных компонентов.
Дается краткое описание языка программирования Object Pascal. Последняя часть книги посвящена проблеме создания межплатформенных приложений, которые работают как в среде Linux, так и в Windows.
Изложение сопровождается многочисленными примерами и фрагментами кода.Для программистов
Автор: Понамарев В.
Другие сайты о DELPHI   |x|
NuD team® home page
NuD team home page - сайт, в основном посвящённый програмированию на Delphi. Так же имеются пара примеров написания скриптов на Perl, кое-что из личного опыта работыс Linux и ещё немного интересных ...
Опрос населения :)
Что мешает плохому танцору?
»»» Эти штуки... ;)
»»» Танцовщица
»»» Крылья
»»» Оппозиция
»»» Что и хорошему
»»» Ничего мне не мешает!
Журнал "RSDN Magazine"  |x|

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

Для души

Хокку дня
Бесполезно, бесполезно -
сильный дождь,
идущий в море.

Афоризмы
Мир - это враг, прикидывающийся другом...

Фраза дня
В свободное от работы время военные халтурят - воюют на стороне противника?

И на закуску коротенький анекдот
Приходит мужичок в компьютерную лавку и спрашивает:
- У вас есть спирали для чайников?
Продавец:
- Спирали? Для... чайников???

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

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

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