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

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

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

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

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

←   Июнь 2004   →
 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

DELPHIMASTER.ru

Выпуск от 22.06.04 09:18

Акция !

Внимание!Акция в поддержку отечественного производителя ПО. Подробнее...

Новые компоненты   |x|
  • FastReport Server (21.06.04 20:05)
    Открыто online тестирование FastReport Server

    Предлагаем вам поучаствовать в тестировании находящегося в разработке сервера FastReport. В данный момент доступна тестовая онлайн-версия сервера.
    Автор: FastReport
    -= · Tools · =-
  • Приглашаем Вас присоединиться к тестированию FastReport™ 3 beta! (18.06.04 20:04)
    Кракий список нововведений:

    Переработанная иерархия классов.
    Формат сохранения файлов - xml.
    Полный WYSIWYG (теперь и для текста).
    Текст под углом 0..360.
    Поддержка простых html-тэгов (font color, b, i, u, sub, sup) в объекте Memo.
    Улучшенное растягивание мемо-объектов (св-ва StretchMode и ShiftMode).
    Задание алиасов для таблиц и полей БД.
    Стили
    Перетекание текста
    Св-ва Cursor, URL у объектов отчета. Поддержка anchors.
    Построение отчетов для вывода на матричный принтер.
    Единый скрипт для всего отчета (как unit в Delphi).
    Новые обработчики событий для объектов отчета.
    Четыре скриптовых языка - PascalScript, C++Script, JSCript, BasicScript.
    Новые возможности (try/except, with, case и т.п.)
    Отладчик
    Улучшенный Object Inspector с поддержкой вложенных св-в.
    Масштабирование.
    Линейки, выносные линии.
    Редактирование мемо-объектов на месте.
    Инструменты "рука", "лупа", "текст".
    Бэнды, "прилипающие" друг к другу.
    Возможность отображать содержимое поля БД вместо его названия.
    Сетка-миллиметровка, дюймовка, с произвольным шагом.
    Изменение левой/правой границ листа (объекты сдвигаются автоматически).
    Мастера для создания базовых типов отчетов.
    Копирование объектов в буфер обмена Windows.
    Полное Undo/Redo.
    Подробнее: http://www.fastreport.ru/ru/fr3.php
    Скачать: http://www.fastreport.ru/ru/download.php#0
    Скриншот: http://www.fastreport.ru/images/fr3_1.gif
    Автор: Fast Reports http://www.fast-report.com
    -= · Tools · =-
  • Для уменьшения объема писем здесь публикуется не весь список новых компонент, потому заглядывайте и на сайт!
Лучшее из нашего FAQ   |x|
Delphi and Outlook
»»» Paul (30.04.00 13:56)
Подскажите как прочитать адресную книгу Outlook (MSOffice) из Delphi и занести данные в таблицу *.db???

»»» Алексей - melrin@mastak.com (07.05.00 03:07)
Полагаю, что работа с Outlook идентична работе с Exel через OLE. Пример смотрите в FAQ - Система. А список команд управления Оутглюком есть в MSDN.

»»» Rukhimovich Oleg - rukhiich@hotmail.com (06.06.00 20:16)
Сперва сделай 'Import type Library' для Outlk80.olb, (расположен в \Program Files\Microsoft Office\Office).
После того, как появится файл 'Outlook_TLB.pas', можно нацарапать следующее:



uses ComObj, Outlook_TLB;

procedure TForm1.Button1Click(Sender: TObject);
var
  MSOutlook,
  MyNameSpace,
  MyFolder,
  MyItem: Variant;
  s: string;
  i: Integer;
begin

 try
    MSOutlook := CreateOleObject('Outlook.Application');
    MyNameSpa
 ce := MSOutlook.GetNameSpace('MAPI');
    MyFolder := MyNamespace.GetDefaultFolder(olFolderContacts);

    for i := 1 to MyFolder.Items.Count do begin
      s := s + #13#13'Contact No: ' + IntToStr(i) + #13#13;
      MyItem := MyFolder.Items[i];

      s := s + 'BillingInformation: ' + MyItem.BillingInformation + #13;
      s := s + 'Body: ' + MyItem.Body + #13;
      s := s + 'Categories: ' + MyItem.Categories + #13;
      s := s + 'Companies: ' + MyItem.Companies + #13;
      s := s + 'CreationTime: ' + DateTimeToStr(MyItem.CreationTime) + #13;
      s := s + 'EntryID: ' + MyItem.EntryID + #13;
      s := s + 'Importance: ' + IntToStr(MyItem.Importance) + #13;
      s := s + 'LastModificationTime: ' + DateTimeToStr(MyItem.LastModificationTime) + #13;
      s := s + 'MessageClass: ' + MyItem.MessageClass + #13;
      s
:= s + 'Mileage: ' + MyItem.Mileage + #13;
      s := s + 'NoAging: ' + IntToStr(MyIt
 em.NoAging) + #13;
      s := s + 'OutlookVersion: ' + My!
 Item.Out
lookVersion + #13;
      s := s + 'Saved: ' + IntToStr(MyItem.Saved) + #13;
      s := s + 'Sensitivity: ' + IntToStr(MyItem.Sensitivity) + #13;
      s := s + 'Size: ' + IntToStr(MyItem.Size) + #13;
      s := s + 'Subject: ' + MyItem.Subject + #13;
      s := s + 'UnRead: ' + IntToStr(MyItem.UnRead) + #13;
      s := s + 'Account: ' + MyItem.Account + #13;
      s := s + 'Anniversary: ' + DateTimeToStr(MyItem.Anniversary) + #13;
      s := s + 'AssistantName: ' + MyItem.AssistantName + #13;
      s := s + 'AssistantTelephoneNumber: ' + MyItem.AssistantTelephoneNumber + #13;
      s := s + 'Birthday: ' + DateTimeToStr(MyItem.Birthday) + #13;
      s := s + 'Business2TelephoneNumber: ' + MyItem.Business2TelephoneNumber + #13;
      s := s + 'BusinessAddress: ' + MyItem.BusinessAddress + #13;
      s := s + 'BusinessAddressCity: ' + MyItem.BusinessAddressCity
+ #13;
      s := s + 'BusinessAddressCountry: ' + MyItem.BusinessAddressCoun
 try + #13;
      s := s + 'BusinessAddressPostalCode: ' + MyItem.BusinessAddressPostalCode + #13;
      s := s + 'BusinessAddressPostOfficeBox: ' + MyItem.BusinessAddressPostOfficeBox + #13;
      s := s + 'BusinessAddressState: ' + MyItem.BusinessAddressState + #13;
      s := s + 'BusinessAddressStreet: ' + MyItem.BusinessAddressStreet + #13;
      s := s + 'BusinessFaxNumber: ' + MyItem.BusinessFaxNumber + #13;
      s := s + 'BusinessHomePage: ' + MyItem.BusinessHomePage + #13;
      s := s + 'BusinessTelephoneNumber: ' + MyItem.BusinessTelephoneNumber + #13;
      s := s + 'CallbackTelephoneNumber: ' + MyItem.CallbackTelephoneNumber + #13;
      s := s + 'CarTelephoneNumber: ' + MyItem.CarTelephoneNumber + #13;
      s := s + 'Children: ' + MyItem.Children + #13;
      s := s + 'CompanyAndFullName: ' + MyItem.CompanyAndFullName + #13;
      s := s
+ 'CompanyMainTelephoneNumber: ' + MyItem.CompanyMainTelephoneNumber + #13;
      s :
 = s + 'CompanyName: ' + MyItem.CompanyName + #13;
      s!
  := s + 
'ComputerNetworkName: ' + MyItem.ComputerNetworkName + #13;
      s := s + 'CustomerID: ' + MyItem.CustomerID + #13;
      s := s + 'Department: ' + MyItem.Department + #13;
      s := s + 'Email1Address: ' + MyItem.Email1Address + #13;
      s := s + 'Email1AddressType: ' + MyItem.Email1AddressType + #13;
      s := s + 'Email1DisplayName: ' + MyItem.Email1DisplayName + #13;
      s := s + 'Email1EntryID: ' + MyItem.Email1EntryID + #13;
      s := s + 'Email2Address: ' + MyItem.Email2Address + #13;
      s := s + 'Email2AddressType: ' + MyItem.Email2AddressType + #13;
      s := s + 'Email2DisplayName: ' + MyItem.Email2DisplayName + #13;
      s := s + 'Email2EntryID: ' + MyItem.Email2EntryID + #13;
      s := s + 'Email3Address: ' + MyItem.Email3Address + #13;
      s := s + 'Email3AddressType: ' + MyItem.Email3AddressType + #13;
      s := s + 'Email3DisplayName:
' + MyItem.Email3DisplayName + #13;
      s := s + 'Email3EntryID: ' 
 + MyItem.Email3EntryID + #13;
      s := s + 'FileAs: ' + MyItem.FileAs + #13;
      s := s + 'FirstName: ' + MyItem.FirstName + #13;
      s := s + 'FTPSite: ' + MyItem.FTPSite + #13;
      s := s + 'FullName: ' + MyItem.FullName + #13;
      s := s + 'FullNameAndCompany: ' + MyItem.FullNameAndCompany + #13;
      s := s + 'Gender: ' + IntToStr(MyItem.Gender) + #13;
      s := s + 'GovernmentIDNumber: ' + MyItem.GovernmentIDNumber + #13;
      s := s + 'Hobby: ' + MyItem.Hobby + #13;
      s := s + 'Home2TelephoneNumber: ' + MyItem.Home2TelephoneNumber + #13;
      s := s + 'HomeAddress: ' + MyItem.HomeAddress + #13;
      s := s + 'HomeAddressCity: ' + MyItem.HomeAddressCity + #13;
      s := s + 'HomeAddressCountry: ' + MyItem.HomeAddressCountry + #13;
      s := s + 'HomeAddressPostalCode: ' + MyItem.HomeAddressPostalCode + #13;
      s := s
+ 'HomeAddressPostOfficeBox: ' + MyItem.HomeAddressPostOfficeBox + #13;
      s := s +
  'HomeAddressState: ' + MyItem.HomeAddressState + #13;
  !
     s :=
 s + 'HomeAddressStreet: ' + MyItem.HomeAddressStreet + #13;
      s := s + 'HomeFaxNumber: ' + MyItem.HomeFaxNumber + #13;
      s := s + 'HomeTelephoneNumber: ' + MyItem.HomeTelephoneNumber + #13;
      s := s + 'Initials: ' + MyItem.Initials + #13;
      s := s + 'ISDNNumber: ' + MyItem.ISDNNumber + #13;
      s := s + 'JobTitle: ' + MyItem.JobTitle + #13;
      s := s + 'Journal: ' + IntToStr(MyItem.Journal) + #13;
      s := s + 'Language: ' + MyItem.Language + #13;
      s := s + 'LastName: ' + MyItem.LastName + #13;
      s := s + 'LastNameAndFirstName: ' + MyItem.LastNameAndFirstName + #13;
      s := s + 'MailingAddress: ' + MyItem.MailingAddress + #13;
      s := s + 'MailingAddressCity: ' + MyItem.MailingAddressCity + #13;
      s := s + 'MailingAddressCountry: ' + MyItem.MailingAddressCountry + #13;
      s := s + 'MailingAddressPostalCode:
' + MyItem.MailingAddressPostalCode + #13;
      s := s + 'MailingAddressPostOffice
 Box: ' + MyItem.MailingAddressPostOfficeBox + #13;
      s := s + 'MailingAddressState: ' + MyItem.MailingAddressState + #13;
      s := s + 'MailingAddressStreet: ' + MyItem.MailingAddressStreet + #13;
      s := s + 'ManagerName: ' + MyItem.ManagerName + #13;
      s := s + 'MiddleName: ' + MyItem.MiddleName + #13;
      s := s + 'MobileTelephoneNumber: ' + MyItem.MobileTelephoneNumber + #13;
      s := s + 'NickName: ' + MyItem.NickName + #13;
      s := s + 'OfficeLocation: ' + MyItem.OfficeLocation + #13;
      s := s + 'OrganizationalIDNumber: ' + MyItem.OrganizationalIDNumber + #13;
      s := s + 'OtherAddress: ' + MyItem.OtherAddress + #13;
      s := s + 'OtherAddressCity: ' + MyItem.OtherAddressCity + #13;
      s := s + 'OtherAddressCountry: ' + MyItem.OtherAddressCountry + #13;
      s := s + 'OtherAddressPostalCode: ' + MyItem.OtherAddressPostalCode
+ #13;
      s := s + 'OtherAddressPostOfficeBox: ' + MyItem.OtherAddressP
 ostOfficeBox + #13;
      s := s + 'OtherAddressState: ' !
 + MyItem
OtherAddressState + #13;
      s := s + 'OtherAddressStreet: ' + MyItem.OtherAddressStreet + #13;
      s := s + 'OtherFaxNumber: ' + MyItem.OtherFaxNumber + #13;
      s := s + 'OtherTelephoneNumber: ' + MyItem.OtherTelephoneNumber + #13;
      s := s + 'PagerNumber: ' + MyItem.PagerNumber + #13;
      s := s + 'PersonalHomePage: ' + MyItem.PersonalHomePage + #13;
      s := s + 'PrimaryTelephoneNumber: ' + MyItem.PrimaryTelephoneNumber + #13;
      s := s + 'Profession: ' + MyItem.Profession + #13;
      s := s + 'RadioTelephoneNumber: ' + MyItem.RadioTelephoneNumber + #13;
      s := s + 'ReferredBy: ' + MyItem.ReferredBy + #13;
      s := s + 'SelectedMailingAddress: ' + IntToStr(MyItem.SelectedMailingAddress) + #13;
      s := s + 'Spouse: ' + MyItem.Spouse + #13;
      s := s + 'Suffix: ' + MyItem.Suffix + #13;
      s := s + 'TelexNumber: ' +
MyItem.TelexNumber + #13;
      s := s + 'Title: ' + MyItem.Title + #13;
      s :
 = s + 'TTYTDDTelephoneNumber: ' + MyItem.TTYTDDTelephoneNumber + #13;
      s := s + 'User1: ' + MyItem.User1 + #13;
      s := s + 'User2: ' + MyItem.User2 + #13;
      s := s + 'User3: ' + MyItem.User3 + #13;
      s := s + 'User4: ' + MyItem.User4 + #13;
      s := s + 'UserCertificate: ' + MyItem.UserCertificate + #13;
      s := s + 'WebPage: ' + MyItem.WebPage + #13;

    end;
    Memo1.Lines.Text := s;
  except
    on E: Exception do MessageDlg(E.Message + #13 + s, mtError, [mbOk], 0)
  end;
  MSOutlook.Quit;
end;


-= Из конференции сайта MASTERS OF DELPHI (http://delphi.mastak.com) =-

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

Обсуждается в конференциях   |x|
  • изменение таблицы через Query
    делаю так: Query.UpdateObject:=TUpdateSQL; Query.CachedUpdates:=true; потом генерирую SQL запрос; что ещё нало сделать, ...
  • Фиксированое полжение кнопки.
    Доброго времени суток. Что то не найду,точнее нашел, но снова не пойму как сделать фиксированое нажатин кнопки ? У ...
  • Масштабирование TextBox в Word
    Перерыл кучу инфы, но так и не нашел как исправить, может кто поможет. Есть компанент TImage в котором картинка, ...
  • Подскажите, плиз как искать папки
    Когда я использую FindFirst с атрибутом faDirectory, то находятся не только директории, но и файлы, а файлы мне не ...
  • Зачем мы этим занимаемся?(филосовствуем)
    Имеется в виду занятие геймдевом... Бдящим начальникам: Прошу ветку никуда не переносить(в потрепаться), так как ...
  • Timage
    есть много катринок, при наведении на какую либо загружается другая картинка. необходимо при убирании с нее мышки ...
  • FreeLibrary
    Здравствуйте, Господа. Попал в затруднительную ситуацию. Тупею. :-) Вот кусок кода: procedure TForm1.Button3Click(...
У нас большой выбор статей   |x|
ЛОВИМ БАГИ или ПОЧЕМУ ПРОГРАММЫ ДОПУСКАЮТ "НЕДОПУСТИМЫЕ ОПЕРАЦИИ"
Ошибки - неизбежное зло программирования. Видимо пока трудно даже представить средство с помощью которого можно избавится от них. Человеку, которые выдумает это чудодейственное лекарство, благодарные потомки-программисты, несомненно, воздвигнут памятник. Пока же остается лишь заниматься обычным делом: ловлей багов.
Новинки книжного рынка   |x|
Экстремальное программирование: разработка через тестирование.
Изящный, гибкий и понятный код, который легко модифицировать, который корректно работает и который не подкидывает своим создателям неприятных сюрпризов. Неужели, подобное возможно? Чтобы достичь цели, попробуйте тестировать программу еще до того, как она написана. Именно такая парадоксальная идея положена в основу методики TDD (Test-Driven-Development — разработка, основанная на тестировании). Бессмыслица? Не спешите делать скороспелых выводов. Рассматривая применение TDD на примере разработки реального программного кода, автор демонстрирует простоту и мощь этой новой методики. В книге рассматриваются два программных проекта, целиком и полностью реализованных с использованием TDD. За рассмотрением примеров следует обширный каталог приемов работы в стиле TDD, а также паттернов и рефакторингов, имеющих отношение к TDD. Книга будет полезна для любого программиста, желающего повысить производительность свой работы и получить удовольствие от программирования.
Автор: Бек К.
Опрос населения :)
Какой сайт по Delphi лучший?
»»» Королевство Дельфи
»»» Этот сайт
»»» Дельфи. Вокруг да около
»»» Другой
»»» Чем больше, тем лучше!
Для души

Хокку дня
Над жаворонками
Отдыхаю в бескрайнем небе
На перевале.

Афоризмы
Человек редко ошибается дважды - обычно раза три или больше (Джон Перри Барлоу)

Фраза дня
Разговаривают две женщины о мужьях:
- Сначала он бросил пить, потом он бросил курить, потом он бросил меня...

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

И на закуску коротенький анекдот
Судья задает свидетельнице средних лет вопросы в зале суда:
- Вы были замужем?
- Да, дважды.
- Сколько вам лет?
- Двадцать пять.
- Тоже дважды?

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

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

Добро пожаловать на сайт -= Мастера DELPHI =- 

http://subscribe.ru/
E-mail: ask@subscribe.ru 		Отписаться
Убрать рекламу

В избранное