Интернет обучение ВЫПУСК №2

Фирма InterKurs предлагает пройти обучение по следующим языкам программирования:
PHP
HTML
PERL
C++
DELPHI
PASCAL
и многим другим.
Проводим консультации, выполняем заказы на написание программ,
Помогаем найти информацию, нужные вам книги.
Форма обучения - заочная (через интернет). По вопросам обращаться по адресу:
interkurs@yandex.ru

В этом выпуске:
I Отправка SMS средствами Delphi.

II Отправка почты средствами PHP:
1.      Отправление письма с картинками;
2.      Способы отправки писем.


I Отправка SMS средствами Delphi.

Алгоритм работы приложения для отправки SMS достаточно простой. При помощи компонента
TWebBrowser нужно реализовать отправку данных на веб-сервер сотового оператора,
содержащих информацию о телефонном номере, текст сообщения и некоторой служебной
информации. 
Отправку SMS сообщения рассмотрим на примере оператора сотовой связи "Ульяновск-
GSM ", позволяющего производить отправку SMS сообщений через Web- страничку по
адресу: 

http://sms.smarts-gsm.ru/sms.cgi 

Для отправки SMS сообщения нужно заполнить поля формы: 
в поле "Кому" ввести полный телефонный номер, например 78422973421 . 
В поле "Что" вводится текст сообщения. 
В списке "Формат" выбирается тип сообщения. 
Отправка сообщения инициализируется кнопкой "Send>>". 

Передаваемая строка на сервер оператора сотовой связи, при заполненном поле "Кому"
- 78422973421, полем "Что" - " SMS ", в формате "Обычный SMS " выглядит следующим
образом: 

to=78422973421&msg=SMS&dcs=0 (1) 

Разберемся откуда берется эта строка и что она означает. Если рассмотреть HTML
код страницы, то видим следующую картину: 

http://sms.smarts-gsm.ru/sms.cgi"> 
[номер абонента] 
  
 
Обычный SMS 
Flash SMS 
Индикация голосового сообщения (Вкл.) 
Индикация голосового сообщения (Выкл.) 
Иидикация наличия факса (Вкл.) 
Иидикация наличия факса (Вкл.) 
Индикация сообщения E-Mail ( Вкл. ) 
Индикация сообщения E-Mail ( Выкл. ) 
 
 
 

Очевидно, что это форма со следующими компонентами : 

1) поле для ввода текста с именем to , куда вводится номер абонента 
2) элемент ввода текста с именем msg , куда вводится текст сообщения 
3) выпадающее меню с именем dcs , где выбирается тип сообщения 
4) кнопка " Clean " для очистки формы от текстовой информации 
5) кнопка "Send >>" для отправки содержимого формы на сервер 

Таким образом, строка вида (1) образуется при отправке содержимого формы методом
POST на CGI шлюз по адресу http://sms.smarts-gsm.ru/sms.cgi 

Делаем вывод, что нужно при помощи Delphi сформировать такую же строку и отослать
ее на сервер оператора сотовой связи. Отправку строки будем производить методом
Navigate2 компонента T WebBrowser . 

Спецификация метода следующая : 

procedure Navigate2(var URL: OleVariant; var Flags: OleVariant; var TargetFrameName:
OleVariant; var PostData: OleVariant; var Headers: OleVariant); overload; 

Описание: метод используется при навигации и закачки специфичных ресурсов. Может
отсылать НТТР сообщения на специфичные адреса URL и показывать при этом результаты
выполнения этого метода. 
Параметры: 
var URL: OleVariant - переменная типа OleVariant, содержащая указатель на локальный
файл или ресурс в сети Интернет. 
var Flags: OleVariant - переменная типа OleVariant, может принимать одно из нескольких
возможных значений: 
Константа 

Значение 

Описание 
navOpenInNewWindow 1 открывать файл или URL в новом окне 
navNoHistory 2 не добавлять файл в лист History. Новая страница заменяет имеющуюся
страницу в кэше. 
navNoReadFromCache 4 Не читать страницу из кэша. 
navNoWriteToCache 8 Не записывать результат навигации в кэш. 
navAllowAutosearch 16 Если навигация не удалась, разрешить броузеру искать ресурсы
с таким же названием, но с именем домена (com, .edu, и т.д.) 

var TargetFrameName: OleVariant - имя фрейма в ресурсе, который должен быть отображен,
или NULL если таковой не может отображаться в указанном URL. 
var PostData: OleVariant - содержит данные, пересылаемые серверу. Используется
для генерации POST метода. Если значение переменной NULL , то генерируется метод
GET. Данные, содержащиеся в PostData 
игнорируются, если URL по которому производится навигация, не HTTP типа. 
var Headers: OleVariant - содержит НТТР заголовок передаваемых данных 

Создадим форму в Delphi из необходимых для заполнения строки вида (1) компонентов.
Добавляем также компонент TWebBrowser и делаем его невидимым из эстетических
соображений. Выглядеть форма будет следующим образом: 

Номер телефона должен заноситься в компонент ComboBox1 , а текст сообщения в
Memo1. Обработчик кнопки "Отправить", будет выглядеть следующим образом: 

var 
vWebAddr, vPostData, vFlags, vFrame, vHeaders: OleVariant; 
iLoop: Integer; 
text,stPostData: String; 
begin 
text:=Memo1.Text; 
stPostData:='to='+ComboBox1.Text+'&msg='+text+'&dcs=0'; 
vHeaders:= 'Content-Type:application/x-www-form-urlencoded'+ #10#13#0; 
vPostData:= VarArrayCreate([0, Length(stPostData)], varByte); 
for iLoop := 0 to Length(stPostData)- 1 do 
begin 
vPostData[iLoop]:= Ord(stPostData[iLoop+1]); 
end; 
vPostData[Length(stPostData)]:= 0; 
TVarData(vPostData).vType:= varArray; 
vWebAddr:='http://sms.smarts-gsm.ru/sms.cgi'; 
vFlags:=navNoWriteToCache; 
vFrame:=EmptyParam; 
try 
WebBrowser1.Navigate2(vWebAddr,vFlags,vFrame,vPostData,vHeaders); 
except 
end; 

Разберем код построчно. 

stPostData:='to='+ComboBox1.Text+'&msg='+text+'&dcs=0'; 
        
заполняем строковую переменную stPostData значениями полей. Отправляем обычный
SMS, поэтому dcs=0, исходя из значений в HTML форме 

Обычный SMS 
vHeaders:= 'Content-Type:application/x-www-form-urlencoded'+ #10#13#0; 

здесь создаем HTTP заголовок в виде нуль-терминальной строки( оканчивающейся
на #0 ); 

vPostData:= VarArrayCreate([0, Length(stPostData)], varByte); 

здесь, для заполнения передаваемых данных создаем вариантный массив с минимальным
пределом равным 0 и максимальным, равного длине строки Length(stPostData) типа
varByte ( 8-ми битовое беззнаковое целочисленное значение (тип Byte ) ) 

for iLoop := 0 to Length(stPostData)- 1 do 
begin 
vPostData[iLoop]:= Ord(stPostData[iLoop+1]); 
end; 

здесь посимвольно заполняем вариантный массив значениями нашей строки 

vPostData[Length(stPostData)]:= 0; 

обнуляем последний элемент 

TVarData(vPostData).vType:= varArray; 

В поле vType помещается признак типа данных. Присваиваем вариантной структуре
данных тип varArray, что означает "Вариантный массив". Данная операция необходимо
для того, чтобы массив данных был вариантного типа. Если данную операцию не производить,
то массив, хотя и будет состоять из значений типа variant , не будет вариантного
типа. Далее 

vFlags:=navNoWriteToCache; 

ставим флаг "не записывать в кэш". 
Затем, используя метод Navigate2 , отправляем заполненные структуры данных на
известный нам адрес, предусмотрев обработку ошибки. 

Подводные камни 

1) Абонент может получить SMS сообщение в другой кодировке. Это объясняется тем,
что в шлюзе производится обработка принимаемого сообщения только в какой-либо
одной кодировке. Все зависит от конкретной реализации CGI шлюза. В любом случае
кодировка подбирается экспериментальным путем. 

2) Результат отправки сообщения появляется в новой странице, к примеру "Сообщение
отправлено успешно", после того, как сервер принимает сообщение и генерирует
при помощи шлюза новую страницу. Так что узнать, корректно ли принял SMS сообщение
сервер, можно при анализе новой страницы, появляющейся в браузере.

II Отправка почты средствами PHP.

1.      Отправление письма с картинками.

Отправка письма с вложением и отправка HTML-письма с вложением существенно отличаются
по своей природе. Конечно же, и те и те находятся в теле письма, закодированы
в base64, но используемые в обоих случаях заголовки различаются. В данном разделе
описывается, как отправить HTML-файл с внедренными (в отличие от прикрепленных)
изображениями, используя класс Mime_mail. Подразумевается, что предыдущий раздел
Вы уже прочитали. 

'; 
$file = '/tmp/image.jpg'; 
$crlf = "\r\n"; 
$hdrs = array( 
'From' => 'you@yourdomain.com', 
'Subject' => 'Test mime message' 
); 

$mime = new Mail_mime($crlf); 

$mime->setTXTBody($text); 
$mime->addHTMLImage ($file, 'image/jpeg'); 
$mime->setHTMLBody($html); 

$body = $mime->get(); 
$hdrs = $mime->headers($hdrs); 


$mail =& Mail::factory('mail'); 
$mail->send('postmaster@localhost', $hdrs, $body); 
?> 


Отличие этого примера от приведенного в предыдущей главе - использование функции
addHTMLImage. Она принимает следующие параметры: 

string $data 
полный путь к прикрепляемому изображению на сервере либо его содержимое. Обязательный
параметр. 

string $c_type 
значение заголовка Сontent-type, который будет отправлен. Необязательный параметр,
значение по умолчанию: application/octet-stream. 

string $name 
имя прикрепляемого изображения. Будет использовано только в случае, если первый
параметр ($data) является содержимым файла. 

boolean $isfile 
определяет, является ли первый параметр путем к изображению. Необязательный параметр,
значение по умолчанию: true. 

Аналогично методу addAttachment существует два способа вызова этого метода: в
качестве первого параметра можно указывать путь к изображению либо двоичные данные
изображения. Во втором случае третий и четвертый параметры являются обязательными.


Особенность этого метода заключается в том, что каждому изображению при помощи
заголовка Content-ID: <8820c4185> ставиться в соответствие уникальный ключ. После
этого все ссылки на прикрепляемое изображение заменяются ссылками на его ключ.
В результате, в пришедшем к получателю письме будет строка вида , которую почтовый клиент проанализирует, извлечет содержимое из соответствующей
секции письма и "покажет картинку". 

2.      Способы отправки писем. 

На сегодняшний день распространены следующие способы отправки писем из php-скриптов:


Посредством вызова функции mail 
Непосредственно вызовом sendmail-а 
При помощи сокетов 
Используя COM-объект 
Первые три способа реализованы в классе PEAR::Mail, о котором было рассказано
выше. Экземпляр этого класса должен создаваться посредством статического вызова
метода factory (так называемый "паттерн фабрика"). Первый параметр метода определяет
способ отправки письма, он может принимать одно из следующих значений: mail,
sendmail, smtp. Второй параметр - массив, содержание которого зависит от значения
первого параметра: 

Значение 'mail' - отправка при помощи вызова стандартной функции, дополнительные
параметры отсутствуют 
Значение 'sendmail' - отправка непосредственно вызовом sendmail-а. Доступные
дополнительные параметры: 
sendmail_path - путь к программе на сервере; 
sendmail_args - дополнительные параметры для командной строки. 
Значение 'smtp' - отправка почты при помощи сокетов. Доступные дополнительные
параметры: 
host - IP адрес или доменное имя сервера, на котором запущен почтовый транспортый
агент, готовый принимать почту, например localhost (для локального сервера) или
mxs.mail.ru (для публичного сервера); 
port - порт на котором он запущен, как правило 25-тый; 
auth - логическое значение, которое указывает на необходимость SMTP авторизации,
значение по умолчанию - false; 
username - используется только при наличии SMTP авторизации, логин на сервере;

password - используется только при наличии SMTP авторизации, пароль на сервере.

Пример использования класса PEAR::Mail 

 'localhost', 'port' => 25)); 
$mail->send('postmaster@localhost', $hdrs, $body); 
?> 

В приложении к данной статье приведены примеры исходных кодов, реализовывающие
все перечисленные способы отправки почты без применения класса PEAR::Mail.