Библиотека synapse. Открытие файла письма *.msg .

Вотя и созрел для второй статьи, на этот раз речь пойдет о чтении файлов стандарта MIME . Использовать будем все ту же библиотеку Synapse. Мне это пригодилось в клиент - серверной программе, с помощью которой я отправляю письмо на сервер, который отправляет письмо через Thebat, таким образом я решил проблему с выделением интернета каждому пользователю, он им просто не нужен, такова уж политика моей организации. Вся корреспонденция идет с одного официального адреса, централизованное слежение за перепиской и т.п., вообщем, кто как заморачивается.

Прочитать, как устанавливать библиотеку Synapse, можно в статье Библиотека synapse. Создание файла письма *.msg.

В этот раз, я решил начать с теоретического вступления.

Стандарт MIME описывает структуру почтового сообщения, что, в отличии от стандарта RFC822, позволяет обмениваться сообщениями с использованием различных типов информации, а не только текстовой.

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

MIME-Version: поле версии MIME, указывает что сообщение подготовлено с использованием нового формата

Content-type: описания типа информации, что позволяет почтовой программе правильно понять, какой тип имеет информация. Стандарт MIME описывает семь типов инфомации, которые можно передавать в теле письма: текст (text); смешанный тип (multipart); почтовое сообщение (message); графический образ (image); аудио информация (audio); фильм или видео (video); приложение (application).

Content-Transfer-Encoding: Описывает какой метод кодирования используетв представлении информации.Используются следующие типы кодирования: "base64","quotes-printable", "8bit", "7bit", "binary" , x-token.

Дополнительные необязательные поля: Content-ID и Content-Description. Поле Content-ID описывает уникальный идентификатор содержания. Поле Content-Description коментирует содержание.

Не стоит беспокоиться, весь стандарт описан в библиотеке Syanpse, нам останеться лишь воспользоваться нужными функциями и процедурами.

Допустим, мы имеем такое сообщение, которое создано с помощью Outlook Express.

так сообщение выглядит в текстовом виде.

Разберем подробнее это сообщение.

Content-Type: multipart/alternative - определяет что сообщение состоит из нескольких фрагментов, которые разделены между собой границей _NextPart_000_0023_01CA600F.85DB5400, задаваемой в качестве параметра подтипа. "Multipart" определяет что тело почтового сообщения состоит из нескольких разных типов. Подтип "alternative" указывает что у нас есть выбор между методом отображения информации.

В первом блоке между_NextPart_001_0024_01CA600F.85DB5400 мы видим:
Content-Type: text/plain указывает на то, что текст сообщения представлен в текстовом виде (планарный текст - без разметки).
charset="koi8-r" - указывает в какой кодировке было исходное соощение, в mimepart.pas определяется какpart.Charset.
Content-Transfer-Encoding - метод шифрования сообщения, определяется как part.EncodingCode.

Во втором блоке то же самое сообщение представлено в виде текста с разметкой, html. C помошью part.Alternative можно определить какой тип имеет сообщение и обработать его соответствующим образом в программе. Можно, как в TheBat, использовать два типа, как мы и сделаем в примере.

Следующий блок определяет вложения к сообщению.

------=_NextPart_000_0023_01CA600F.85DB5400 Content-Type: text/plain; name="file2.txt" Content-Transfer-Encoding: 7bit Content-Disposition: attachment; filename="file2.txt" seryeryerty erye ryerty ------=_NextPart_000_0023_01CA600F.85DB5400 Content-Type: text/plain; name="file1.txt" Content-Transfer-Encoding: base64 Content-Disposition: attachment; filename="file1.txt" 4O3j7uvt4w0K7eUNCuP4DQrl7eMNCml0DQp5dQ0KaXR5 ------=_NextPart_000_0023_01CA600F.85DB5400--

Обратите внимание, Content-Type в обоих блоках совпадает, хотя первый блок определяет текст сообщения, а второй вложения. Отличие, которое нужно испльзовать для различия это поле filename, т.к. поле Content-Disposition является необязательным, определить что данный блок содержит вложение можно использовать их в паре. В Synapse поле filename определяется как part.FileName, Content-Disposition - part.Disposition.

Теперь приступим к разработке программы, которая позволит разобрать по "косточкам" файл формата MIME.

Я не буду полностью описывать программу, просто приведу исходный код, считаю что выше все было разобрано.

unit Unit1; interface uses ... mimemess, mimepart, ActiveX; type TForm1 = class(TForm) ... procedure Button1Click(Sender: TObject); procedure GetParts(const part: TMimepart); private { Private declarations } public { Public declarations } end; var Form1: TForm1; IdMes:TMimeMess; implementation {$R *.dfm} procedure TForm1.GetParts(const part: TMimepart); var s: string; i: integer; begin if (LowerCase(part.Primary)='text') and (LowerCase(part.FileName)='') then //Проверим ÷то данный блок - текст сообщения begin part.DecodePart; if LowerCase(part.Secondary)='plain' then // Определяем что это простой текст Memo1.Lines.LoadFromStream(part.DecodedLines) // Загружаем раскодированные данные else // о, нашелся еще и альтеративный метод отображения, я предположил что у меня всегда формат html begin // загрузим в браузер, не обязательно, можно и просто сохранить как страницу html WebBrowser1.Navigate('html.htm'); while WebBrowser1.ReadyState < READYSTATE_INTERACTIVE do Application.ProcessMessages; (WebBrowser1.Document as IPersistStreamInit).Load(TStreamAdapter.Create(part.DecodedLines)); end; end; if LowerCase(part.FileName)<>'' then begin // а вдруг это вложение part.DecodePart; part.DecodedLines.SaveToFile('c:\'+part.FileName) ; Memo3.Lines.Add('Сохранено в '+'c:\'+part.FileName) end; for i := 0 to part.GetSubPartCount - 1 do GetParts( part.getsubpart(i)); // проверяем наличие следующего блока end; procedure TForm1.Button1Click(Sender: TObject); var i:integer; begin if OpenDialog1.Execute then begin IdMes:=TMimeMess.Create; IdMes.Lines.LoadFromFile(OpenDialog1.FileName); end; IdMes.DecodeMessage; // Раскодируем сообщение, обязательно LabeledEdit2.Text:=IdMes.Header.From; LabeledEdit1.Text:=trim(IdMes.Header.ToList.Text); // Получатели сообщения LabeledEdit3.Text:=IdMes.Header.Subject; Memo2.Lines.Assign(IdMes.Header.CustomHeaders); // Заголовки, не спицифичные для формата MIME GetParts(IdMes.MessagePart); // рекурсивная процедура обхода блоков сообщения end; end.

Теперь можно выгружать письма из TheBat или других почтовых программ и разбирать почту. Я делаю это так, экспортирую письма из почтовика, загружаю в программу, разбираю и работаю дальше уже с структурированными данными.

Материал к статье

Автор neusro