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

TIdPOP3 просмотр содержимого в разных кодировках...   Найти похожие ветки 

← →
brother   (2007-12-17 11:36) [0]

Подключаюсь к серверу pop3.mal.ru
получаю IdPOP31.RetrieveHeader(n, IdMessage1)
некоторые письма читабельны, но вот некоторые:
?koi8-r?Q?=E1=CE=CE=C1_=E9=D7=C1=CE=CF=D7=C1?=
?UTF-8?B?0JfQvdCw0LrQvtC80YHRgtCy0LAg0L3QsCBZb3VyTG92ZS5ydQ==?=
как я понимаю, Id компонент не может работать с этими кодировками? Что можно сделать? Неужели перекодировку в win1251 реализовывать вручную?

---

← →
brother   (2007-12-17 12:04) [1]

привожу код:
var n:integer;
   max_msg:integer;
begin
 IdMessage1.CharSet:="windows-1251";
 IdMessage1.ContentDisposition:="creation-date";
 IdMessage1.ContentTransferEncoding:="Base64";
 IdMessage1.ContentType:="text/plain";
 IdMessage1.Encoding:=meMIME;
 IdPOP31.Host:="pop3.mail.ru";
 IdPOP31.Port:=110;
 IdPOP31.Username:="";
 IdPOP31.Password:="";
 try
   IdPOP31.Connect;
 except
   memo1.Lines.Add("Error connection!");
 end;

 if IdPOP31.Connected then
 begin
  max_msg:=IdPOP31.CheckMessages;
  memo1.Lines.Add("Всего сообщений: "+inttostr(max_msg));
  for n:=max_msg-2 to max_msg do
   if IdPOP31.Connected then
   begin
    IdMessage1.Clear;
    IdPOP31.RetrieveHeader(n, IdMessage1);
    memo1.Lines.Add("["+inttostr(n)+"] From: "+IdMessage1.From.Text);
    memo1.Lines.Add("Recipients: "+IdMessage1.Recipients.EmailAddresses);
    memo1.Lines.Add("CCList: "+IdMessage1.CCList.EMailAddresses);
    memo1.Lines.Add("Subject: "+IdMessage1.Subject);
    memo1.Lines.Add("Date: "+FormatDateTime("dd mmm yyyy hh:mm:ss", IdMessage1.Date));
    memo1.Lines.Add("ReceiptRecipient: "+IdMessage1.ReceiptRecipient.Text);
    memo1.Lines.Add("Organization: "+IdMessage1.Organization);
   end;

  IdPOP31.Disconnect;
 end;
Не ужели никто с этим не сталкивался??? Ну подскажите хоть куда копать! Только не ручную перекодировку)))

---

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

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



Память: 0.45 MB
Время: 0.007 c