Скачать: CL | DM;

Проблемы с кодировкой   Найти похожие ветки 

← →
Nameziz   (2008-11-17 12:27) [0]

При получение писем некоторыми почтовыми серверами возникает проблема с кодировкой текста (кириллица) Вот код отправки:

var
 IdMessage: TIdMessage;
 IdSMTP: TIdSMTP;
begin
 IdSMTP := TIdSMTP.Create(Nil);
 try
   IdMessage := TIdMessage.Create(Nil);
   try
     IdMessage.Body.Add("Текс письма");
     IdMessage.From.Text := const_default_UserName;
     IdMessage.Subject := "Тема";
     IdMessage.Recipients.EMailAddresses := "xxx.mail.ru";
     IdMessage.Priority := mpNormal;
     IdSMTP.Host := "mail.by";
     IdSMTP.Username := "xxx";
     IdSMTP.Password := "xxx";
     IdSMTP.Port := 25;
     IdSMTP.MailAgent := "TestMailAgent";
     IdSMTP.AuthenticationType := atLogin;
     try
       IdSMTP.Connect(100);
       try
         IdSMTP.Send(IdMessage);
       finally
         IdSMTP.Disconnect;
       end;
     except
     end;
   finally
     IdMessage.Free;
   end;
 finally
   IdSMTP.Free;
 end;


---

← →
KilkennyCat ©   (2008-11-17 12:40) [1]

Если проблема при получении, то при чем здесь код отправки?

---

← →
Сергей М. ©   (2008-11-17 12:46) [2]

> Вот код отправки


Нормальный код.
Проблемы не в нем.

---

← →
Сергей М. ©   (2008-11-17 12:53) [3]

Одно лишь довольно важное замечание:
    try
      IdSMTP.Connect(100);
      try
        IdSMTP.Send(IdMessage);
      finally
        if IdSMTP.Connected then //иначе, если соединение не было установлено, можно схлопотать исключение
          IdSMTP.Disconnect; // <- здесь
      end;

---

← →
Anatoly Podgoretsky ©   (2008-11-17 13:13) [4]

> Nameziz  (17.11.2008 12:27:00)  [0]

Код правильный, хоть и плохой.

---

← →
Nameziz   (2008-11-17 13:29) [5]

> Код правильный, хоть и плохой.


Дайте совет по оптимизации

---

← →
Anatoly Podgoretsky ©   (2008-11-17 13:59) [6]

> Nameziz  (17.11.2008 13:29:05)  [5]

Указать форматы


1. Формат заголовка
2. Кодировка заголовка
3. Формат упаковки для текста
4. Кодировка текста

---

← →
Anatoly Podgoretsky ©   (2008-11-17 14:08) [7]

Должно получиться, что то подобное

Subject: =?koi8-r?B?UmU6IFJNTSDEz9DPzM7Fzs7Zyg==?=

Content-Type: text/html; charset="Windows-1251"
Content-Transfer-Encoding: 8bit

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.008 c