![]() |
Здравствуйте Гость ( Вход | Регистрация ) | Выслать повторно письмо для активации |
Страницы: (2) [1] 2 ( Перейти к первому непрочитанному сообщению ) | ![]() ![]() ![]() |
Домофонщик |
Отправлено: Mar 17 2008, 12:40 PM
|
||||||||||||||||||||
Генерал ![]() Группа: Members Сообщений: 244 Пользователь №: 1099 Регистрация: 22-August 07 ![]() |
Каждый хоть однажды да пользовался мобильным телефоном. А уж про «Сервис Коротких Сообщений» (или даже «Коротких Сообщений Сервис» — Short Message Service) и говорить не стоит. Попробуем средствами Delphi создать приложение для отправки этих самых SMS на терминал пользователя через Интернет. Для начала потребуется написать программу отправки электронных писем с компьютера. Можно, конечно, воспользоваться почтовыми программами типа Outlook или The Bat!, но всегда ведь интереснее сделать что-то самому. Операторы сотовой связи предоставляют функцию с красноречивым названием email2sms, т.е. отправленное на определенный адрес электронное письмо доставляется на номер абонента в виде SMS. Осуществлять все будем посредством встроенных в среду Delphi 7 компонентов Indy (обладатели более ранних версий Delphi могут найти их в Интернете). Запускаем Delphi, создаем новый проект, бросаем на форму компоненты idSMTP (вкладка Indy Clients), idAntiFreeze, id Message ( Indy Misc). Теперь о каждом из них поподробнее. • idSMTP — для работы с сетью по протоколу SMTP; • idAntiFreeze не даст зависнуть приложению во время работы с сетью; • id Message хранит списки адресатов, отправителей, заголовки, прикрепленные файлы, тело сообщения. Еще понадобится один компонент типа TMemo (вкладка Standard), кнопка TSpeedButton (вкладка Additional), 6 полей для ввода типа TLabeledEdit (вкладка Additional) и по одному Checkbox`у и Combobox`у (вкладка Standard). Названия компонент в таблице 1, на рис. 1 показано диалоговое окно, которое должно получиться в результате. ![]() Приступим к процедуре отправки сообщения:
Ну а теперь напишем функцию компиляции адреса. ![]() Сначала объявите эту функцию в разделе private declarations:
Теперь одновременно зажмите клавиши Ctrl+Shift+C, и компилятор создаст объявленную функцию (вернее, шаблон для нее, а код допишем мы)… Для пользования программой нам нужно будет хранить данные об операторах и настройки. Для этого нам понадобится список операторов — они прописаны через запятую в файле (prov.ini), например вот так:
— и настройки в том же файле (prov.ini). Список операторов будет загружаться в наш Combobox, а настройки, как вы понимаете, — в поля настройки программы. Делфи хорошо умеет работать с .ini-файлами. Для этого укажем в разделе Uses модуль inifiles. В файле (prov.ini) мы также будем хранить почтовые настройки и список операторов с доменами (то, что пишется после @) и префиксами номеров (например 38045). Выглядеть это должно примерно так:
Получать эти данные мы будем с помощью встроенной функции Делфи — readString(section, ident, default), где первый параметр — это название раздела (у нас some_operator), второй — название переменной (domain или prefix в нашем случае), а третий — строка, которую вы получите, если не удастся найти подходящий раздел или переменную. Ну а теперь функция компиляции адреса:
Эту функцию мы закончили, а теперь приступим к загрузке и сохранению настроек программы. Для этого мы будем использовать обработчики событий OnCreate и OnClose главной формы (в инспекторе объектов на вкладке Events). Вот так это выглядит у меня:
Здесь мы загружаем почтовые настройки из все того же файла (prov.ini). При первой загрузке программы получите диалоговое окно, представленное на рис. 2. Как видите, во всех полях отображается слово default; вы можете вместо него написать что-то другое, или для каждой отдельной настройки указать свое значение по умолчанию. На этом этапе, если вы исправите настройки, они не сохранятся, поэтому пишем вот что:
Теперь программа будет сохранять свои почтовые настройки. ![]() Не будем забывать и о том, что размер SMS не должен превышать 160 символов. Для этого нужно написать предупреждение. То есть пользователь сможет оценить количество набранных символов и в крайнем случае перефразирует сообщение. Для этого бросаем на форму еще один компонент — TStatusBar (вкладка Win32). Можно оставить его внизу формы (по умолчанию), а можно сделать так, как у меня (под msgText) — для этого нужно переключить его свойство Align с Bottom на None. После чего создаем обработчик события OnChange для нашего msgText (кликните на компоненте — в инспекторе свойств во вкладке Events вы увидите этот обработчик) и в нем пишем:
Окно рабочей программы на рис. 3. Остается занести данные об операторах сотовой связи. Открываем в Блокноте файл prov.ini и заполняем его таким образом:
![]() В конце концов этот файл должен иметь примерно такое содержание:
Приведены вымышленные почтовые настройки и несуществующие операторы. Почтовые настройки узнавайте у вашего почтового провайдера (для исходящей почты), а настройки некоторых национальных операторов смотрите в таблице 2. При желании программу можно дооснастить адресной книгой, списком шаблонов, возможностью переключения раскладки клавиатуры, поддержкой транслитерации и т.д. ![]() |
||||||||||||||||||||
DelphiST |
Отправлено: Mar 17 2008, 12:49 PM
|
![]() Команда ЭйсВэб ![]() Группа: Super moderator Сообщений: 1093 Пользователь №: 796 Регистрация: 23-May 07 ![]() |
Слизано с http://articles.org.ru/cn/showdetail.php?cid=2971
Уважай авторские права, ты же Человек! -------------------- ![]() |
Домофонщик |
![]() |
Генерал ![]() Группа: Members Сообщений: 244 Пользователь №: 1099 Регистрация: 22-August 07 ![]() |
А что я???
Чуть что сразу я!!! Я вобще эту статью из журнала взял!!!!! И я не писал, что это моя статья ![]() |
DelphiST |
Отправлено: Mar 17 2008, 02:17 PM
|
![]() Команда ЭйсВэб ![]() Группа: Super moderator Сообщений: 1093 Пользователь №: 796 Регистрация: 23-May 07 ![]() |
А Домофонщик тут не причём!
А что, журнал это не источник? -------------------- ![]() |
rds |
Отправлено: Mar 17 2008, 09:32 PM
|
![]() Команда ЭйсВэб ![]() Группа: Super moderator Сообщений: 767 Пользователь №: 102 Регистрация: 19-November 06 ![]() |
Домофонщик на будущие, всегда указывай ссылку на источник.. уважай людей..
-------------------- Поиск VPS - Сервис подбора VPS серверов. |
Домофонщик |
![]() |
Генерал ![]() Группа: Members Сообщений: 244 Пользователь №: 1099 Регистрация: 22-August 07 ![]() |
Договорились
![]() |
Кок |
Отправлено: Mar 14 2014, 05:18 PM
|
Сержант ![]() Группа: Members Сообщений: 10 Пользователь №: 4957 Регистрация: 10-December 13 ![]() |
Моя любимая домашняя кухня.
![]() Картофель «Дофин» Самый простой рецепт приготовления известного блюда «Дофин» — картофель запекается в сливках. Следуя классике рецепта «Дофин», при желании можно добавить мускатный орех и посыпать картошку тертым сыром. Продукты (на 6 порций) Картофель — 800-900 г Сливки нежирные (или жирное молоко) — около 2,5 стакана (600 г) Соль - по вкусу Перец - по вкусу Чеснок — 2-3 средних зубчика 1. Разогрейте духовку до 190 градусов. Очистите и нарежьте картофель кружками толщиной примерно 0,5 см. 2. Сложите картошку в кастрюлю, залейте сливками, перемешайте. Посолите и поперчите. 3. Поставьте кастрюлю на средний огонь, доведите до кипения. Накройте крышкой, уменьшите огонь и варите 5-10 минут. 4. Переложите картошку в неглубокую посуду для запекания (объемом около 2,5 л). Посыпьте мелко нарезанным чесноком, добавьте соль и перец по вкусу. 5. Сливки, в которых варилась картошка, процедите и залейте сливками картофель с чесноком. 6. Накройте фольгой и готовьте картофель «Дофин» в духовке около 40 минут. 7. Снимите фольгу и запекайте «Дофин» еще примерно 15 минут до золотистого цвета. |
Кок |
Отправлено: Jan 9 2015, 09:59 AM
|
Сержант ![]() Группа: Members Сообщений: 10 Пользователь №: 4957 Регистрация: 10-December 13 ![]() |
Вкусно сделать на обед минтай по домашнему.
Тефтели из минтая под маринадом Рыбу разделать на филе без кожи и костей, нарезать мелкими кусками, соединить с замоченным в молоке хлебом, слегка спассерованным репчатым луком и дважды пропустить через мясорубку. В фарш добавить соль, перец, оставшуюся от замачивания хлеба жидкость, хорошо перемешать и выбить. Из полученной массы сформировать шарики (тефтели), обвалять их в муке, поджарить 5-7 минут на плите и довести до готовности в духовке. Готовые тефтели охладить. При подаче на стол тефтели уложить в салатник и залить маринадом, приготовленным, как для скумбрии под маринадом. Готовое блюдо посыпать мелко шинкованным зеленым луком или зеленью петрушки, укропа. Продукты рыба (мелочь) 1 кг молоко 300 мл или вода 300 мл или бульон 300 мл хлеб пшеничный 250 г луковицы 2 шт. мука пшеничная 100 г масло растительное 100 мл масло сливочное 2 ст. ложки или маргарин 2 ст. ложки перец по вкусу соль по вкусу маринад овощной по вкусу |
jgxtyr |
Отправлено: Feb 5 2015, 12:21 PM
|
Солдат ![]() Группа: unior Сообщений: 3 Пользователь №: 5494 Регистрация: 5-February 15 ![]() |
спасибо за рецепты,очень вкусно
|
Midory |
Отправлено: Jul 29 2015, 12:11 PM
|
||
![]() Сержант ![]() Группа: Members Сообщений: 17 Пользователь №: 1509 Регистрация: 7-April 08 ![]() |
На здоровье ![]() Оцените еще маринад для скумбрии. Скумбрия под овощным маринадом Скумбрию варят в воде с овощами — морковью, петрушкой, репчатым луком и специями. Для этого воду с овощами довести до кипения и прокипятить на слабом огне 7—10 минут, затем положить в нее рыбу брюшком вниз и после вторичного закипания варить при слабом нагреве 15—20 минут. За 10 минут до окончания варки положить соль. Готовую рыбу вынуть из бульона, удалить головы, плавники, кости. Филе уложить в глубокую посуду, залить горячим маринадом и охладить. Приготовление маринада: овощи нашинковать соломкой или натереть на терке, и пассеровать на растительном масле до полуготовности, затем добавить томат и продолжают пассерование еще 10—15 минут. Пассерованные с томатом овощи залить бульоном, добавить специи, довести до кипения и тушить 15— 20 минут под закрытой крышкой. За 5 минут до готовности маринад заправить солью, сахаром и уксусом. Продукты рыба (тушки) 1 кг морковь 400 г луковицы 4 шт. бульон рыбный 250 мл томат-паста 200 г или томат-пюре 200 г или кетчуп 200 г уксус 3% 200 мл масло растительное 75 мл корень петрушки 50 г сельдерей 25 г сахар 25 г перец душистый горошком 4-5 шт. лавровый лист по вкусу гвоздика по вкусу соль по вкусу |
||
![]() |
![]() ![]() ![]() |